03.08 別再手工一個個創建工作表了,教你快速批量生成N個工作表


別再手工一個個創建工作表了,教你快速批量生成N個工作表


在我們日常工作中,經常遇到一次要創建多個工作表,比如財務報表、考勤表等,一年需要十二個工作表, 一次性創建完成,可以省去一個個創建的麻煩,今天小編分享兩種方法:


方法一:數據透視表

1、首先在A列中錄入我們需要新建的工作表名稱;

2、選中數據列,點擊【插入】選項卡中的【數據透視表】按鈕,在彈出的窗口中,選擇放置數據透視表的位置,選擇【現有工作表】,點擊位置文本框,再點擊工作表任意單元格;

3、在工作區右側彈出的任務窗格中,把【工作表名稱】字段拖入篩選區域;

4、點擊【數據透視表分析】選項卡中【選項】下拉按鈕,選擇【顯示報表篩選頁】,在彈出的窗口中點擊【確定】,這樣就按A列中的名稱批量了創建工作表。

操作動圖演示如下:

別再手工一個個創建工作表了,教你快速批量生成N個工作表

方法二:VBA代碼

1、1、首先在A列中錄入我們需要新建的工作表名稱;

2、點擊【開發工具】選項卡中的【Visual Basic】按鈕,調出VBA窗口;

3、雙擊右側VBAProject列表中的Sheet1(Sheet1),複製下面代碼到編輯區,再點擊工具欄中的【運行子過程】按鈕,這樣就就按A列中的名稱批量了創建工作表,關閉VBA窗口。

  • Sub 批量創建工作表()
  • i = 2
  • Do While Sheet1.Cells(i, "A") <> ""
  • Worksheets.Add after:=Worksheets(Worksheets.Count)
  • ActiveSheet.Name = Sheet1.Cells(i, "A").Value
  • i = i + 1
  • Loop
  • End Sub

動圖演示如下:

別再手工一個個創建工作表了,教你快速批量生成N個工作表



分享到:


相關文章: