VBA工作表操控备忘

最新推荐文章于 2023-08-17 15:51:44 发布

Gordennizaicunzai

最新推荐文章于 2023-08-17 15:51:44 发布

阅读量730

点赞数

分类专栏： VBA 文章标签： VBA 工作表

本文链接：https://blog.csdn.net/Gordennizaicunzai/article/details/73611972

版权

本文档记录了使用VBA进行工作表操作的要点，包括如何插入工作表，并在插入前进行存在性检查。

摘要由CSDN通过智能技术生成

1、工作表插入：

Sub 插入工作表()
Sheets.Add
End Sub
Sub 插入多个工作表()
Sheets.Add Count:=2
End Sub

Sub 指定位置前插入工作表()
Sheets.Add Before:=Sheets("Sheet2")
End Sub
Sub 指定位置后插入工作表()
Sheets.Add after:=Sheets("Sheet2")
End Sub

Sub 指定最后位置后插入工作表()
Sheets.Add after:=Sheets(Sheets.Count)
End Sub

Sub 指定最前位置插入工作表()
Sheets.Add Before:=Sheets(1)
End Sub
Sub 插入单个工作表并命名()
Dim sh As Object
Set sh = Sheets.Add
sh.Name = "1月"
End Sub
Sub 插入单个工作表并命名1()
Sheets.Add
ActiveSheet.Name = "2月"
End Sub
Sub 插入多个工作表并命名()
  Dim i As Integer
  For i = 1 To 12
    Sheets.Add
    ActiveSheet.Name = i & "月"
  Next i
End Sub

2、工作表选取：

Sub 选取指定工作表()
Sheets("sheet1").Select
End Sub
Sub 选取指定工作表1()
Sheets("sheet1").Activate
End Sub

Sub 选取多个工作表工作表()
Sheets(Array("sheet1", "sheet2", "sheet3")).Sel