VBA基础之Excel 工作表(Sheet)的操作(二)

二、 Excel 工作表(Sheet)的操作
1.Excel 添加工作表(Sheet)

方法名	参数	参数值	说明
Add	Before	工作表名称	在指定的工作表前面插入新的工作表
After	工作表名称	在指定的工作表后插入新的工作表
Count	数值	要添加的工作表数量
Ｔｙｐｅ	类型

'在当前活跃工作表的前面插入一张新的工作表

Sub addSheet()

    Worksheets.Add

End Sub

'在工作表sheet2前面插入一张新的工作表

Sub addSheet()

    Worksheets.Add Before:=Worksheets("sheet2")

End Sub

'在工作表sheet2后面插入一张新的工作表

Sub addSheet()

    Worksheets.Add after:=Worksheets("sheet2")

End Sub

'在当前活跃工作表的前面插入两张新的工作表

Sub addSheet()

    Worksheets.Add Count:=

End Sub

'在工作表sheet3后面插入两张新的工作表

Sub addSheet()

    Worksheets.Add after:=Worksheets("sheet3"), Count:=

End Sub

2. Excel 修改工作表(Sheet)名称

Worksheets("工作表的旧名称").Name = "工作表的新名称"

Sub changeSheetName()

    '将工作表Sheet2的名称改为"工作表2"

    Worksheets("Sheet2").Name = "工作表2"

    '将当前活跃工作表的名称改为"工作表A"

    ActiveSheet.Name = "工作表A"

End Sub

3. Excel 移动工作表(Sheet)

方法名	参数	参数值	说明
Move	Before	工作表名称	移动工作表到指定的工作表前面
After	工作表名称	移动工作表到指定的工作表后面

'把工作表Sheet1移动到Sheet2后面

Sub moveSheets()

    Worksheets("Sheet1").Move after:=Worksheets("Sheet2")

End Sub

'把当前活跃工作表移动到Sheet1前面

Sub moveSheets()

    ActiveSheet.Move before:=Worksheets("Sheet1")

End Sub

'把工作表Sheet2移动到所有工作表的最后

Sub moveSheetToLast()

    Dim sht As Object

    Dim TARGET_SHEET As Object

    Set TARGET_SHEET = Worksheets("Sheet2")

    For Each sht In ActiveWorkbook.Sheets

        If sht.Name <> TARGET_SHEET.Name Then

            TARGET_SHEET.Move after:=sht

        End If

    Next sht

End Sub

4. Excel 拷贝工作表(Sheet)

方法名	参数	参数值	说明
Copy	Before	工作表名称	拷贝工作表到指定的工作表前面
After	工作表名称	拷贝工作表到指定的工作表后面

'把工作表Sheet1拷贝到Sheet2后面

Sub copySheets()

    Worksheets("Sheet1").Copy after:=Worksheets("Sheet2")

End Sub

'把当前活跃工作表拷贝到Sheet1前面

Sub copySheets()

    ActiveSheet.Copy before:=Worksheets("Sheet1")

End Sub

5. Excel 删除工作表(Sheet)名称

WorkSheets("工作表名").Delete

'删除当前活跃的工作表

Sub deleteActiveSheet()

    Application.DisplayAlerts = False

    ActiveSheet.Delete

    Application.DisplayAlerts = True

End Sub

'删除工作表Sheet2

Sub deleteSheet()

    Application.DisplayAlerts = False

    Worksheets("Sheet2").Delete

    Application.DisplayAlerts = True

End Sub