关于工作簿改名

lizhed001

如图 工作簿需要改名字只保留最右侧横杠后面的数值 请大神帮写程序，第一个工作簿（汇总）无需修改

lizhed001

除了第一个名为“汇总”的工作簿外其余的都需要修改一下

microyip

1. for each wsh in sheets
   
2. 检查是否需要改名，需要时，wsh.name改为你需要的名字
   
3. next

复制代码

wodewan

Sub test()
Dim sht, i&
For Each sht In Sheets
    If sht.Name <> Me.Name And InStr(sht.Name, "-") > 0 Then sht.Name = Split(sht.Name, "-")(2)
Next
End Sub

lizhed001

wodewan 发表于 2019-12-17 09:19
Sub test()
Dim sht, i&
For Each sht In Sheets

编译错误：无效使用ME关键字

wodewan

lizhed001 发表于 2019-12-17 09:26
编译错误：无效使用ME关键字

放汇总表sheet，或你自己看附件

lizhed001

wodewan 发表于 2019-12-17 09:47
放汇总表sheet，或你自己看附件

感谢感谢