Question

EXCEL VBA给区域1与区域2重复时,删除区域2内容

1。区域2（A39：J1038）
2。区域1（AF28：AO37）

Answer 1

 Sub xx()
    Dim d
    Set d = CreateObject("Scripting.Dictionary")
    With [AF28：AO37]
    n = .Count
    For i = 1 To n
        d(.Item(i)) = ""
    Next i
    End With
    With [A39：J1038]
    n = .Count
    For i = 1 To n
        If d.xeists(.Item(i)) Then .Item(i).ClearContents
    Next i
    End With
End Sub