☰

Excel 2010 帮助自动命名工作表

tag-icon • tag-icon microsoft-excel microsoft-excel-2010
Excel 2010 帮助自动命名工作表

我需要创建一个包含 52 张工作表的工作簿，第一张工作表命名为第 1 周，然后是第 2 周，依此类推。如何才能做到这一点而不手动重命名每张工作表。

谢谢

答案1

我没有看到实现这一点的任何限制，因此我使用了 VBA 代码：

Sub btnClick()
    Dim counter As Integer
    counter = 1
    For Each ws In ActiveWorkbook.Worksheets
        ws.Name = "Week" & counter
        counter = counter + 1
    Next
    Do While counter < 53
        Worksheets.Add().Name = "Week" & counter
        counter = counter + 1
    Loop
End Sub

这样做的目的是重命名现有工作表：因此，如果您使用新工作簿，您将有 3 个工作表，这些工作表将重命名为 week1、week2 和 week3。重命名现有工作表后，代码将生成新工作表并将其命名为“week”，并附带工作表编号。

如果您对该解决方案有更多功能或遇到麻烦，请随时发表评论。

相关内容