怎么快速命名EXCEL表格附表

1.如何批量重命名excel的工作表名称

方法/步骤

首先，我们来准备新的名字，对应相应的工作表，从A2单元格开始，A1存放标题字段。

新名字全部准备好后，然后任意工作表标签右击，点击查看代码，或者ALT+F 11快捷键，调出VBE对话框。

进入VBE对话框后，右击thisworkbook，选择插入，然后选择模块。

双击模块，进入代码输入框输入一下代码

Sub 重命名（）

Dim i&

For i = 2 To Sheets.Count

Sheets(i).Name = Sheets(1).Cells(i, 1)

Next

End Sub

也可以记住，下次直接粘贴即可，代码通用。

然后点击开发工具选项卡，在控件下面选择按钮控件（开发工具选项卡一般默认是没有的，具体可参考我前面的经验，有具体介绍如何调出）

在空白处，拖动鼠标，画出一个大小适合的按钮，然后右击选择制定宏。

选择重命名，然后点击确定。

8

最后点击按钮，看看效果吧，已经全部重命名。OK！小伙伴们，你们学会了吗？

2.excel 怎么给工作表批量命名

亲，这个要用VBA编程。请告知具体命名规则。

打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。

Sub cmm()

Dim i As Integer

For i = 1 To Sheets.Count

Debug.Print Sheets(i).Name '这一句更改为你的命名规则

Next

End Sub

3.excel如何批量重命名工作表

Sub test()

Dim i As Byte

For i = 1 To ThisWorkbook.Sheets.Count

Sheets(i).Name = 2 & "????" & i & "????"

Next i

End Sub

把2改为你要的月份就可以了。也可以这样

Sub test()

Dim i, m As Byte

m = InputBox（"请输入月份"， "Hello"）

For i = 1 To ThisWorkbook.Sheets.Count

Sheets(i).Name = m & "月" & i & "日"

Next i

End Sub

每次会要求你输入一月份。

4.excel批量重命名工作表名称

Sub test()

Dim i As Integer

Application.ScreenUpdating = False

For i = 1 To ThisWorkbook.Sheets.Count

Sheets(i).Name = 2010000 + i

Sheets(i).Range("B5") = 2010000 + i

Next i

Application.ScreenUpdating = True

End Sub

5.如何用Excel做批量命名

用Excel和DOS命令批量修改文件名

1、点击Windows左下角的“开始”菜单，选择“运行”，输入 cmd ，回车进入命令行。

2、用 cd 命令进入到你想批量修改文件名的文件夹目录。比如这里，我想要进入C盘中的pics文件夹。

cd

cd pics

3： 输入 dir /b 你可以看见当前文件夹目录下面全部文件的列表。

输入 dir /b > pics.xls 将的列表输出到pics.xls电子表格。

4： 有趣的东西现在才开始。打开Excel或Google Docs电子表格，你会在第一列中看到刚才文件列表。

5： 在旁边空白的列中，添加一个相应的function函数公式——例如，使用SUBSTITUTE可以来修改文件名中指定的字符，使用 CONCATENATE（) 和 DATE（) 可以在文件名中加上日期，等等。

6： 如上图，选中B1单元格右下角的+加号，向下拖动，这样我们的公式将被复制应用到所有行。

现在，你原来的文件名在A列，你期望替换成的文件名在B列——我们现在要将它们转化为DOS中的rename命令。

在C列，输入Excel公式：

=CONCATENATE("ren ",A1, " ", B1)

点击函数的对号，确认输入无误后，拖到右下角的+加号，应用到所有行。

7： 选中C列，点击“复制”，在C盘pics文件夹目录下，创建一个rename.bat文件，将复制的内容粘贴进去。

8： 现在我们已经基本要完成了。在C:pics>；下输入命令rename.bat，然后回车，你会发现pics目录下的文件名已经按照你期望的方式全部被修改了。

6.excel批量命名

Add 模板文件名

文件名 = "模板.xls".Close

For 行 = 原表.UsedRange.Row To 原表.UsedRange.Row + 原表；".UsedRange.ScreenUpdating = False

Set 原表 = ActiveSheet

Workbooks.Add

ActiveWindow.Zoom = 140

Cells;C.Font.Size = 6

Cells; Then

Workbooks;

ActiveWorkbook.ShrinkToFit = True

模板文件名 = Environ("TEMP") & "\.Rows.Count + 1

数字 = 原表.Cells（行， 1）

If 数字 <> ".SaveAs 模板文件名

ActiveWorkbook：\" & 原表.Cells（行， 1） & "按Alt+F8，在“宏名（M）：”下的输入框内输入“批量创建表格”，单击“创建（C）”按钮，在打开的VBA编辑器里把下面的代码贴进去，按F5运行

Sub 批量创建表格（）

Application