如何通過宏清除Excel中的單元格

Question

我正在嘗試在Excel中清除A1：A100單元格的宏，但我只找到一個可以對一個單元格執行此操作的宏。我怎樣才能讓它爲更多的細胞工作？

Sub ClearCell() 
Dim Rng As Range 
Set Rng = ActiveSheet.Range("A1") 

Dim i As Long 
For i = 1 To 10 
    If Rng.Cells(i,1) = "" Then 
     Rng.Cells(i,1).ClearContents 
    End If 
Next i 
End Sub 

Answer 1

試試這個：

Sub test() 
Dim Cl As Range 
For Each Cl In [A1:A100] 
    If Cl.Value = "" Then 
     With Cl 
      .ClearFormats 
      .ClearContents 
     End With 
    End If 
Next Cl 
End Sub 

Answer 2

更好的，試試這個：

Sub foo() 
    Range("A1:A100").ClearContents 
    Range("A1:A100").ClearFormats 
End Sub