vba 清除本sheet所有單元格內容和清除所有sheet中所有單元格

Excel vba 清除本sheet所有單元格內容和清除所有sheet中所有單元格的代碼分別怎么寫?

Excel vba 清除本sheet所有單元格內容和清除所有sheet中所有單元格的代碼分別怎么寫?

 

1 2 3 4 5 6 7 8 9 10

Public Sub 清除本工作表()     Worksheets("sheet1").UsedRange.ClearContents End Sub   Public Sub 清除所有表()     Dim WS As Worksheet     For Each WS In Worksheets         WS.UsedRange.ClearContents     Next End Sub