在本文中，我们将创建一个宏来检查重复项并从两个连续的列中删除重复的值。

原始数据由目标详细信息组成，其中包括代理名称，目标模型名称和所需模型名称。

ArrowRawData

在本文中，我们想删除那些目标模型名称和所需模型名称相似的记录。

ArrowOutput

代码说明

LastRow = ActiveCell.SpecialCells（xlCellTypeLastCell）.Row上面的代码用于获取最后一个单元格的行号。

For i = LastRow To 12步骤-1 Next上面的For循环用于反向循环。它将从最后一行开始循环直到第12 ^ th行。

如果Cells（i，2）= Cells（i，3），则在上面的代码中，我们比较了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]