如何根据“键”列删除重复的行？

Question

我正在详细说明一个包含许多行的Excel文件，其中许多是重复的。

我创建了一个"key“列，该列包含来自3个相邻列的数据，并包含相关数据，并使用条件格式来突出显示重复的数据并过滤它们。

键列被格式化为：=B1428&" , "&C1428&" , "&J1428

这将连接上面引用的单元格，并用逗号分隔它们。

如果执行“删除重复项”操作，Excel将在同一列中返回所有唯一数据，但不会删除相对行。

如何删除重复项，以便删除相对行，而不仅仅是删除值？

Answer 1

修改并尝试：

Option Explicit

Sub test()

    Dim Lastrow As Long, i As Long

    With ThisWorkbook.Worksheets("Sheet1")

         Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row '<- Find last row of column A

         For i = Lastrow To 1 Step -1 '<- Loop from row last row to 1

            If Application.CountIf(.Range("A1:A" & Lastrow), .Range("A" & i).Value) > 1 Then '<- If a value appears more that 1 time
                .Rows(i).EntireRow.Delete
            End If

         Next i

    End With

End Sub