如何在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 增加工作表()

dim i as integer

for i =1 to sheets.count

if sheets(i).name ="期末核算" then

msgbox "已经存在"

exit sub

end if

next i

sheets.add

activesheet.name="期末核算"

end sub

---