Excel vba 清除本sheet所有单元格内容和清除所有sheet中所有单元格的代码分别怎么写?
1
2
3
4
5
6
7
8
9
10
Public Sub 清除本工作表()
Public
Sub
清除本工作表()
Worksheets("sheet1").UsedRange.ClearContents
Worksheets(
"sheet1"
).UsedRange.ClearContents
End Sub
End
Public Sub 清除所有表()
清除所有表()
Dim WS As Worksheet
Dim
WS
As
Worksheet
For Each WS In Worksheets
For
Each
In
Worksheets
WS.UsedRange.ClearContents
Next