Excel多个表合并成一个表

目录

工作需求： (1)

程序演示： (3)

实现步骤： (4)

第一步：编写VBA代码 (4)

第二步：设计按钮 (6)

第四步：给按钮添加VBA宏： (6)

第五步：执行VBA宏 (7)

工作需求：

一个工作簿里有许多个相同结构的工作表，如何将所有工作表都汇总到一个表中呢？。下面以四个表汇总成一个表为例进行解答，以此类推可以应用到许多个表的情况：

如何将四个月的内容自动汇总到第五个“汇总”表中呢？

程序演示：

点击按钮后就将其余的四个表中的内容一次性汇总到了“汇总”表中了。以此类推，不管再增加多少个表都会被一次性汇总。

实现步骤：

第一步：编写VBA代码

ALT+F11，插入，模块

在模块里输入如下代码，或复制粘贴如下代码（下面提供了代码）。然后关闭这个窗口。

代码：

Sub Allcopy()

Dim rg As Range

Dim sh As Worksheet

Dim irow%, jcol%

Sheets("汇总").Range("2:65536").Clear

For Each sh In Worksheets

With Sheets("汇总")

If sh.Name <> "汇总" Then

Set rg = sh.UsedRange.Offset(1, 0)

irow = .Range("A" & Rows.Count).End(xlUp).Row + 1 rg.Copy .Cells(irow, 1)End If

End With

Next

End Sub

以上代码满足于当前工作簿里所有分表的结构一样，数据记录从第2行开始，列数可以若干列。

疑难注释：

Sheets("汇总").Range("2:65536").Clear 这里注意如果是2007版本以下的office软件则总行数不能超过65536行。如果是2007版本以上的office软件则可以达到1048576行。第二步：设计按钮

在汇总表中设计一个按钮用来点击后汇总其他表的数据，插入==》形状==》圆角矩形，在矩形里输入文字“点此按钮汇总”，设置好字体格式以及矩形的填充色、边框颜色以及形状阴影等。

第四步：给按钮添加VBA宏：

右键单击矩形，指定宏，选中Allcopy，确定

第五步：执行VBA宏

请见上面的程序演示。

单击这个矩形按钮，即可立即把多个分表的数据汇集到“汇总”表里。

7