Excel - makro, lai izceltu dublikātu vērtības

Microsoft Excel tiek plaši izmantots visā pasaulē, lai izveidotu, apstrādātu, apstrādātu vai salīdzinātu vairākus datu avotus. Excel, kopā ar VBA, var izmantot daudzu interesantu darbu veikšanai, piemēram, vienas un tās pašas vērtības salīdzināšanai vienā kolonnā . Var izveidot VBA pielāgotu kodu, kas meklēs vērtības noteiktā diapazonā un iezīmētu šūnas, kurās vērtība no vienas kolonnas atbilst otrai. Lai pievienotu elastību, lietotājs var arī norādīt krāsu kodējumu, kur viņi vēlas, lai atbilstošās šūnas tiktu izceltas.

Izdevums

Man ir aizņemts numura numurs B slejā, kura nosaukums ir numurs. Arī man ir kopējais numuru skaits D slejā tajā pašā lapā. Es vēlos izcelt visus B slejas numurus D slejā.

Piemēram, man ir skaitļi: 2 šūnā B2, 8 šūnā B3 un 6 B ailē B ailē un skaitļi 1 šūnā D2, 2 šūnā D3, 3 šūnā D4, 4 šūnā D5, 5 šūnā D6, , 6 šūnā D7, 7 šūnā D8, 8 šūnā D9, 9 šūnā D10 tās pašas lapas D slejā ar nosaukumu Room List. Krāsā es gribu izcelt D slejas šūnas, kurās ir tādi paši numuri kā B slejai. Šeit es gribu izcelt šūnu D3 (jo tas satur numuru 2, kas ir arī šūnā B2), šūnu D9 (jo tas satur to pašu numuru) kā šūnu B3), šūnu D7 (jo tajā ir tāds pats numurs kā B4 šūnai).

Tāpēc es tikai vēlos mainīt D ailes D3, D9 un D7 krāsu.

Īsi sakot, es vēlos uzzināt tos pašus numurus, kas rakstīti B slejā no D slejas, un iezīmē šīs kolonnas D kolonnā pēc krāsas.

D slejā skaitļiem jābūt tikai to sākotnējā vietā, bet šūnas ir jāizceļ ar dažādām krāsām.

Risinājums

Palaidiet šo makro

Apstipriniet, vai saņemat to, ko vēlaties

 Sub tests () Kā diapazons, c kā diapazons, cfind As Range, rng1 kā diapazona darblapas ("telpu saraksts") Aktivizēt iestatījumu rng = diapazons (diapazons ("D2"), diapazons ("D2"). xlDown)) Set rng1 = Range (diapazons ("B2"), diapazons ("B2"). Beigas (xlDown)) katram c In rng Iestatiet cfind = rng1.Cells.Find (ko: = c.Value, lookat: = xlWhole) Ja nav cfind Nav nekas, tad c.Interior.ColorIndex = 3 Nākamais c Beigas beigas 

Risinājums

Paldies [venkat1926 par šo padomu forumā.

Iepriekšējais Raksts Nākamais Raksts

Top Padomi