删除 Excel 2013 中的重复项

Question

当我从范围 (B35:F99) 中手动删除重复项时，我收到错误消息，提示我在第 32 行和第 33 行合并了单元格。

如何使用 VBA 绕过它？我有多个工作表要删除重复项。

Sub RemoveDuplicate()
    Range("B4:F99").RemoveDuplicates Column:=Array(1,2)
End Sub

我在网上得到了这个代码，但它不起作用。

Answer 1

最简单的选择就是确保在运行 RemoveDuplicates 方法之前取消合并所有单元格。

Sub RemoveDuplicate()
    with range("B4:F99")
        .unmerge
        .removeduplicates column:=array(1,2)
    end with
End sub

我假设您不需要保留合并；如果这样做，您可能需要先循环并记录合并区域，然后重新应用它们。