Excel for VBA：对象枚举循环For each

办公教程导读

收集整理了【Excel for VBA：对象枚举循环For each】办公软件教程，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含356字，纯文字阅读大概需要1分钟。

办公教程内容图文

分享下所学的VBA。下面代码很适合财务童鞋做报表。
首先假定你的工作簿打开就是3个工作表的打开Excel，按alt+F11，进入编辑器，然后插入模块。
框里输入
Sub addchange() ‘添加9个然后统一改名为1-12月
Worksheets.Add Count:=9 ‘添加12-3个工作表，对象.方法（setting）
For Each tsheet In ActiveWorkbook.Worksheets’tsheet代表this sheet
i = i + 1’i从0开始
tsheet.Name = i & "月"’改名工作表的名称。
Next

End Sub
最后效果

点绿色按钮运行的。
是不是很神奇，一点按钮就实现了3个表变成12个，还改名1-12月。

肯定很多财务童鞋说大爱呀，哈哈。