怎么给工作表重命名excel表格

1.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

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

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 t()

Set nameRange = Sheets("sheet1").UsedRange

For Each r In nameRange.Rows

Debug.Print r.Address

oldName = r.Cells(1)

newName = r.Cells(2)

Rename oldName, newName

Next

End Sub

Sub Rename(ByVal oldName As String, ByVal newName As String)

For Each sht In Worksheets

If UCase(sht.Name) = UCase(oldName) Then

sht.Name = newName

Exit For

End If

Next

End Sub

4.在EXCEL 2010中如何为工作表命名

1、首先，打开Excel2010软件并输入数据进行编辑。

2、其次，找到重命名功能。在第一列中，以单元格格式重命名。

3、选择要重命名的表单。这非常重要，否则表格会被误认。

4、鼠标点击重命名，表格中的字体会变黑，然后你可以直接编辑它。

5、快捷方式，你也可以选择右键单击表格在跳出额选项里进行重命名。