excel vba 删除重复内容

以下代码可以做到

（H30：Z55的空值不填充颜色）

Sub 删除重复项()

Application.ScreenUpdating = False

Dim rga, rgb As Range

For Each rga In Range("c2:f25")
For Each rgb In Range("h30:z55")

If rga = rgb And rgb <> "" Then
rga.ClearContents
rgb.Interior.ColorIndex = 3
End If

Next rgb
Next rga

Application.ScreenUpdating = True

End Sub

已上传附件，点击按钮即可验证

追问

没有效果

运行后如下图所示才对



追答

试试这个

Sub 删除重复项()

Application.ScreenUpdating = False

Dim rga, rgb As Range
Dim a, b As String

For Each rga In Range("c2:f25")
For Each rgb In Range("h30:z55")

a = rga.Value
b = rgb.Value

If a = b And rgb <> "" Then
rga.ClearContents
rgb.Interior.ColorIndex = 3
End If

Next rgb
Next rga

Application.ScreenUpdating = True

End Sub

本回答被提问者采纳

Excel如何删除重复内容？很简单，让我来教会你！