Šajā rakstā mēs esam izveidojuši makro, lai izceltu dublētās vērtības.
Neapstrādāti dati sastāv no dažādiem automašīnu nosaukumiem. Mēs vēlamies izcelt dublētus ierakstus.
Nospiediet pogu “Izcelt dublikātu”, lai palaistu makro un iezīmētu dublikātu ierakstus.
Loģisks skaidrojums
Mēs esam izveidojuši makro “Check_Dups”, lai izceltu dublētus ierakstus. Tie tiks izcelti sarkanā krāsā. Makro mēs pārbaudām konkrēta ieraksta skaitu. Ja tas ir lielāks par 1, dati tiks izcelti.
Lūdzu, sekojiet tālāk norādītajam kodam
Opcija Explicit Sub Check_Dups () 'Mainīgo deklarēšana Dim Dim kā Variant Dim Avots kā diapazons' Avota diapazona inicializēšana Iestatīt avotu = Diapazons ("A9: A24") 'Jebkura iepriekšējā formatējuma noņemšana no avota Source.Interior.Color = RGB (221, 235, 247) “Cilpu cauri katrai avota diapazona šūnai katrai avota šūnai” Pārbaude, vai vērtība šūnā jau pastāv avota diapazonā If Application.WorksheetFunction.CountIf (Avots, šūna)> 1 Pēc tam 'Dublēto vērtību izcelšana sarkanā krāsā krāsa Šūna.Interjera.Krāsa = RGB (255, 0, 0) Beigt, ja nākamā beigas Apak
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē