使用excel vba删除地址位于另一个单元格中的单元格

使用excel vba删除地址位于另一个单元格中的单元格,excel,vba,Excel,Vba,我需要使用excel宏删除一个单元格,其中该单元格的地址是另一个单元格中的文本。我需要代码非常简单,因为我几乎是一个完全的初学者。足够简单吗 Sub Whipe() Dim RAddress As Range, RAdrCell As Range Dim RWhipe As Range, RWhipeCell As Range Set RAddress = Range([A1], [F6]) ' range containing the addresses Set RWhipe

我需要使用excel宏删除一个单元格,其中该单元格的地址是另一个单元格中的文本。我需要代码非常简单,因为我几乎是一个完全的初学者。

足够简单吗

Sub Whipe()
Dim RAddress As Range, RAdrCell As Range
Dim RWhipe As Range, RWhipeCell As Range

    Set RAddress = Range([A1], [F6]) ' range containing the addresses
    Set RWhipe = Range([A7], [F12])  ' range containing data to be whiped

    For Each RWhipeCell In RWhipe.Cells
        For Each RAdrCell In RAddress.Cells
            If RWhipeCell.Address(False, False) = RAdrCell Then
                RWhipeCell = ""
            End If
        Next RAdrCell
    Next RWhipeCell
End Sub
以前

之后

能否提供数据排列方式的屏幕截图?