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
posted @ 2019-05-21 09:13  grj001  阅读(622)  评论(0)  编辑  收藏  举报