版权声明：原创作品，允许转载。转载时请务必以超链接形式标明文章原始出处、作者信息和本声明。 https://blog.csdn.net/LannisterPaoMo/article/details/89232970

目录索引

• WorkSheet
• 如何在代码中定义一个WorkSheet

WorkSheets

• WorkSheets的.Count方法
• WorkSheets的.Add方法

WorkSheet

WorkSheet代表当前Excel工作簿中的一张工作表，从属于工作簿WorkBook。WorkSheets则是当前工作簿中所有的工作表。

如何在代码中定义一个WorkSheet

Sub mySheetTest()

Dim w1 As Worksheet

Set w1 = Worksheets(1)  //用该WorkSheet的位置来定义，代表改工作簿中的第1张Sheet
Set w1 = Worksheets("表名")//用该WorkSheet的名字来定义，程序回去查找当前工作簿中对应名字的Sheet

End Sub

按照我的理解，Set就相当于Java、C#中的new，new一个对象的时候必须要带的关键字。VBA也是如此，对象赋值的时候，必须要用Set（给对象特殊待遇，就是这样）

WorkSheets

如果说WorlSheet是蛋，那WorkSheets就是筐，而这个框里放的都是蛋蛋~WorkSheet

WorkSheets的.Count方法

Sub mySheetTest()

Dim w1 As Worksheet, i As Integer

For i = 1 To Worksheets.count Step 1//从第一张工作表开始检索直到最后一张工作表

Set w1 = Worksheets(i)//将检索到的工作表赋值给w1，注意对象要用Set，且是WorkSheets(i)

w1.Cells(1, 1) = "检索成功"//在每张工作表的A1单元格写一句话“检索成功”
a
Next i

End Sub

如上述代码所示，WorkSheets(i).Count方法的返回值是当前工作簿中所有工作表的数量，我们可以作为循环的上界写进代码中

WorkSheets的.Add方法

Sub myAddTest()

Dim w1 As Worksheet

Dim i

For i = 1 To 3 Step 1

Set w1 = Worksheets.Add//添加一张工作表，位置在最后

w1.Cells(1, 1) = "添加成功"//修改这张工作表的A1单元格内容为“添加成功”

Next i

End Sub