如何快速的修改工作薄中的名字

lsf7528

您好。楼主，很着急


   我们公司重组，还要做预算，所以修改了大概有92张报表，要汇总合并，最后的合并中的工作薄的名字，如何可以批量修改，还有各个表中的公式，也设错了，如何批量的修改呢，我用ctrl+`,但是修改好辛苦，就是没办法来保存，总是跳出来对话框，请指教！

以下是附件，请帮忙把 各个工作薄的-1，-2，都去掉
还用各个工作薄中的公式中含有-1，-2，-3，-4 都去掉

LangQueS

建议楼主请程序开发版的朋友帮助解决。

本帖转移到程序版。

HHAAMM

附件只有一个“合并报表.xls”，没看到别的工作薄
“各个工作薄中的公式中含有-1，-2，-3，-4 都去掉”，楼主来个示例，太笼统了！！

HHAAMM

啊！！

这么多到其它工作薄的连接

HHAAMM

excel不是这个用法呀，用VBA处理一下，很简单的

lsf7528

我的QQ 17513103，然后我的可以加我吗，就是把各个报表都改个名字就好了

zjpxl

Sub 重命名工作表()
Dim str As String
For Each a In ThisWorkbook.Worksheets
str = Right(a.Name, 2)
If str = "-1"  or str="-2" Then
a.Name = Left(a.Name, Len(a.Name) - 2)
End If

Next

End Sub
公式怎么去"-1"、"-2"就不知了！

dreammeinana

哈哈，看起来很复杂哦，
我对VBA一点都不了解。