Excel for VBA：對象枚舉循環For each

分享下所學的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月。

肯定很多財務童鞋說大愛呀，哈哈。