大神帮忙批量修改多个sheef名称

ykcbf1100

二号杨杨嘎嘎 发表于 2024-8-21 17:02
太感谢，怎么操作可以教我么，我还有好多要弄的

代码已经给你了啊。

二号杨杨嘎嘎

A刘志勇 发表于 2024-8-21 19:11
在老师的基础上做了排序，你试试

谢谢我看下

二号杨杨嘎嘎

ykcbf1100 发表于 2024-8-21 19:21
代码已经给你了啊。

嗯嗯我看到啦，谢谢老师

二号杨杨嘎嘎

ykcbf1100 发表于 2024-8-21 16:32
工作表重命名

老师我又新加了名字，可是改不了呀，点重命名把之前改的那些覆盖了，然后我新加的那些没有改动

ykcbf1100

二号杨杨嘎嘎 发表于 2024-8-22 10:33
老师我又新加了名字，可是改不了呀，点重命名把之前改的那些覆盖了，然后我新加的那些没有改动

原来的代码是按照工作表的索引号来重命名的，重命名的是名字表右侧的表。如果右侧有已经更名过的工作表，则表名可能被覆盖。在这种情况下，你在重命名前应该把名字表右侧已经更名过的工作表移到名字表的左侧才行。
还有一个办法，不是重命名，而是让代码根据名字表中的名字，先去判断这个工作表是否已存在，如果不存在，则新建一个工作表，按名字表的名字命名表名，同时也可以把模板表复制进去。
你看一下，用哪个方法更合适你。

二号杨杨嘎嘎

ykcbf1100 发表于 2024-8-22 11:20
原来的代码是按照工作表的索引号来重命名的，重命名的是名字表右侧的表。如果右侧有已经更名过的工作表， ...

第二种更简便耶，那要麻烦你帮忙，我不会

ykcbf1100

二号杨杨嘎嘎 发表于 2024-8-22 15:55
第二种更简便耶，那要麻烦你帮忙，我不会

这就不是批量重命名了，而是批量新建工作表了。

新建的工作表已把“收购合同”表内容复制进去，表内相应内容自行修改。
用了字典，不必担心会把已有的工作表覆盖。

ykcbf1100

批量新建工作表

1. Sub ykcbf2()       '//2024.8.22   批量新建工作表
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Set sh = ThisWorkbook.Sheets("名字")
   
5.     For Each sht In Sheets
   
6.         If sht.Name <> sh.Name Then d(sht.Name) = ""
   
7.     Next
   
8.     With sh
   
9.         r = .Cells(Rows.Count, 1).End(3).Row
   
10.         zrr = .[a2].Resize(r - 1, 1)
    
11.     End With
    
12.     On Error Resume Next
    
13.     For i = 1 To UBound(zrr)
    
14.         s = zrr(i, 1)
    
15.         If Not d.exists(s) Then
    
16.             Sheets("模板").Copy After:=Sheets(Sheets.Count)
    
17.             Set sht = Sheets(Sheets.Count)
    
18.             sht.Name = zrr(i, 1)
    
19.         End If
    
20.     Next
    
21.     Application.ScreenUpdating = True
    
22.     MsgBox "OK！"
    
23. End Sub
    
24. 
    

复制代码

二号杨杨嘎嘎

ykcbf1100 发表于 2024-8-22 16:08
这就不是批量重命名了，而是批量新建工作表了。

新建的工作表已把“收购合同”表内容复制进去，表内相 ...

老师感觉好像不行呀，收购表里面的名字都没了

ykcbf1100

二号杨杨嘎嘎 发表于 2024-8-22 17:05
老师感觉好像不行呀，收购表里面的名字都没了

我前面就说了，新表只是复制了模板，数据要你自己补上的。那些数据我又没地方来。