请教高手怎样可以把EXCEL表格中的子表格批量重命名呢?

Question

请教高手怎样可以把EXCEL表格中的子表格批量重命名呢?我这人比较笨,得手把手教.QQ:87184697

Answer 1

亲，让你失望了，网络受限，没法手把手教。
不过，还是努力提供支持和帮助。
这个需要VBA编程解决，请问批量命名成什么？或者按什么规则命名？
最好截图上来，举例说明你的要求。追问

上传不了图片啊,就是把表格下面的Sheet1\Sheet12.......重命名,改成1号2号这样,一直到31号,总共一个月的,每天写一个表

追答

你的意思是不是说你现在已经有31个表了，从Sheet1/Sheet2/Sheet3/....../Sheet31，希望重命名为1号/2号/3号/……/31号？

 

注意！！！运行一下代码前，请务必备份你的源文件！！！

打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧随便找一个Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。

 

Sub cmm()
On Error Resume Next
Dim i As Integer
For i = 1 To 31
    If Sheets(i) Is Nothing Then
        Exit For
    Else
        Sheets(i).Name = i & "号"
    End If
Next
End Sub

追问

按ALT+11是这样的

追答

点击菜单“视图”，按下图，选择一下显示的窗口。