3操作工作表

操作工作表
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