批量添加工作表VBA

nnsea

Sub MyAddsh_2()

Dim i As Integer

Dim sh As Worksheet

For i = 1 To 8

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

sh.Name = i

Next

End Sub

nnsea

代码解析：MyAddsh_2过程使用For...Next 语句和Add方法在工作簿中添加8张工作表并将添加的工作表依次重命名。