18、[VBA入门到放弃笔记] 新建工作表

• Add方法新建工作表

Sub 新建工作表() 
    Worksheets.Add.Name = "新建工作表"
End Sub

• 通过对象变量来新建工作表

Sub 新建工作表1() '通过定义对象来新建
    Dim sht As Worksheet
    Set sht = Worksheets.Add
    sht.Name = "新建工作表1" '工作表的名称是  新建工作表1
End Sub

• 新建工作表，并指定工作表的位置

Sub 新建工作表2()
    Dim sht As Worksheet
    Dim sht1 As Worksheet
    Set sht = Worksheets.Add(before:=Worksheets("小明"))
    sht.Name = "我在小明前面"
    Set sht1 = Worksheets.Add(After:=Worksheets("小明"))
    sht1.Name = "我在小明后面"
End Sub

指定工作表的位置

• 批量新建工作表

Sub 批量()
    Dim Sht As Worksheet
    Dim i As Integer
    With Worksheets
        For i = 1 To 3
            Set Sht = .Add(After:=Worksheets(.Count))'最右边新建工作表
            Sht.Name = i '工作表的名称
        Next
    End With
    Set Sht = Nothing
End Sub

• 使用的With结构，‘ . ’ 前面省略了Worksheets
• Worksheets.Count是工作表的数量
• 该代码新建3个工作表，每个新建的工作表都放到最后（最右边），工作表名称为分别为 1、2、3.

批量新建工作表

---