批量修改工作表名称后缀

salen0913

需求：
需要将每个分组的表名称改为:分组-组长-业绩

例如：
1组 → 1组-杨洋-89585
2组 → 2组-热巴-75051

附件已上传，感谢大神相助o(*￣︶￣*)o~！

shiruiqiang

小白练手，不包售后

gwjkkkkk

请参考。。。

沈默00

三楼老师这个好用

fzxba

1. Sub test0() '可多次调整组长、业绩等
   
2.   Dim ar, i As Long, wks As Worksheet, dict As Object 'New Dictionary
   
3.   Set dict = CreateObject("Scripting.Dictionary")
   
4.   For Each wks In Worksheets
   
5.     If wks.Name <> "汇总" Then dict.Add Split(wks.Name, "-")(0), wks.Name
   
6.   Next
   
7.   ar = Range("A1").CurrentRegion
   
8.   For i = 2 To UBound(ar)
   
9.     If dict.Exists(CStr(ar(i, 1))) Then
   
10.       Worksheets(dict(CStr(ar(i, 1)))).Name = ar(i, 1) & "-" & ar(i, 2) & "-" & ar(i, 3)
    
11.     End If
    
12.   Next
    
13.   Set dict = Nothing
    
14. End Sub

复制代码

salen0913

fzxba 发表于 2023-7-8 10:13

非常感谢   这个好用

yanglinzi

路过，练练手。
Sub test()
arr = Sheets("汇总").[a1].CurrentRegion
For i = 2 To UBound(arr)
    For Each sh In Sheets
        If InStr(arr(i, 1), sh.Name) > 0 Then
            sh.Name = arr(i, 1) & "-" & arr(i, 2) & "-" & arr(i, 3)
        End If
    Next
Next
End Sub