可通过VBA宏批量将Excel工作表名改为指定单元格内容：基础版读取各表A1值；增强版支持自定义行列、跳过隐藏表并清理非法字符；交互版允许用户输入任意单元格地址。
如果您希望将Excel工作表的名称批量更改为对应工作表中某个单元格的内容（例如A1单元格），可以通过VBA宏代码实现自动化操作。以下是完成此任务的具体方法：
一、使用基础宏代码按A1单元格内容重命名
该方法适用于所有工作表统一读取各自A1单元格的值作为新表名，且确保A1内容符合工作表命名规则（长度≤31字符、不包含\/:*?"|、不为空或重复）。
1、按Alt + F11打开VBA编辑器。
2、在左侧工程资源管理器中，右键点击当前工作簿名称，选择插入 → 模块。
3、在新建模块窗口中粘贴以下代码：
Sub RenameSheetsByA1()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If Not IsEmpty(ws.Range("A1").Value) Then
On Error Resume Next
ws.Name = Left(ws.Range("A1").Value, 31)
On Error GoTo 0
End If
Next ws
End Sub
4、关闭VBA编辑器，返回Excel界面，按Alt + F8，选择RenameSheetsByA1并点击运行。
二、使用增强版宏指定列与行位置
该方法支持自定义读取位置（如第2行、B列），并跳过隐藏工作表，同时对非法字符进行自动清理，提升兼容性与安全性。
1、按Alt + F11打开VBA编辑器，插入新模块。
2、粘贴以下代码：
Sub RenameByCustomCell()
Dim ws As Worksheet, cellVal As String, newName As String
Dim rowIdx As Long, colIdx As Long
rowIdx = 2
colIdx = 2 ' 表示B列
For Each ws In ThisWorkbook.Worksheets
If ws.Visible = xlSheetVisible Then
cellVal = Trim(ws.Cells(rowIdx, colIdx).Value)
If cellVal "" Then
newName = CleanSheetName(cellVal)
On Error Resume Next
ws.Name = newName
On Error GoTo 0
End If
End If
Next ws
End Sub
Function CleanSheetName(s As String) As String
Dim i As Integer
CleanSheetName = Left(Replace(Replace(Replace(Replace(Replace(Replace(Replace(s, "\", ""), "/", ""), ":", ""), "*", ""), "?", ""), """", ""), "
For i = 1 To Len(CleanSheetName)
If Mid(CleanSheetName, i, 1) = ">" Or Mid(CleanSheetName, i, 1) = "|" Then
CleanSheetName = Replace(CleanSheetName, Mid(CleanSheetName, i, 1), "")
End If
Next i
CleanSheetName = Trim(CleanSheetName)
If CleanSheetName = "" Then CleanSheetName = "Sheet"
End Function
3、按F5直接运行该宏，或返回Excel后通过Alt + F8调用RenameByCustomCell。
三、使用带用户交互的宏动态选择区域
该方法通过输入框让用户指定读取单元格地址（如“Sheet1!C5”或仅“C5”），支持跨表引用，适合多表结构不一致的场景。
1、在VBA编辑器中新建模块，粘贴以下代码：
Sub RenameWithInputBox()
Dim ws As Worksheet, refAddr As String, targetCell As Range, valStr As String
refAddr = InputBox("请输入要读取的单元格地址（例如：A1 或 Sheet2!B3）", "指定源单元格")
If refAddr = "" Then Exit Sub
For Each ws In ThisWorkbook.Worksheets
On Error Resume Next
Set targetCell = ws.Range(refAddr)
On Error GoTo 0
If Not targetCell Is Nothing Then
valStr = Trim(targetCell.Value)
If valStr "" Then
On Error Resume Next
ws.Name = Left(valStr, 31)
On Error GoTo 0
End If
Set targetCell = Nothing
End If
Next ws
End Sub
2、运行宏后，弹出输入框，输入目标单元格地址（如D1或DataSheet!E2）。
3、确认后，宏将逐个工作表解析该地址并重命名。
