В этой статье мы создадим макрос для проверки дублирования и удаления повторяющихся значений из двух последовательных столбцов.

Необработанные данные состоят из сведений о цели, включая имя агента, имя целевой модели и имя желаемой модели.

ArrowRawData

В этой статье мы хотим удалить те записи, которые имеют похожее имя целевой модели и желаемое имя модели.

ArrowOutput

Объяснение кода

LastRow = ActiveCell.SpecialCells (xlCellTypeLastCell) .Row Приведенный выше код используется для получения номера строки последней ячейки.

For i = LastRow To 12 Step -1 Next Вышеупомянутый цикл For используется для обратного цикла. Он будет зацикливаться с последнего ряда по 12 ^ й ^ ряд.

If Cells (i, 2) = Cells (i, 3) Then В приведенном выше коде мы сравнили значения в ячейках столбца 2 ^ nd ^ с столбцом 3 ^ rd ^.

Rows (i) .Delete Приведенный выше код используется для удаления всей строки.

Пожалуйста, введите код ниже

Option Explicit

Sub DeleteMatches()

'Declaring variables

Dim LastRow, i As Long

'Getting the row number of last cell

LastRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row

'Looping from last row to 12th row

For i = LastRow To 12 Step -1

If Cells(i, 2) = Cells(i, 3) Then

Rows(i).Delete

End If

Next

End Sub

Если вам понравился этот блог, поделитесь им с друзьями на Facebook и Facebook.

Мы будем рады услышать от вас, дайте нам знать, как мы можем улучшить нашу работу и сделать ее лучше для вас. Напишите нам на [email protected]