excel - 寻找删除替代重复项的宏/VBA 代码

Question

我需要一个 VBA，它可以帮助我浏览一列中的列表并执行以下步骤：

• 识别每个备用重复项
• 删除备用副本
• 向上移动内容，摆脱空白单元格

该工作表仅包含一列。

例子：

1. 苹果
2. 橙子
3. 草莓
4. 苹果
5. 草莓
6. 猕猴桃
7. 苹果
8. 苹果

我需要删除 4、5 和 8 号。

我希望这是有道理的。

万分感谢 ：）

标签： excelvba

Answer 1

尝试这样的事情：

Sub test()

    Dim i As Long, LastRow As Long

    With ThisWorkbook.Worksheets("Sheet1")

    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

        For i = LastRow To 2 Step -1
            If WorksheetFunction.CountIf(.Range("A1:A" & LastRow), .Range("A" & i).Value) > 1 Then
                .Rows(i).EntireRow.Delete
            End If
        Next i

    End With

End Sub