求助各路神仙关于用VBA合并文档内工作簿指定列

wqz1103 · 发表于 2019-9-30 17:28

在第一个表格中指定区域合并

此图为第二个表格中需要合并的数据

自己也在论坛中寻找相关的VBA代码，有类似代码但是没有中文标注不知道从哪里开始修改，所以发此贴求助各路大神，谢谢~

wqz1103 · 发表于 2019-9-30 17:30

最后两张图误传，不需要看，只需要看前三张图片，谢谢了

约定的童话 · 发表于 2019-9-30 21:44

I列所对应的行信息都是一一对应的吗？

wqz1103 · 发表于 2019-9-30 22:54

约定的童话发表于 2019-9-30 21:44
I列所对应的行信息都是一一对应的吗？

都是对应的，表格都是相同的，但是数据不同，就是要把I列的数据全部合并到第一个工作簿的表去

moonlit123 · 发表于 2019-9-30 23:32

本帖最后由 moonlit123 于 2019-9-30 23:47 编辑

Sub 从表n并入总表()
'''打开总表执行
Dim sh, x, i, R, arr(), brr(), adr As String
adr = "$I$11:$I$271"
arr = ThisWorkbook.Sheets("第一期TB表").Range("J8:AV8").Value
mypath = ThisWorkbook.Path & ""
fn = Dir(mypath & "\*.xl*")
Do While fn <> ""
If fn <> ThisWorkbook.Name Then
Set wb = GetObject(mypath & fn)
brr = wb.Sheets("第一期TB表").Range(adr).Value
fncolumn = Split(fn, ".xl")(0)
wb.Close False
For i = 1 To UBound(arr, 2)
If arr(1, i) = fncolumn Then
ThisWorkbook.Sheets("第一期TB表").Cells(11, i + 9).Resize(UBound(brr), 1).Value = brr

复制代码

按总表里的列名（比如A011-TB表-醒醒）为依据复制的，如果分表的文件名和列名不一样，不会复制进来。

moonlit123 · 发表于 2019-9-30 23:35

TB.zip (829.81 KB, 下载次数: 1)
附件供参考。

		自动登录	找回密码
密码			免费注册

[求助] 求助各路神仙关于用VBA合并文档内工作簿指定列