二、 Excel 工作表(Sheet)的操作
1. Excel 添加工作表(Sheet)
| 方法名 | 参数 | 参数值 | 说明 |
|---|---|---|---|
| Add | Before | 工作表名称 | 在指定的工作表前面插入新的工作表 |
| After | 工作表名称 | 在指定的工作表后插入新的工作表 | |
| Count | 数值 | 要添加的工作表数量 | |
| Ｔｙｐｅ | 类型 |
'在当前活跃工作表的前面插入一张新的工作表Sub addSheet() Worksheets.AddEnd 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:=2End Sub '在工作表sheet3后面插入两张新的工作表Sub addSheet() Worksheets.Add after:=Worksheets("sheet3"), Count:=2End 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 shtEnd 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 = TrueEnd Sub '删除工作表Sheet2Sub deleteSheet() Application.DisplayAlerts = False Worksheets("Sheet2").Delete Application.DisplayAlerts = TrueEnd Sub