分享Excel VBA教程 Excel多个表格的方法教程

分享Excel VBA教程 Excel多个表格汇总的方法教程

Excel VBA教程 Excel多个表格汇总的方法教程

如果你每天的工作都是把分表格汇总到总表中，那你肯定需要下面我要教给你的这个：用VBA批量把每天的各种表格汇总成一张总表，再也不用每张表格的复制粘贴了。有没有什么办法可以快速将这些分表数据弄到总表中去。也就是说将下图 【图1】中的数据自动粘贴到总表中去，即【图2】的效果。

【图1】源表如下：↓

【图2】效果图如下：↓

1.首先这属于批量 *** 作的范畴，而且是重复性的 *** 作，在EXCEL中这种重复性且需要批量的 *** 作很适合用VBA来解决。

2.其次，它的分表格式统一，这是一个好的习惯。好的习惯的好处也许我们可能不以为然，但坏的习惯会给我们带来很多的麻烦，人生如此，EXCEL也是如此。我们要做养身派，人无远虑，必有近忧。

一、 首先写入代码

1.按ALT+F11快捷键，调出VBA窗口（这里就是EXCEL的后台）

2.在VBA窗口中，【插入】选项卡下选择插入【模块】，插入两个模块，一个用来自动保存分表记录，一个用来清空总表数据。这样将来我们可以当模板用。如【图3】所示：

把保存记录的.代码贴到模块1代码窗口：

把清除当前记录的代码贴到模块2代码窗口：

然后我们关闭VBA窗口。

二、 执行代码小技巧

1.点下自定义快速访问工具栏的小三角，选择【其他命令】-【快速访问工具栏】-从下列位置选择命令下拉框中-选择【宏】，将这二个宏【保存记录】与【清除当前记录】添加到右边粗闹， *** 作步骤如下：

这时快速访问工具栏就多了二个按钮，如下图所示：

2.点下快速访问工具栏中【保存记录】的按钮，这时侯代码就开始运行了，它会埋野跳出一个对话框，问你是否确认汇总所有分表数据，点击是即开始汇总，如下图所录：

哇塞，一弯凳喊眨眼的功能就全部汇总好了，好快啊，好爽啊。

1)重要的事情说三遍。请务必注意保存时要另存为XLSM格式，请务必注意保存时要另存为XLSM格式，请务必注意保存时要另存为XLSM格式。^-^,否则你可能写了半天的代码就没有了，欲器无泪啊。

OK，大功告成。是不是很爽啊！学完了这个提高了不少工作效率。是的，我们要用有限的时间来做更多有意义的事，让工具成为帮助你的利器而不是让你烦恼的东西。

用VBA在excel中添加一唤森个和握亩工作表并且对其命名的实现方法和 *** 作步骤如下：

1、首先，在Excel中按快捷键“Alt + F11”，如下图所示。

2、其次，在VBA编辑器中依次单击“插入”-->“模块”，如下图所示。

3、然后，在“模块”中输入如下代码：

Option Explicit

Sub addwork()

Sheets.Add after:=Sheets(Sheets.Count)

End Sub

4、接着，在VBA编辑器的左侧输入模块的名称，如下图所示。

5、随皮誉后，关闭VBA编辑器，返回到Excel工作表，然后依次单击“视图”-->“宏”-->“查看宏”，如下图所示。

6、最后，在d出的窗口中单击宏名称，然后单击“执行”按钮即可，如下图所示。这样就实现了用VBA在excel中添加一个工作表并且对其命名的功能了。

增加sheet的命令符为sheets.add

完整的表达式为Sheets.Add(Before, After, Count, Type)

before或after可分别设置增加的sheet在某个工作表前或表后，一般不用同时指定。如果同时指定则不要造成矛盾。缺春

count,指增加的工作表个数。

type指增伏竖耐加的工作表类别。

如果批量增加，则需要指定定义sheet变量。纤棚

如下两种代码均可批量增加100个并重命名sheet。

Sub SheetAdd()

Dim myrange As Worksheet

Set myrange = Sheets.Add(Count:=100)

For i = 1 To 100

Worksheets(i).Name = i

Next

End Sub

Sub SheetAdd_()

For i = 1 To 100

Sheets.Add

ActiveSheet.Name = "a" &i

Next

End Sub

---