回覆列表
-
1 # 辦公幫幫堂
-
2 # Excel精選技巧
不用VBA，使用資料透視表就能快速批次建立工作表了，分為3步進行
第一步：將待建立工作表名稱輸入至A列中第二步：插入資料透視表→拖動欄位至篩選器→顯示報表篩選頁 -
3 # Excel小王子
在Excel中按指定名稱批次建立工作表，通常有兩種方法，一種是使用透視表的顯示報表篩選頁功能，另外一種是使用VBA程式碼來建立。下面我給一種使用VBA程式碼批次建立工作表的方法。
如圖，需要按照A列區域A2:A13單元格中指定的名稱，批次建立工作表
透視表方法我們略過不表，但說VBA方法，程式碼如下
Sub Createsht() "by Excel泥瓦匠
Dim rng As Range
Dim sht As Worksheet
MsgBox "請檢查需要新建的工作表名稱中是否包含/\?:*<>等特殊字元，如果包含請替換為別的字元", vbCritical
Set rng = Application.InputBox("請選擇要新建工作表名稱的存放區域", , , , , , , 8)
On Error Resume Next
For Each rng1 In rng
Set sht = Worksheets(rng1.Value)
If Err = 0 Then
MsgBox "已存在工作表" & rng1.Value
Else
Set sht = Worksheets.Add
With sht
.Move after:=Sheets(Sheets.Count)
.Name = rng1.Value
End With
End If
Next
End Sub
請看動畫效果演示：
使用透視表功能可以批次在一個工作薄建指定工作表名稱。
方法：
1.把需要建立的sheet表名稱列出來，如下圖左邊列出名稱；選單插入-資料透視表-選擇A列資料。
2.拖動A列標題欄位到截圖位置。