分享下所學的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“對于指定的操作，該主題不受信任?！钡慕鉀Q方法
• Excel條件格式圖標集的使用實例教程
• Excel vba添加批注的代碼寫法實例教程
• 怎么在Excel表格中編輯“宏”
• Excel VBA實現按名稱循環出現特定次數
• Excel 工作表個數計算
• 怎么查詢Excel注冊組織名稱
• 實現分列的兩段excel vba 分列代碼
• Excel VBA中實現數組排序的多種方法