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

二号杨杨嘎嘎

从画圈圈开始名称修改为表格名字里的新名称

小凡、、、

公式有的返回/na的先处理好

demonimissyou

数组循环+SHEETS循环就行了

ykcbf1100

批量工作表改名

ykcbf1100

工作表重命名

1. Sub ykcbf()       '//重命名
   
2.     Application.ScreenUpdating = False
   
3.     With Sheets("名字")
   
4.         r = .Cells(Rows.Count, 1).End(3).Row
   
5.         zrr = .[a2].Resize(r - 1, 1)
   
6.     End With
   
7.     For Each ws In ThisWorkbook.Sheets
   
8.         If ws.Name = "名字" Then
   
9.             x = ws.Index
   
10.             Exit For
    
11.         End If
    
12.     Next ws
    
13.     On Error Resume Next
    
14.     For i = 1 To UBound(zrr)
    
15.         Sheets(i + x).Name = zrr(i, 1)
    
16.     Next
    
17.     Application.ScreenUpdating = True
    
18.     MsgBox "OK！"
    
19. End Sub
    

复制代码

usedrange

1. Sub tt()
   
2.     Dim sh, na$, dic, n
   
3.     Set dic = CreateObject("scripting.dictionary")
   
4.     For Each sh In Sheets
   
5.         dic(sh.Name) = ""
   
6.         Sheets(sh.Name).Activate
   
7.         n = [BN15]
   
8.         If Not WorksheetFunction.IsNA(Cells(15, "BN")) And sh.Index > 26 Then
   
9.             na = [BL14] & n
   
10.             If dic.exists(na) Then
    
11.                 MsgBox "表格名称 [" & na & "] 已存在！"
    
12.             ElseIf n <> "" Then
    
13.                 dic(na) = ""
    
14.                 sh.Name = na
    
15.             End If
    
16.         End If
    
17.     Next sh
    
18.     Set dic = Nothing
    
19. End Sub

复制代码

二号杨杨嘎嘎

ykcbf1100 发表于 2024-8-21 16:31
批量工作表改名

太感谢，怎么操作可以教我么，我还有好多要弄的

二号杨杨嘎嘎

demonimissyou 发表于 2024-8-21 15:44
数组循环+SHEETS循环就行了

听不懂，小白一个

二号杨杨嘎嘎

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

排序呢，就是数字从小排到大，麻烦再帮忙看下

A刘志勇

在老师的基础上做了排序，你试试