主页 / computer / 问题 / 1584785
Accepted
whiskeychief
Asked: 2020-09-12 13:25:50 +0800 CST

如何在大型 Excel 工作簿中重新编号工作表？

  • 772

对于工作簿中包含多个工作表的 Excel 工作簿，如果您插入或删除工作表，则可能难以手动重命名工作表：

 Intro-A   <<== Skip this one, please
 Intro-B   <<== Skip 
 Intro-C   <<== Skip 
 Main-1    <<== Start renumbering here
 Main-2
 Main-3
           <<== Deleted
 Main-5
 Main-6...

等等。如果我在序列中插入或删除一张纸，我必须手动重新编号。如何使用 VBA 来节省时间？

microsoft-excel vba

1 个回答

  1. Best Answer

    使用宏

    我在Neseef.com的博客“系统管理员的笔记”上找到了答案，它完成了我需要的大部分工作。我添加了跳过介绍性工作表、提示输入前缀以及避免插入工作表时发生名称冲突的功能。

    宏不需要在同一个工作簿中。它可以在不同的工作簿中，只要两者同时打开。

    • ⚠注意：开始工作前 保存工作簿！
    • 您可以将下面的宏添加到您的工作簿中，或者您可以创建一个新工作簿 - 将带有宏的工作簿保存为 *.xlsm（启用宏的工作簿）。
    • 像往常一样，Alt- F11: Insert : Module 并粘贴下面的宏。
    • Alt使用-返回工作簿F4。
    • Alt使用-F8和“OK”运行宏。
    ' ** Rename Sheets ** 2020-09-10
' If you need to renumber your sheets sequentially, with a prefix,
' Like "AA-1, AA-2, AA-3" or "XX-A, XX-1, XX-2"..
' Suggested by this method: https://neseef.com/2019/03/31/excel-rename-multiple-worksheets-vbs/
' Use only on saved worksheets.  As-is.

Sub RenamingSheets()

Dim myPrefx As String

myStartSheet = InputBox("What sheet to start with? (1=first)", "Renaming Sheets")
myPrefx = InputBox("What prefix should the sheet names have?  (`BG-`, `Sheet`, etc.)", "Renaming Sheets")
myNum = InputBox("What's the first number you want to name the sheets?", "Renaming Sheets")

'Clear the names so there are no collisions
'(Temporarily set the name to a hopefully unique name)

For ws = myStartSheet To Worksheets.Count
    Sheets(ws).name = "Foo" & Worksheets.Count + ws
Next ws

'Now renumber

For ws = myStartSheet To Worksheets.Count
    Sheets(ws).name = myPrefx & myNum
    myNum = myNum + 1
Next ws

End Sub
    • 1

相关问题