如何用<em>EXCEL</em>中的VBA合并同一资料夹中，多个工作簿的同一...-Excel

这个方法可能不是最简便的，你可以尝zd试用下。用电脑左下角“开始”-“搜索”你要整理的“1-1-1”，"按住ctrl和点击所有的1-1-1，然后“剪切”，“粘贴”到新内建文件夹后，统一再整理到同一个工作表的不同标签中容。这是我想到的最笨的法儿 了。

说千字,不如一附件

 

这里有有我以前做的合并文件夹下所有工作簿(包含子目录)到当前工作表zhidao的一个程序

楼主可以参考学习下.

 

也可以把问题作为内容版（邮件主题一定要包含“Form”,本人以此为依据辨别非垃圾邮件，以免误删）、excel文件(去掉机密内容)作为附件发来看下  三零三三一三六权 二七

VBA就擅长这类的操作。当然，文件需要在指定的目录中。你的数据还算规范，做起来没问题。不知道你的表里边的zhidao时间点是否一致。如果一致就更好处理了。
写这个VBA不免费内，因为需要耗费时间和精力的事。有意向的话可以私信。
另外，WPS免费版的不支持VBA，需要使用Excel。
如果数据规则，要求明确容，通常在用VBA只用点一下按钮，剩下的交给代码去操作了。
思路，就是循环各个文件，写入对应的列和行。

可以在Excel表格中百用下面的VBA程序实现度：
Sub Test() '打开当前目录专下文件，将Sheet1信息复制到汇总表上属
Dim f$
Dim n&
Mypath = ThisWorkbook.Path & "\"
f = Dir(Mypath & "*.xls*")
Do While f > " "
n = n + 1

Workbooks.Open Mypath & f
Set c = ActiveWorkbook
arr=sheet1.UsedRange
c.Close
Cells(n, 1).resze(Ubound(arr,1),Ubound(arr,2)) =arr
n=n+Ubound(arr,1)
f = Dir

Loop
End Sub

本文标签：Excel vba多表合并(1)vba合并多个工作簿代码(1)