摘要： 分享下所学的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
最后效果
Excel VBA单元格的引用方法
在VBA中经常需要引用单元格或单元格区域区域，主要有以下几种方法。 使用Range属性 VBA中可以使用Range属性返回单元格或单元格区域，如下面的代码所示。 00.00.#001 Sub RngSelect() 00.#002 Sheet1.Range("A3:F6, B1:C5").
点绿色按钮运行的。
是不是很神奇，一点按钮就实现了3个表变成12个，还改名1-12月。
肯定很多财务童鞋说大爱呀，哈哈。
Excel中VBA提取文件夹名称的方法
文章介绍excel中使用VBA代码来提取文件夹名称的具体操作步骤。 在网上看到有人用批处理命令提取文件夹名称。其实在excel中使用VBA代码也同样可以提取文件夹名称。 比如需要将电脑E盘“论坛工作资料”文件夹下面的所有文件夹名称提取出来放在excel工作表的A列，可以使用下面的代码。
