在之前的一篇文章中，分享過用數(shù)據(jù)透視表的方法批量新建工作表。

https://zhuanlan.zhihu.com/p/115191339?zhuanlan.zhihu.com

本次將用VBA的方式快速新建多張工作表并命名，基于上篇文章中對插入工作表和計算工作表數(shù)的分析。

https://zhuanlan.zhihu.com/p/335006699?zhuanlan.zhihu.com

一、先來看一下如何在VBA中給工作表命名，用到的一個屬性類型的動作就是Name。

1. 打開Visual Basic，添加一個新的模塊和過程，稱之為“命名工作表”。

Sub 命名工作表()End Sub

2. 添加命名工作表的代碼，這里比如要修改Sheet1的名字為“表1”。

Sub 命名工作表()Sheet1.Name = "表1"End Sub

3. 執(zhí)行以上代碼后，在Excel中可以看到當(dāng)前工作表的名稱已經(jīng)改變了。

二、新增多張工作表并為其命名

1. 打開Visual Basic，添加一個新的模塊和過程，稱之為“新建工作表”。

Sub 新建工作表()End Sub

2. 如之前的案例，創(chuàng)建2020年1至12月共12張工作表。這里在過程中添加一個for循環(huán)，讓新增工作表的執(zhí)行動作重復(fù)12次，即要新建12張工作表。

Sub 新建工作表()Dim i As IntegerFor i = 1 To 12NextEnd Sub

3. 寫入新建工作表的代碼。

Sub 新建工作表()Dim i As IntegerFor i = 1 To 12Sheets.Add after:=Sheets(Sheets.Count)Sheets(Sheets.Count).Name = "2020年" & i & "月"NextEnd Sub

4. 分析一下帶Sheets的這一段代碼。

1) Sheets.Add after:=Sheets(Sheets.Count)：每次在新增工作表時都在最后一張工作表的后面執(zhí)行。

2) Sheets(Sheets.Count).Name = “2020年”& i & “月”：

• 這里的Sheets.Count返回的值和上一行代碼中的不一樣，上一行中返回的值是當(dāng)前工作表總數(shù)，而這行返回的是新增工作表后的工作表總數(shù)，在此例中即為上一行的Sheets.Count+1；
• .Name后面用“=”符號賦值，然后命名為如“2020年1月”、“2020年2月”等。

5. 執(zhí)行以上代碼后，即可在Excel文件中新增12張工作表。

相比之前用數(shù)據(jù)透視表的方法，VBA通過幾行代碼即可快速新建工作表，效率提高了很多。

參考視頻：

知乎視頻?www.zhihu.com

總結(jié)

以上是生活随笔為你收集整理的navicat 只对比一张表的数据_Excel VBA批量新建工作表（对比数据透视表的使用）...的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。