Question

VBA问题，复制工作表并重命名

我的有工作簿里面只有一个工作表，现在要让他复制100个工作表，并重命名为1，2，3，4……100。请问代码是什么？

Answer 1

1、打开需要改名的工作薄，例如，需要5个工作表，则创建5个工作表。

2、按下alt+F11组合键，进入VBA代码窗口。

3、写入代码（如图），完成后保存退出。

4、在工作表1中操作：工具－宏－宏。

5、选择执行的宏名称，执行。则工作表名称全部修改成相应表格中A2单元格内容。

6、如果要改成其它名称的话，把Sheets(x).Name = Sheets(x).Range("A2")中的Sheets(x).Range("A2")修改就可以。

Answer 2

把以下代码copy进入ThisWorkbook并运行就可以了。

Sub a()
Dim i As Integer
For i = 1 To 100
ActiveSheet.Copy after:=ActiveSheet
ActiveSheet.Name = i
Next i
End Sub