В тази статия ще създадем макрос за проверка на дублирането и премахване на дублиращи се стойности от две последователни колони.
Необработените данни се състоят от подробности за целта, които включват име на агент, име на целевия модел и желано име на модел.
В тази статия искаме да изтрием тези записи, които имат подобно име на целевия модел и желаното име на модел.
Обяснение на кода
LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell).
Горният код се използва за получаване на номера на реда на последната клетка.
For i = LastRow To 12 Step -1
Следващия
Горният цикъл For се използва за обратен цикъл. Той ще започне цикъл от последния ред до 12th ред.
Ако клетки (i, 2) = клетки (i, 3), тогава
В горния код сравнихме стойностите в клетките на 2nd колона с 3rd колона.
Редове (i). Изтриване
Горният код се използва за изтриване на целия ред.
Моля, следвайте кода по -долу
Опция Изрично Sub DeleteMatches () „Деклариране на променливи Dim LastRow, i As Long“ Получаване на номера на реда на последната клетка LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell). Ако клетки (i, 2) = клетки (i, 3), тогава редове (i). Изтриване на край, ако следващият край Sub
Ако този блог ви е харесал, споделете го с приятелите си във Facebook. Също така можете да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим работата си и да я направим по -добра за вас. Пишете ни на имейл сайта