操作工作表
WorkSheets工作表对象
Application主程序对象
WorkSheets工作表对象
有哪些操作？
Select、Add、Delete、Copy
可获取的信息？
Count、Name
选中某个表(3种方法)：
Sheet1.Select
Sheets("1月").Select
Sheets(1).Select
增加表
Sheets.Add after:=Sheet3
多个表时Range写法：
Sheet1.Range("a1") = 100
Sheets.Count：只读属性，获取表的个数
使用举例：在表的后面插入表格
Sheets.Add after:=Sheets(Sheets.Count)
Sheet1.Name: 可修改属性，获得\修改表格的名字
[a1] = Sheet1.Name
删除表
删除表会出现弹窗提示，通过设置Application属性
Excel.Application.DisplayAlerts = False
可以取消弹窗
举例：批量删除
Excel.Application.DisplayAlerts = False Dim i As Integer For i = 1 To 100 Sheets(1).Delete Next Excel.Application.DisplayAlerts = True
复制Copy 创建表的副本
Sheet1.Copy after:=Sheets(Sheets.Count)
实例1： 创建31张表，且修改名称
Sub sc() Dim i As Integer For i = 1 To 31 Sheet1.Copy after:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = "5月" & i & "日" Sheets(Sheets.Count).Range("e5") = "2016-5-" & i Next End Sub
技巧：拼接字符串 "5月" & i & "日"
"实例2：多表汇总
Sub shishi() Dim i As Integer For i = 2 To Sheets.Count Sheet1.Range("b" & i + 8) = Sheets(i).Range("e5") Sheet1.Range("c" & i + 8) = Sheets(i).Range("e6") Sheet1.Range("d" & i + 8) = Sheets(i).Range("e44") Next End Sub
