如果在 excel 中发现重复项，则提示一个 Msgbox 并删除

Question

我正在使用以下行删除列中的 重复项 。

ActiveSheet.Range("A:B").RemoveDuplicates Columns:=Array(1, 1), Header:=xlYes

问题是，这是默默地完成的，我真的不知道我的数据何时具有双精度值。

我需要通过使用 Msgbox 知道是否删除了重复项。是否可以使用 Count 来提及删除的条目数？用最简单的代码。

Answer 1

您可以在删除重复项之前计算行数
然后在再次计算行数并减去之前的计数后显示消息框

尝试：

Dim lr As Long
With ActiveSheet

    lr = .Cells(.Rows.Count, 1).End(xlUp).row
    .Range("A:B").RemoveDuplicates Columns:=Array(1, 1), Header:=xlYes

    If Not lr - .Cells(.Rows.Count, 1).End(xlUp).row = 0 Then
        MsgBox lr - .Cells(.Rows.Count, 1).End(xlUp).row & " Rows Deleted"
    End If
End With

如果在 excel 中发现重复项，则提示一个 Msgbox 并删除

Prompt a Msgbox and delete if duplicates are found in excel

excel

vba

duplicates

msgbox