excel中如何批量按自己的设置来重命名工作表，如图-excel批量工作表重命名,wps怎么批量重命名工作表

excel工作表批量重命名的方法   
2011-10-14 21:58:10|  分类： VBA |  标签： |字号大中小 订阅  
 excel工作表重命名的方法有下面几种：  
  第一，单击菜单“格式”——“工作表”——“重命名”。   第二，单击工作表标签，右键选择“重命名”。   第三，双击工作表标签，直接对工作表重命名。 
  上面三种方法，都可以对Excel工作表重命名，不过都是一个一个工作表分别重命名。 
  如何做到excel工作表批量重命名呢？有下面两种方法，供参考： 
  第一种：利用Excel工作表现有单元格内容进行批量重命名。 
  例如：Excel工作表默认标签为sheet1,sheet2,sheet3,sheet4。如何快速重命名为1月
销售表,2月销售表,3月销售表,4月销售表。 
  sheet1工作表A1:A4单元格内容是1月销售表,2月销售表,3月销售表,4月销售表。  
  方法：按下ALT+F11，打开VBE窗口，e799bee5baa6e997aee7ad94e4b893e5b19e363单击插入——模块，复制下面代码，并运行。 
Sub 按A列数据修改表名称() 
On Error Resume Next     '忽略错误继续执行VBA代码,避免出现错误消息 
Application.Calculation = xlCalculationManual     '手动重算 
    Dim i% 
    For i = 1 To Sheets.Count         Sheets(i).Name = Cells(i, 1).Text 
    Next 
On Error GoTo 0          '恢复正常的错误提示 
Application.Calculation = xlCalculationAutomatic  '自动重算 
End Sub 
  第二种：直接批量重命名Excel工作表。 
Sub 新工作表名()     Dim i As Long 
    Application.ScreenUpdating = False     For i = 1 To Worksheets.Count         Worksheets(i).Name = "报表" & i 
    Next i     Application.ScreenUpdating = True 
End Sub 
  上面5种方法，想必能帮你解决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

方法/步骤

首先，我们来准备新的名字，对应相应的工作表，从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！小伙伴们，你们学会了吗？