=====================
Sub 根据指定单元格内容批量命名工作表()
Dim a%
For a = 1 To Sheets.Count
Sheets(a).Name = Sheets(a).Range("a1")
Next
End Sub
=====================
Sub 根据各工作表指定位置单元格内容命名工作表()
On Error Resume Next
Dim sh As Worksheet
For Each sh In Worksheets
sh.Name = sh.Range("a1")
Next
End Sub
=====================
=====================
=====================
=====================
=====================
=====================
=====================
=====================
=====================
=====================
=====================
=====================
=====================