如何将工作簿的所有工作表一次性改名？

Question

如何将工作簿中的所有工作表的名称一下子改掉？比如将1.1、1.2、1.3、1.4、1.5改成2.1、2.2、2.3、2.4、2.5。

Answer 1

将工作簿的所有工作表一次性改名方法如下：

 方法一、打开excel表格，找到下面的工作表sheet1、sheet2、sheet3栏，选择要改名的工作表.比如sheet1，单击“格式→工作表→重命名”命令.这时工作表的标签上名字将被反白显示.然后在标签上输入新的表名即可。

　　方法二、或者直接双击工作表标签即可重新命名。注意在excel命名工作表命名规则：不会区分英文大小写。

　　那么在excel中是如何批量重命名工作表呢?

　　其实这里就需要VBA代码来进行实现。下面以一个简单的案例为例，比如工作表有几十个，现在要将这几十个工作表按目前的顺序重命名为1，2，3……，输入VBA代码：

　　SUB XXX()

　　DIM I

　　FOR I=1 TO SHEETS.COUNT

　　SHEETS(I).NAME=I

　　NEXT I

　　END SUB

　　输入以上VBA代码即可实现批量重命名工作表。

Answer 2

1、先创建一个宏test2、将下列代码复制到宏编辑器里Sub test() Dim aaa As String For Each sht In ActiveWorkbook.Sheets aaa = sht.Name aaa = Mid(aaa, 2, Len(aaa)) aaa = 2 & aaa sht.Name = aaa Next shtEnd Sub3、将aaa = 2 & aaa中的2换成要替换的字符4、执行宏就ok了