2013-07-04 47 views

回答

0

夠簡單嗎?

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 

enter image description here

enter image description here

+0

真棒,謝謝 – user2548840

相關問題