Question

我有大约50个工作簿，每个工作簿有两个选项卡。我想重命名与工作簿名称相同的第一个工作表。当工作簿中只有一个工作表选项卡时，我知道如何处理此问题。但它不适用于多个选项卡。如何使用VBA动态重命名与工作簿名称同名的工作表？

Answer 1

这会将工作表重命名为与其所在的工作簿同名：

Worksheets(1).Name = ActiveWorkbook.Name

如果有多个工作簿，并且您想要自动重命名每个工作表，则可以围绕此语句构建一个循环，打开每个工作簿，然后运行上面的代码行。