如何编写一个vba宏来自动命名具有多个选项卡的Excel电子表格上的选项卡

Question

子宏1()

暗淡的张数

sheetcount = ActiveWorkbook.Sheets.Count

出错时继续下一步

对于 i = 2 到张数：

ActiveWorkbook.Sheets(i).Name = ActiveWorkbook.Sheets(i).Range(C1).Value 下一页

活动工作簿.保存

结束子

它不起作用，当我单击“保存”时，它会在结束子之后添加 activeworksheet.save

我尝试运行它。什么也没发生，我预计选项卡名称会改变

Answer 1

这需要澄清。您要添加多少个标签？什么名字？ 每个选项卡中是否都有可以生成选项卡名称的数据？您想要根据第一个工作表/工作簿中的数据添加选项卡吗？ 另外，您可能想尝试在其中尝试一个循环来检查所有选项卡，我会在循环内插入一个 IF 语句来检查数据和名称选项卡。 然后保存工作簿。