Question

excel vba 删除重复内容

1。（C2：F25）称为A区域
2。（H30：Z55）称为B区域
3。A区域与B区域有内容重复（只删除A区域的内容，B区域就填充单元为红色）

Answer 1

以下代码可以做到

（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

Answer 2

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