您现在的位置: 首页 > 网站导航收录 > 百科知识百科知识

有excel处理小程序推荐吗？

工作,文件,代码有excel处理小程序推荐吗？

发布时间：2016-12-08加入收藏来源：互联网点击：

问题补充： 长期积累了很多独立的excel文件，查询文件里边的内容很不方便。想请大神给个写个小程序，能让我把这么多的excel文件整合到一个excel里边。不管把每个文件一个sheet还是整合到一个sheet里边都可以，两个功能都具备更好，谢谢啦

回答于 2019-09-11 08:43:50

回答于 2019-09-11 08:43:50

VBA或者是PowerQuery都可以处理这种问题


VBA可以合并目录下的所有Excel文件，合并单个Excel文件中的所有工作表；代码现成的很多了，re-search就可以了；




抛砖引玉了，

我以前发的一个文章里面的

原文链接：

https://www.toutiao.com/i6599821492374995463/

---

经常我们在做统计的时候，需要把一个EXCEL工作薄中的几张结构相同的工作表合并在一起，然后需要合并到一个工作表中数据分析；

其实如果工作表数量少的话，还可以复制粘贴就可以了，当有数据量较大，或者是你经常要做这项工作的时候，复制粘贴就显得比较繁琐；

Excel功能超强大，要把不同工作表合并在一起，方法很多，我们这里介绍的是使用VBA的，就5秒钟就搞定；

请继续往往下看：

原始数据如图： 有四个工作表，结构是一样的，另外新建了一个工作表，作为汇总用；

原始数据

在合并汇总工作表标签上面，点右键，然后选择 查看代码

第一步

把代码粘贴进去，然后点上面的，运行按钮，就搞定了；

PS:合并完成了，会弹出一个提示对话框，你点确定即可；

第二步

代码如下：

Sub 合并当前工作簿下的所有工作表()Application.ScreenUpdating = FalseFor j = 1 To Sheets.CountIf Sheets(j).Name <> ActiveSheet.Name ThenX = Range("A65536").End(xlUp).Row + 1Sheets(j).UsedRange.Copy Cells(X, 1)End IfNextRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"End Sub

回答于 2019-09-11 08:43:50

powerquery最方便，Excel2016，office365，Excel2019中都自带有power query，从文件夹合并，当然无论power query还是VBA都要求有相同的表格结构