怎么合并excel多个工作表（Excel多个工作表快速合并至一个工作表）

Excel多个工作表合并至一个工作表！

0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

效果如下所示：0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

要求汇总至一个工作表0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

1多个工作表0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

表一数据：0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

姓名定位性别程咬金坦克男刘禅坦克男墨子坦克男亚瑟坦克男钟无艳坦克女0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

表二数据：0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

表三数据：0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

2传统方法：0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

使用ALT+D+P功能的多重合并计算，但是在添加字段时，如果存在100张表格，那么这种方法的效率是极低的0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

3VBA代码0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

那么只需要使用VBA方法，就能轻松快速的解决，如果你的字段不是3个，那么仅需将下面字段中的标红位置进行相应修改即可！0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

VBA代码0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

Sub 多表合并()0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

Dim arr()0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

For Each sh In Sheets0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

If sh.Name <> "汇总" Then0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

arr1 = sh.Range("a2:c" & sh.UsedRange.Rows.Count)0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

act = act + UBound(arr1)0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

ReDim Preserve arr(1 To 3, 1 To act) '0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

For j = 1 To UBound(arr1)0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

n = n + 10wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

arr(1, n) = arr1(j, 1)0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

arr(2, n) = arr1(j, 2)0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

arr(3, n) = arr1(j, 3)0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

Next0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

End If0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

Next0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

Sheets("汇总").[a2].Resize(n, 3) = Application.Transpose(arr)0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

End Sub0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网

将文件另存为xlsm格式，要不然重新打开文件时这段代码就消失了！0wg电脑_数码_手机应用问题解决的IT技术网站 - 优化收集网