分享下所學的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月。
肯定很多財務童鞋說大愛呀，哈哈。
