寫在前面:
如何按指定名稱批量建立工作表？如果你的Excel基礎技巧很紮實的話，你可能會立刻想到資料透視表 ，可以完成批量建立工作表。
資料透視表的做法是使用資料透視表的分頁帥選狀态完成的。
但是如果現在需要我們用ExcelVBA解決這個問題，你會嗎？
是以我們今天分享如何批量建立指定名字的工作表，其實VBA代碼寫起來很簡單。
增加工作表的VBA關鍵代碼是Worksheets.Add，這個代碼才是主要的實作功能者。
話不多說， 如下圖所示，A列是需要建立工作表的名稱。
我們先來看看動畫實作的效果：
附上Excel VBA代碼，您複制到VBE視窗的模組即可使用。
Sub NewSht()
Dim Sht As Worksheet, Rng As Range
Dim Sn, t$
Set Rng = Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)
'将工作表名稱所在的單元格區域指派給變量Rng，單元格A1是标題，不讀入
On Error Resume Next
'當代碼出錯時繼續運作
For Each Sn In Rng
'周遊Rng(工作表名稱集合）
t = Sn
Set Sht = Sheets(t)
'當工作簿不存在工作表Sheets(t)時，這句代碼會出錯，然後……
If Err Then
'如果代碼出錯，說明不存在工作表Sheets(t)，則建立工作表
Worksheets.Add , Sheets(Sheets.Count)
'建立一個工作表，位置放在所有已存在工作表的後面
ActiveSheet.Name = t
'建立的工作表必然是活動工作表，為之命名
Err.Clear
'清除錯誤狀态
End If
Next
Rng.Parent.Activate
'重新激活名稱資料所在的工作表
End Sub
該代碼是根據目前工作表A列的值批量自動建立工作表，是不是非常的簡單。
寫在結尾：
我們學習在于點滴積累之間，循序慢進，選對了方式，水滴石穿，相反如果沒有好的方式，會事半功倍。
希望以上對你有所幫助，謝謝支援！
PS:學習的苦難需要我們主動面對,生活的苦難你躺着它自己主動就過來啦!與君共勉之!!!
以上就是今天要和大家分享的技巧，希望對大家有所幫助，祝各位一天好心情！