如何在excel 用VBA插入多个工作表并命名要用到宏给...-excel如何添加vba,excel中加入vba按钮

新建： Sheets.add
重命名：activesheet.name="文件名"
具体的你百录一段宏,然后按alt+F11进去度看一下代码.不过,录制的宏中的代码重命名是这样的.比如回你将sheet1改为:文件1,它的代码为: Sheets("Sheet1").name="文件1", 我用activesheet,表示当答前工作表.

具体操作步骤如下：

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

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

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

Option Explicit

Sub addwork()

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

End Sub，

如图所示。

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

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

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

建一个模块，百把以下代码复制度进去，然后建问个按钮答，指定宏abc，如果有内100个名字，把下容面，for i=1 to 3改成for i=1to 100
Sub abc( )
for i=1to 3
sheets.add
activesheet.name=Range("a"& i)
Next
End sub

用VBA在excel中添加一个工作表并且对其命名zd的实现方法和操作步骤如下：

1、首先，在Excel中按快捷键“Alt + F11”，如下图所示。

2、其次，在VBA编辑器中依次单击“插入”-->“模块”，如下图所示。

3、然后，在“模块”中输入如下代码：

Option Explicit

Sub addwork()

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

End Sub

4、接着，在VBA编辑器的左侧输入模块的名称，如下图所示。

5、随后，关闭VBA编辑器，返回到Excel工作内表，然后依次单击“视图”-->“宏”-->“查看宏”，如下图所示。

6、最后，在弹出的窗口中单击宏名称，然后单击“执行”按钮即可，如下图所示。这样就实现了用VBA在excel中添加一个工作表并且对其命名的功能了。容