【原】合并工作表

 前言

一个工作薄的多个sheet如何拷贝到一个汇总表中？

很多人都会说，这还不简单，复制粘帖就够了，如果你说的是手动，且只有几张表还可以接受，如果sheet多了，用手动拷贝就显得效率太低了，今天老崔教你如何用VBA轻松搞定。

1代码

我们可以先插入一张空白的Sheet,用来装入汇总后的内容，首先将这张表的名称改为"汇总"或其他你喜欢的名字，然后按ALT+F11，打开VBA编辑器，插入模块，在模块中输入下列命令:

Sub 合并工作表()

Dim sht As Worksheet

For Each sht In ActiveWorkbook.Worksheets

If sht.Name <> "汇总" Then

sht.UsedRange.Copy Sheets("汇总").UsedRange.Offset(Sheets("汇总").UsedRange.Rows.Count, 0).Resize(1, 1)

End If

Next

End Sub

2解释

程序将遍历每个sheet,只要名字不是"汇总"，就把工作表中的内容复制到汇总表中，同时将汇总表的活动单元格偏移到内容的最下面，作为下次粘帖的起始点，以此类推，只需几秒便可搞定。

循环语句 ：

For each st in ActiveWorkbook.Worksheets

next

END

欢迎入群讨论！(QQ群)