excel表格怎么一起重命名

1.如何用excel给文件批量重命名

原来文件名称复制到A2以下单元，再将新文件名称录入到B2以下单元，执行宏：

Sub 批量修改文件名（）

a = [a:a].Find("*", , xlValues, , , 2).Row 'A列最后可见单元的行号

For b = 2 To a

c = Range("a" & b).Value

cc = Range("b" & b).Value

Name "e：\图片\" & c As "e：\图片\" & cc

Next

End Sub

请注意修改使用上述代码中的文件路径。

2.如何批量重命名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！小伙伴们，你们学会了吗？

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 如何批量重命名工作表,从另一个工作薄一列内容比如（book1!

打开BOOK1和BOOK2 在BOOK2中进入代码窗，插入一个模块 在模块中复制以下代码，执行之 Sub AA() Windows("book1.xls").Activate '激活薄1 Set Rng = Application.Range("Sheet1!A1:A300") '符值给rng Windows("book2.xls").Activate '激活薄2 For I = 1 To Sheets.Count '设值I从表1到表N中循环 Sheets(I).Name = Rng(I, 1) '第I个表名等于第I个单元格的值 Next '继续循环I End Sub。

5.Excel中如何给单元格重新命名

、第三行的单元格。如果要将某单元格重新命名，可以采用下面两种方法： 1.只要用鼠

标单击某单元格，在表的左上角就会看到它当前的名字，再用鼠标选中名字，就可以输

入一个新的名字了。 2.选中要命名的单元格，单击“插入→名称→定义”命令，显示“

定义名称”对话框，在“在当前工作簿中的名称”框里输入名字，单击“确定”按钮即

可（）。 注意：在给单元格命名时需注意名称的第一个字符必须是字母或汉字，它最多

可包含255个字符，可以包含大、小写字符，但是名称中不能有空格且不能与单元格引用相同。