[已解决]VBA清除sheet1-sheet210所有A列的数据

lijian8003

我只会清除一个工作表的宏代码：
Sub 清除数据()
Sheets("sheet1").Select
Range("a1:a10000").ClearContents
End Sub

要用VBA清除sheet1-sheet210所有A列的数据，这样的宏代码如何写？恳望得到指点。

最佳答案

月排行榜 / 总排行榜

youfang

2013-10-13 02:33

Sub 清除数据()
    Dim i%
    For i = 1 To 210
        Sheets(i).Range("a1:a10000").ClearContents
    Next
End Sub

跳转到最佳答案楼层

youfang

Sub 清除数据()
    Dim i%
    For i = 1 To 210
        Sheets(i).Range("a1:a10000").ClearContents
    Next
End Sub

CheryBTL

若是工作薄中所有的工作表可以用：

1. Sub 清除数据()
   
2.      Dim sht as Worksheet
   
3.      For Each sht In Worksheets
   
4.          sht.Range("a1:a10000").ClearContents
   
5.      Next
   
6. End Sub

复制代码

从从容容

你们太有才呀!!!

LJF136151

学习了

兰色幻想

如果只有这么多工作表，不用循环也行
ActiveSheet.Columns(1).ClearContents
Sheets.FillAcrossSheets Columns(1)

上清宫主

这办法好！
还可以全选工作表后再清除：
Sheets.Select
Sheets(1).Activate
Columns("A:A").Select
Selection.ClearContents