如何用VBA更改多个工作薄中工作表的名称？谢谢！

wpeidong

怎样用VBA代码将附件1.xlsx、2.xlsx工作表名称中的“1-、2-……”去掉，形成“结果1.xlsx、结果2.xlsx"那样的文件（运行代码后还是1.xlsx、2.xlsx文件，只不过工作表的名称改变了）。谢谢！

外块300

sub 去杠号()
for i = 1 to sheets.count
s = split(sheets(i).name , "-")(1)
sheets(i).name = s
next
end sub

魚。。

把附件和需要修改的工作薄放在同一个文件内，然后执行

wpeidong

魚。。 发表于 2022-5-17 09:07
把附件和需要修改的工作薄放在同一个文件内，然后执行

非常感谢您的回复！您的代码非常正确，解决了我的大问题，谢谢您！

wpeidong

外块300 发表于 2022-5-17 09:01
sub 去杠号()
for i = 1 to sheets.count
s = split(sheets(i).name , "-")(1)

感谢您的回复！您给的代码一次只能修改一个工作薄，感谢您！

ruijiaqi

Sub 按钮1_Click()     Dim rg As Worksheet     Dim sh As Integer     For Each rg In ThisWorkbook.Worksheets         sh = InStr(1, rg.Name, "-")         rg.Name = VBA.Mid(rg.Name, sh + 1, Len(rg.Name) - sh + 1)     Next rg     Set rg = Nothing End Sub

wpeidong

ruijiaqi 发表于 2022-5-17 14:07
Sub 按钮1_Click()     Dim rg As Worksheet     Dim sh As Integer     For Each rg In ThisWorkbook.Work ...

非常感谢您的回复！