V tomto článku vytvoříme makro pro kontrolu duplikace a odebereme duplicitní hodnoty ze dvou po sobě jdoucích sloupců.
Nezpracovaná data se skládají z podrobností o cíli, které zahrnují název agenta, název cílového modelu a název požadovaného modelu.
V tomto článku chceme odstranit ty záznamy, které mají podobný název cílového modelu a požadovaný název modelu.
Vysvětlení kódu
LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell) .Row
Výše uvedený kód se používá k získání čísla řádku poslední buňky.
For i = LastRow To 12 Krok -1
další
Výše uvedená smyčka For se používá pro zpětnou smyčku. Začne se točit od posledního řádku do 12th řádek.
Pokud buňky (i, 2) = buňky (i, 3), pak
Ve výše uvedeném kódu jsme porovnali hodnoty v buňkách 2nd sloupec s 3rd sloupec.
Řádky (i). Odstranit
Výše uvedený kód slouží k odstranění celého řádku.
Pro kód prosím postupujte níže
Volba Explicitní Sub DeleteMatches () 'Deklarování proměnných Dim LastRow, i As Long' Získání čísla řádku poslední buňky LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell) .Row 'Smyčka z posledního řádku do 12. řádku Pro i = LastRow do 12 Krok -1 If Cells (i, 2) = Cells (i, 3) Then Rows (i). Delete End If Next End Sub
Pokud se vám tento blog líbil, sdílejte ho se svými přáteli na Facebooku. Také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit naši práci a zlepšit ji pro vás. Napište nám na e -mail