VBA或者是PowerQuery都可以处理这种问题sGOmB0uiUpWGg8y1vkeNsAibM
VBA可以合并目录下的所有Excel文件，合并单U4P1QuUpuH$Si%fpLQC6G&F9^8g.8个Excel文件中的所有工作表；代码现成的很多了，IUgQofxZoVD5e8QFre-sedl$Y^C4vl5&DdnzH^hCE6^arch就可以了BFRU6；
抛砖引玉了，
我以前发的一个文章里面的
原文链接：
:/wCRJl^//i6599pEMIjjKJ2XdnwtIye&.xwCrRUPiL821492374995463/
经常我们在做统计KTioG,2GY8#MD*m,nY$9Eu@O1dQTat的时候，需要把一个EXCEL工作薄中的几张结构相同的工作表合并在一起，然后需要合@%4;3g8xYm^h/*并到一个工作表%xoI.u33qq中数据分析；
其实如果工作表数量少的话，还可以复制C6AIR4vwNJ$El7AoPuLHv6Q粘贴就可以了，当有数据量较大，或者是你经常要做这项工作Mkdif8I,1Rev^Dp^zP8W@DNt^yE&J的时候，复制粘贴就显得比较繁琐；
Excel功能超强大，要把不同工 Wr@*t3^^e56IvSdmh%v&W作表合并在一起，方法很多，m6&!%YkJANFbE;L7@f/SMovSC我们这里介绍的是使用zrO,1mb%z6MN*8nVBA的，就5秒,295FTWoWqcGQbccp1钟就搞定szVUaqk!FsnUIPGRlkN；
请继续往往下看：
原始数据如i3CWQvx0^gw图： 有四个工作表，结构是一样的，另外新建了一个工作表，作为汇总用；
原始数据
t*C$NIQhR,tnPFTgV在合并汇总工作表标签上面，点右键，然后选择 查看代码
第一步
把代码粘贴oAEi5jw5d^cfaV进去，然Yunsx3c/5HM*Ys3BbG826v&m*bL后点上面的，运行按钮，就搞定了；
PS:合并完成了，会弹&zdB.,k44;Hx出一个提示对话框，你点确定即可；
第二步
代码如下：
Sub 合并,9cNloObja3wkFvm当前工作簿下的所有工作表()Application.ScreenUpdatipbpbYNtnFUuLHYowSnLng = FalseFor j = 1 To Sheets.CouJZ&Aa!FouvtsKQd4tkcntIf SheeM3MHG,j4Gwqld%/Cts(j)#^Lv227k7s%8Ge.Name <> ActiveSheet.Z0ny;6YJ,&Name ThenX4V5z*QRYwxJz7x$n@TVaBAzd^ZbLf/ = RangeyI&vho$jVNGKHpWa0oV#l6^z60W*("A65536").End(xlUp).Row h1eQt!!L%Un1SheeLFdCIwDz0lkZ.%ts(jy,ygDdx).UsedRange.CopyFDgntsTK^zQz@T Cells(X, 1)En4dUxM$E6TgkH;Hd IfNextRange("B1").SelectAppwFZt;Hj7pMd@B#TuU!B%YYQ^A.lication.ScreenUpdating = TrueMsgBox ZbB61k;JAAX1endvMII"当前工作簿下的全部工作表已经合并完毕！", vbInformHj$WV,3XK%q7dpA!ation, "提示"End Sub
wy9t$xB.JGUjkEr/0Z8qg^
