Excel多个工作表合并至一个工作表！
h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
效果如下所示：h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
要求汇总至一个工作表h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
1多个工作表h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
表一数据：h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
姓名定位性别程咬金坦克男刘禅坦克男墨子坦克男亚瑟坦克男钟无艳坦克女h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
表二数据：h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
表三数据：h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
2传统方法：h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
使用ALT+D+P功能的多重合并计算，但是在添加字段时，如果存在100张表格，那么这种方法的效率是极低的h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
3VBA代码h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
那么只需要使用VBA方法，就能轻松快速的解决，如果你的字段不是3个，那么仅需将下面字段中的标红位置进行相应修改即可！h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
VBA代码h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
Sub 多表合并()h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
Dim arr()h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
For Each sh In Sheetsh6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
If sh.Name <> "汇总" Thenh6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
arr1 = sh.Range("a2:c" & sh.UsedRange.Rows.Count)h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
act = act + UBound(arr1)h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
ReDim Preserve arr(1 To 3, 1 To act) 'h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
For j = 1 To UBound(arr1)h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
n = n + 1h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
arr(1, n) = arr1(j, 1)h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
arr(2, n) = arr1(j, 2)h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
arr(3, n) = arr1(j, 3)h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
Nexth6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
End Ifh6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
Nexth6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
Sheets("汇总").[a2].Resize(n, 3) = Application.Transpose(arr)h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
End Subh6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网
将文件另存为xlsm格式，要不然重新打开文件时这段代码就消失了！h6A电脑_数码_手机应用问题解决的IT技术网站 - 云狐网