vba sheet页操作

1.指定某个sheet

可以通过sheet页的名称或者sheet的顺序：

如第一个sheet的名称是"Sheet1"，则获取方式有以下两种：

1)　　Sheets(1)

2)　　Sheets("Sheeet1")

 

2.Sheet的属性

Sheets(1).Name　　sheet的名称，修改此属性可以修改sheet名称

Sheets.Count　　当前工作簿中sheet的总个数

 

3.判断某个sheet页是否存在

for循环判断每一个sheet页名称

For Each sheet In ThisWorkbook.Sheets
    If sheet.Name = "Sheet1" Then
        MsgBox("Sheet1存在")
        Exit For
End If
Next

 

4.新建sheet

语法：

表达式.Add(Before, After, Count, Type)

表达式 一个代表 Sheets 对象的变量。

 

参数：

 

注：

如果同时省略 Before 和 After，则新工作表插入到活动工作表之前。

 

示例：

由于省略了Before和After参数，所以新工作表插入到活动工作表之前了。

　　Sheets.Add().Name = "测试"

新建两个工作表，在工作表"测试"后添加

　　Sheets.Add After:=Worksheets("测试"), Count:=2

在最后一个sheet页后面新建
　　book1.Sheets.Add(After:=Worksheets(book1.Sheets.Count)).Name = "测试"

 

5.删除工作表

Sheets("Sheeet1").Delete

 

6.复制工作表

VBA中使用COPY可以复制工作表
1、复制工作表到第1张工作表前：
worksheets("VBA").copy before:=worksheets(1)
2、复制工作表到第1张工作表后：
worksheets("VBA").copy after:=worksheets(1)
3、复制到新的工作簿中：
worksheets("VBA").copy
4、复制到新工作簿中，修改名字为“VBA创新”,保存到D盘，最后关闭工作薄
worksheets("VBA").copy
activesheet.name=("VBA创新")
activeworkbook.savecopyas"D:\VBA创新.xlsx"
activeworkbook.close false

5.复制的工作表需要放在最后一张工作表后面

Sheet1.Copy after:=Sheets(Sheets.Count)