如何根據“鍵”列刪除重復行？

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