一段簡單的VBA代碼，讓你自如操作Excel！
抛磚引玉的場景需求： 批量創建名稱為1到12月的工作表。
代碼示例
在标準模塊中加入如下代碼即可實現上面的演示功能。
Sub 批量創建1至12月份的工作表() Dim sht As Worksheet For x = 1 To 12 Set sht = Worksheets.Add sht.Name = x & "月份" sht.Tab.Color = vbYellow Next Set sht = Nothing End Sub
運行結果顯示月份的順序倒叙了， 怎麼樣按照1~12順序顯示呢？
腦中立馬想出兩種方法：
第一種是：
将
Set sht = Worksheets.Add
更改為
Set sht = Worksheets.Add(After:=Sheets(Sheets.Count))
Sub 批量創建1至12月份的工作表() Dim sht As Worksheet For x = 1 To 12 Set sht = Worksheets.Add(After:=Sheets(Sheets.Count)) sht.Name = x & "月份" sht.Tab.Color = vbYellow Next Set sht = Nothing End Sub
第二種是：
将
For x = 1 To 12
更改為
For x = 12 To 1 Step -1
Sub 批量創建1至12月份的工作表() Dim sht As Worksheet For x = 12 To 1 Step -1 Set sht = Worksheets.Add sht.Name = x & "月份" sht.Tab.Color = vbYellow Next Set sht = Nothing End Sub
動手試一試，屏幕前的你， 複制代碼運行下吧~~！
更多Excel VBA編程知識（職場牛人的必備秘技），可下載安裝使用一款優秀職場人必備的工具《神奇的VBA》插件，一款嵌入進Excel Ribbon界面，打開任意Excel工作簿就能随時查閱學習VBA編程的Excel 插件。
插件下載地址可私信注明郵箱或通過如下鍊接查詢：
Excel 插件：神奇的VBA-升級
《神奇的VBA》選項卡樣式
更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
