Question

excel 怎么用vba 清除第二个到最后个工作表指定单元格内容（a1:h20)

Answer 1

(附件中有样本以供测试）

指着工作表标签击右键，查看代码，出来VBE窗口

点“插入”---“模块”

左侧窗口找到“模块”，双击模块1，在代码窗口粘贴以下代码

Sub 清除()
For i = 2 To Worksheets.Count
Dim myrange As Range
Set myrange = Sheets(i).Range("A1:C20")
For Each c In myrange
c.ClearContents
Next
Next
End Sub

 

追问

能不能解释下，我最近想学vba

追答

Sub 清除()
For i = 2 To Worksheets.Count          'worksheets.count:统计工作表总数。
'for i=2 to ..... 从2开始循环，一直到工作表总数，每次循环，i值增加1
Dim myrange As Range    '声明一个类型为Range(引用)的变量myrange
Set myrange = Sheets(i).Range("A1:C20") 
              'Sheets(i).range("A1:A20")第i张工作表的A1:A20区域
              'set .....将该区域引用指定给myrange
For Each c In myrange    'for each ... in....关键字。在某集合(myrange)中遍历所有子元素(c)
c.ClearContents   '清除子元素(c)的数据
Next         '处理下一个子元素
Next         '下一个i
End Sub