
2020年09月20日,我為了專案的測試計畫能更自動的撰寫,研究了EXCEL巨集(VBA語法),雖然網路上資源很多,有很多很厲害的語法,但是對於初學者來說,如何思考要使用什麼樣的資源,並寫下自己改良的code,這思考的流程,我想要把它紀錄下來,這一系列的文章,總共會分為以下主題,如你有興趣可以直接連接到那一篇去看。
- 第一篇:EXCEL巨集(VBA語法)合併儲存格也能自動設定行高(列高)
- 第二篇:EXCEL巨集(VBA語法)用迴圈批量新增分頁並重新命名
- 第三篇:EXCEL巨集(VBA語法)用迴圈將特定分頁資料複製到不同分頁
- 第四篇:EXCEL巨集(VBA語法)使用迴圈遇到超出陣列索引怎麼辦?
第二個部分,用迴圈批量新增分頁並重新命名
我在Google搜尋了「vba自動新增分頁」,在Youtube找到了一個相關資源。
在code裡面,我在原本的基礎上面,增加了一些註解,給大家參考可以怎麼修改這組code。
看完這組code的註解,你可以學習到以下資訊。
1.指定分頁的方法
2.用迴圈批量新增分頁
3.用迴圈重新命名分頁為你想要的名稱
4.cells的用法,如cells(9,3)表示第C欄第九行(列)的意思
Sub 新增分頁()
Set A = Sheets("工作表1")
With A.Activate
'指定分頁的方式,使工作表1為指定狀態
Crow = Range("A" & Cells.Rows.Count).End(xlUp).Row
'Crow此欄的說明,可以參考第一篇
For j = 9 To Crow - 1
'從第九行(列)一直迴圈到倒數第二行(列)的意思
Sheets.Add After:=Sheets(Sheets.Count)
'新增分頁並置於最後
Sheets(Sheets.Count).Name = "T" & A.Cells(j, 1)
'命名分頁,我命名的方式是抓取工作表1從A欄第九行(列)開始,並加上前綴T
'所以如A9欄叫小明,則新分頁名稱即為T小明,並逐一往下命名
'不過要注意分頁命名不可重複,意思是你不可以有兩個T小明
'A代表的是工作表1,不是第A欄的意思,第A欄是Cells(j, 1)中的1。
Next
End With
'注意End with不可以漏寫
End Sub
喜歡這篇文章,可以免費加入liker.land會員,並在底下為我拍手5下表達支持,會轉為實質收益,以利我支付網站營運費用,也歡迎留言告訴我你的看法,真心感謝你看完這篇文章。
EXCEL巨集(VBA語法)用迴圈批量新增分頁並重新命名 有 “ 6 則迴響 ”