excel无法复制粘贴-excel数据瞬间汇集到一个总表，你复制粘贴3小时，我只需要10秒

一个工作簿里有218个相同结构的工作表，数据记录条数不同，有的表是500个记录，有的是1000个记录，有的呢有3500个记录，诸如此类。

现在教你一种10秒完成的招，当然就是VBA

1

ALT+F11，插入，模块

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

Sub Allcopy()

Dim rg As Range

Dim sh As Worksheet

Dim irow, jcol

Sheets("总表").Range("2:1048576").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行开始，列数可以若干列。

2

请提前在总表里复制粘贴好表头。

3

插入，形状，圆角矩形，在矩形里输入文字“汇集”，设置好字体格式以及矩形的填充色、边框颜色以及形状阴影等。

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

4

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