清除全部內容

Question

我正在嘗試編寫將完全擦除工作簿中的單元格內容的代碼。

我想要兩個類似的Subs：一個Sub清除所有內容，另一個Sub清除從第2行開始到最後一行的所有內容。

我使用下面的代碼，但它返回一個錯誤：

Sub Populate_RA_Sheet() 
    ' 
    ' Populate_RA_Sheet Macro 
    ' 
    RA_Sheet(2).Cells.ClearContents 
    ' 
End Sub 

Answer 1

比方說，工作表的名稱爲Sheet1然後

One code clear all content

ThisWorkbook.Sheets("Sheet1").Cells.ClearContents 

and other code clear all contents starting from 2nd row till the last row whatever it is.

你可以找到最後行然後清除內容。但你爲什麼要這麼做？第二排之後只需清除ALL行？

With ThisWorkbook.Sheets("Sheet1") 
    .Rows("2:" & .Rows.Count).ClearContents 
End With 

如果仍然要清除從第二排開始直至最後一行然後看看如何找到最後一行THIS所有內容，一旦你的最後一排，然後簡單地使用這個

With ThisWorkbook.Sheets("Sheet1") 
    .Rows("2:" & LastRow).ClearContents 
End With 

注意：

1. 將上面的代碼，如果說電池失敗被合併。所以要小心:)
2. 此代碼將清除單元格，但不刪除任何形狀/格式。你將不得不單獨處理它。