Question

我正在尝试从Excel中的表中删除重复项，我有一段代码可以毫无问题地删除重复项，我想知道是否可以在找到重复内容时提示消息框“此条目是重复条目”任何建议？这是我到目前为止所得到的：

Sub AccessTransfer()
    Range("A1:F1").Select
    Selection.Copy
    Sheets("Sheet2").Select

    ActiveSheet.Paste
    ActiveCell.Offset(0, 6).Value = "Oven"

    Range("A65536").End(xlUp).Offset(1, 0).Select
    Call GoDupe
    Sheets("Sheet1").Select

    Application.CutCopyMode = False

End Sub



Sub GoDupe()

    Cells.RemoveDuplicates Columns:=Array(1), Header:=xlNo
    Range("A65536").End(xlUp).Offset(1, 0).Select
End Sub

Answer 1

您可以简单地突出显示所有重复项并提示用户一次，而不是循环，识别并提示每个重复项。您的GoDupe()子看起来像这样：

Sub GoDupe()

Cells.FormatConditions.AddUniqueValues
With Cells.FormatConditions(Cells.FormatConditions.Count)
    .DupeUnique = xlDuplicate
    .Interior.Color = RGB(255, 0, 0)
End With
If MsgBox("Red highlighted cells are duplicated. OK to remove duplicates?", vbOKCancel) = vbOK Then
    Cells.RemoveDuplicates Columns:=Array(1), Header:=xlNo
    Range("A65536").End(xlUp).Offset(1, 0).Select
End If
Cells.FormatConditions(Cells.FormatConditions.Count).Delete

End Sub

Excel vba MsgBox在找到重复时显示消息

1 个答案: