Question

我正在制作一个包含很多行的Excel文件，其中很多是重复的。

我创建了一个“键”列，其中包含相邻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

如何删除基于“键”列的重复行？

1 个答案: