VBA 合并多表格时怎么匹配数据？

linsuanle · 发表于 2020-1-23 15:34

本帖最后由 linsuanle 于 2020-1-23 16:33 编辑

A、B 两个表格合并数据在同一个表格的同一个sheet里。并且C表格的数据匹配到E列

结果要这样子的

Desktop.zip (17.91 KB, 下载次数: 10) 已更新

donghui2363 · 发表于 2020-1-23 15:49

看不懂你的描述和附件

linsuanle · 发表于 2020-1-23 15:56

donghui2363 发表于 2020-1-23 15:49
看不懂你的描述和附件

用VBA 合并A\B两个表格，然后C表的问题一列，用姓名为匹配，添加到E列

我表达不是很好

网海遨游 · 发表于 2020-1-23 16:11

本帖最后由网海遨游于 2020-1-23 16:12 编辑

楼主：你的两个表中的每个人的流水号是唯一的吗？怎么第一阶段与第二阶段的所有内容全是相同的？

凌空一羽 · 发表于 2020-1-23 16:14

猜一个
Sub lkyy()
Dim Mp$, Mf
Mp = ThisWorkbook.Path & "\"
Mf = Dir(Mp & "*.xls")
Columns("e").ClearContents
Do While Mf <> ""
If Mf <> ThisWorkbook.Name Then
      With Workbooks.Open(Mp & Mf)
         ar = .Sheets(1).Range("a1").CurrentRegion
         .Close 0
      End With
      For a = 2 To 4
         t = Cells(a, 1).Text: s = ""
         For b = 2 To UBound(ar)
            If t = ar(b, 2) Then s = s & ar(b, 1) & ar(b, 2) & ar(b, 3) & ar(b, 4): Exit For
         Next b
         Cells(a, "e") = Cells(a, "e") & "|" & s
      Next a
End If
Mf = Dir()
Loop

End Sub

linsuanle · 发表于 2020-1-23 16:17

阿，对不起，附件传错了。现在没问题了

网海遨游 · 发表于 2020-1-23 16:55

楼主是这样的吗？代码放在样品原因工作薄中，按钮在样品原因工作薄Sheet1中

wodewan · 发表于 2020-1-23 17:05

SQL方法供参考，执行文件为附件中的SQL.xls

linsuanle · 发表于 2020-1-23 19:11

网海遨游发表于 2020-1-23 16:55
楼主是这样的吗？代码放在样品原因工作薄中，按钮在样品原因工作薄Sheet1中

谢谢老师，祝您新春快乐

linsuanle · 发表于 2020-1-23 19:13

wodewan 发表于 2020-1-23 17:05
SQL方法供参考，执行文件为附件中的SQL.xls

谢谢老师，祝您新春快乐

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

[求助] VBA 合并多表格时怎么匹配数据？