分享下所学的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月 。
【Excel for VBA：对象枚举循环For each】肯定很多财务童鞋说大爱呀 ， 哈哈 。

猜你喜欢

• 怎么隐藏Excel常用工具栏
• Excel VBA“对于指定的操作，该主题不受信任。”的解决方法
• Excel条件格式图标集的使用实例教程
• Excel vba添加批注的代码写法实例教程
• 怎么在Excel表格中编辑“宏”
• Excel VBA实现按名称循环出现特定次数
• Excel 工作表个数计算
• 怎么查询Excel注册组织名称
• 实现分列的两段excel vba 分列代码
• Excel VBA中实现数组排序的多种方法