请教工作表一键命名问题

wslpsjh

根据目录表中的序号，命名相对应序号表的名称，例：1表改名为班子。。。。以此类推，13表改名为质标队

gwjkkkkk

请参考图片

ykcbf1100

参与一下。。。

ykcbf1100

代码调试通过。。。

1. Sub ykcbf()  '//2024.2.4
   
2.     With Sheets("目录")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         arr = .Range("a1:b" & r)
   
5.     End With
   
6.     On Error Resume Next
   
7.     For i = 2 To UBound(arr)
   
8.         fn = CStr(arr(i, 1))
   
9.         Sheets(fn).Name = arr(i, 2)
   
10.     Next
    
11.     MsgBox "OK！"
    
12. End Sub
    
13. 
    

复制代码