如何用VBA将工作簿中所有工作表用每个工作表中特定单元格来命名,求完整代码

2025-04-05 00:42:05
推荐回答(1个)
回答1:

Sub ss()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.[b6] <> "" Then
a$ = sh.[b6].Text & " "
sh.Name = Left(a, InStr(a, " ") - 1)
End If
Next
End Sub