怎么根据单元格内容修改表名

徐庆征

问一下怎么根据单元格里面的字符修改表名，就是我想要人名字变成表名字。

活在理想的世界

1. Sub d()
   
2. Dim sht As Worksheet, rng As Range
   
3. For Each sht In Sheets
   
4.     Set rng = sht.Range("a1")
   
5.     sht.Name = Split(rng, "：")(1)
   
6. Next
   
7. End Sub

复制代码

徐庆征

活在理想的世界 发表于 2019-6-19 11:39

真的谢谢您啦