excel学习库

大家好，今天跟大家分享如何利用vba代码在Excel工作簿中批量为工作表标签添加前缀。

应用案例

在下图所示的Excel工作簿“工作簿1”中有6张工作表，工作表标签从左到右依次为“1月”“2月”“3月”“4月”“5月”“6月”。接下来我们将通过vba代码批量在所有工作表标签前面添加年份“2022年”，使工作表标签依次显示为“2022年1月”“2022年2月”“2022年3月”“2022年4月”“2022年5月”“2022年6月”。

操作步骤

1 打开Excel工作簿“工作簿1”，在“开发工具”选项卡“代码”功能组中单击“Visual Basic”按钮。

2 在弹出的VBA编辑器窗口中，单击“插入”按钮，在弹出的菜单中选择“模板”选项，此时会新增一个“工作簿1-模块1（代码）”窗口。

3 在新增的“工作簿1-模块1（代码）”窗口中输入如下代码：

Sub 批量重命名()

Dim wst As Excel.Worksheet

For Each wst In ThisWorkbook.Worksheets

wst.Name = "2022年" & wst.Name

Next wst

End Sub

4 单击窗口上方的“运行子过程/用户窗体”按钮（方向向右的绿色三角符号）运行代码。

5 此时，可见“工作簿1”中6张工作表标签已全部添加了前缀“2022年”，变成了“2022年1月”“2022年2月”“2022年3月”“2022年4月”“2022年5月”“2022年6月”的样式。