excel，谁给个修改sheet名字的宏。很多个sheet。基本就是替换关键字。

Question

要求是把所有的sheet名字中含有‘天上天下’的，把‘天上天下’改为‘天天’。
sheet的名字一般是 日期+空格+表名+‘天上天下’ 有很多名字。其他的不改，只改‘天上天下’部分。

Answer 1

Sub a()
Dim Sht As Worksheet
Dim I, J As Integer

For Each Sht In ThisWorkbook.Sheets
Sht.Name = Replace(Sht.Name, "天上天下", "天天")
Next

End Sub

追问

能不能做成，打开一个工作表，设置快捷键后， 可以在其他工作表使用的？ 这里使用ThisWorkbook.Sheets 是不是就不能打开本表的情况下，在其他工作表使用？
我发现另存为后，此公式用快捷键也不能使用了

追答Sub a()
Dim Sht As Worksheet
Dim I, J As Integer
 
For Each Sht In Application.Worksheets
Sht.Name = Replace(Sht.Name, "Sheet", "天天")
Next
 
End Sub

就可以操作别的工作表了。