導讀一段簡單的VBA代碼，讓你自如操作Excel！拋磚引玉的場景需求：批量創建名稱為1到12月的工作表。代碼示例在標準模塊中加入如下代碼即可實現上面的演示功能。....

一段簡單的VBA代碼，讓你自如操作Excel！

拋磚引玉的場景需求： 批量創建名稱為1到12月的工作表。

代碼示例

在標準模塊中加入如下代碼即可實現上面的演示功能。

Sub 批量創建1至12月份的工作表()Dim sht As WorksheetFor x = 1 To 12 Set sht = Worksheets.Add sht.Name = x & "月份" sht.Tab.Color = vbYellowNextSet sht = NothingEnd Sub

運行結果顯示月份的順序倒敘了， 怎么樣按照1~12順序顯示呢？

腦中立馬想出兩種方法：

第一種是：

將

Set sht = Worksheets.Add

更改為

Set sht = Worksheets.Add(After:=Sheets(Sheets.Count))

Sub 批量創建1至12月份的工作表()Dim sht As WorksheetFor x = 1 To 12 Set sht = Worksheets.Add(After:=Sheets(Sheets.Count)) sht.Name = x & "月份" sht.Tab.Color = vbYellowNextSet sht = NothingEnd Sub

第二種是：

將

For x = 1 To 12

更改為

For x = 12 To 1 Step -1

Sub 批量創建1至12月份的工作表()Dim sht As WorksheetFor x = 12 To 1 Step -1 Set sht = Worksheets.Add sht.Name = x & "月份" sht.Tab.Color = vbYellowNextSet sht = NothingEnd Sub

動手試一試，屏幕前的你， 復制代碼運行下吧~~！

更多Excel VBA編程知識（職場牛人的必備秘技），可下載安裝使用一款優秀職場人必備的工具《神奇的VBA》插件，一款嵌入進Excel Ribbon界面，打開任意Excel工作簿就能隨時查閱學習VBA編程的Excel 插件。

插件下載地址可私信注明郵箱或通過如下鏈接查詢：

Excel 插件：神奇的VBA-升級

《神奇的VBA》選項卡樣式