怎样用VBA在excel中添加一个工作表并且对其命名

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

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

VBA代码可以通过记录宏来得到。

举例说明。

第一步：按开发工具-录制宏。如图：

第二步：新建工作簿-插入新的工作表。

第三步：按停止录制按钮。如图：

这样就得到了刚才新建工作簿，插入新表的代码。如下所示：

Sub Macro5()

'

' Macro5 Macro

'

'

  Workbooks.Add

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

End Sub

---