VBA 4：worksheets 工作表對象 add、delete、copy、count、name、批量新增表、批量刪除表、匯總

1.add、count、name

新增工作表，將新增工作表按照月份命名 如1月、、、、、12月

方法一：

Sub xzyfb1()

Dim i As Integer

For i = 1 To 12

Sheets.Add after:=Sheets(Sheets.Count)

Sheets(Sheets.Count).Name = i & "月"

Next

End Sub

 

方法二

Sub xzyfb2()

Dim i As Integer

For i = 1 To 12

Sheets.Add after:=Sheets(Sheets.Count)

Sheets(i + 1).Name = i & "月"

Next

End Sub

 

2.批量新增表

'批量新增表
Sub xinzeng()

Sheets.Add Count:=10

 End Sub

 

3. delete 批量刪除表.

方法一

Sub sc()

Dim i As Integer

Worksheets.Application.DisplayAlerts = False

For i = 1 To 10

Sheets(1).Delete

Next

Worksheets.Application.DisplayAlerts = True

End Sub

 

'批量刪除表方法2

Sub sc2()

Dim i As Integer

Worksheets.Application.DisplayAlerts = False

For i = Sheets.Count To 2 Step -1
Sheets(i).Delete

Next

Worksheets.Application.DisplayAlerts = True

End Sub

4.匯總

'匯總，將表格名稱匯總到 第一張表上

Sub hz()
Dim i As Integer

For i = 2 To Sheets.Count
Sheets(1).Range("a" & i - 1) = Sheets(i).Name

Next

End Sub

5.copy

'將sheet149 復制放置到最后面
Sub fz()
Sheet149.Copy after:=Sheets(Sheets.Count)
End Sub