如图,需要把工作表名称改为10月1日~10月31日。
第1个回答 2018-10-15
7-3 改成 10-3? 是这样么?
还是怎样修改, 1-AUG 这个表要修改么追问
Sub 改名()
For Each sht In ThisWorkbook.Sheets
sht.Name = "10-" & Format(CDate(Split(sht.Name, "(")(0)), "d")
Next
End Sub追问
还是怎样修改, 1-AUG 这个表要修改么追问
是的。从第一个1-AUG开始,从左往右,依次改为10月1日,10月2日。但每个工作表里的内容不变。
追答右键点工作表名-查看代码 ,如下代码复制进去 ,F5运行
随便写的 没测试
Sub 改名()
For Each sht In ThisWorkbook.Sheets
sht.Name = "10-" & Format(CDate(Split(sht.Name, "(")(0)), "d")
Next
End Sub追问
不行,报错
追答最讨厌 别人说不行 又不说原因, 你特么人品不行