W tym artykule stworzymy makro sprawdzające duplikaty i usuwające zduplikowane wartości z dwóch kolejnych kolumn.
Surowe dane składają się ze szczegółów docelowych, które obejmują nazwę agenta, nazwę modelu docelowego i nazwę pożądanego modelu.
W tym artykule chcemy usunąć te rekordy, które mają podobną nazwę modelu docelowego i żądaną nazwę modelu.
Wyjaśnienie kodu
LastRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
Powyższy kod służy do uzyskania numeru wiersza ostatniej komórki.
Dla i = LastRow do 12 Krok -1
Następny
Powyższa pętla For służy do zapętlania wstecznego. Zacznie się zapętlać od ostatniego rzędu do 12NS wiersz.
Jeśli Komórki(i, 2) = Komórki(i, 3) Wtedy
W powyższym kodzie porównaliśmy wartości w komórkach 2NS kolumna z 3r & D kolumna.
Wiersze(i).Usuń
Powyższy kod służy do usunięcia całego wiersza.
Proszę postępować zgodnie z poniższym kodem!
Option Explicit Sub DeleteMatches() 'Deklarowanie zmiennych Dim LastRow, i As Long 'Pobieranie numeru wiersza ostatniej komórki LastRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row 'Pętla od ostatniego wiersza do 12 wiersza For i = LastRow To 12 Step -1 If Cells(i, 2) = Cells(i, 3) Then Rows(i).Delete End If Next End Sub
Jeśli podobał Ci się ten blog, podziel się nim ze znajomymi na Facebooku. Możesz również śledzić nas na Twitterze i Facebooku.
Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy poprawić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail