如何在excel 用VBA插入多个工作表并命名。要用到宏。给分给分~

具体 *** 作步骤如下：

1、第一步，打开Excel表格，在主界面按Alt+f11下快捷键，如图所示。

2、第二步，进入到VBA编辑器，点击上面菜单栏中的插入，再选择【模块】，如图所示。

3、第三步，在d出的模块窗口中，输入下面的代码：

Option Explicit

Sub addwork()

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

End Sub，

如图所示。

4、第四步，输入好后，在编辑器的左侧，输入模块的名称。如图所示。

5、第五步，关闭编辑器窗口，返回到表格中，点击上方菜单栏中的视图，再点击下方菜单栏的宏，选择查看宏，如图所示。

6、最后一步，在d出的宏窗口中，单击宏名，再单击【执行】就可以了，如图所示。

Sub 插入工作表()

    For i = 1 To 20

        If Sheets.Count < 22 Then

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

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

        End If

    Next

End Sub

---