将两个表格数据自动对应

liangyou0

lsc900707 发表于 2018-9-22 16:23

大神，我导入完整的数据，有一个错误提示，您帮我看一下

liangyou0

lsc900707 发表于 2018-9-22 16:23

lsc900707

liangyou0 发表于 2018-9-22 17:16
大神，我导入完整的数据，有一个错误提示，您帮我看一下

把出错的文件上传看看。

liangyou0

上传了，表一的数据是总数据，表一比表二的数据大，表二是部分有记录银行卡号的数据，希望把有卡号的对应到表一相应的位置，没有银行卡数据的显示空白即可

liangyou0

lsc900707 发表于 2018-9-22 17:56
把出错的文件上传看看。

好的，已经上传到回复里面了，请您看下

liangyou0

这是完整的附件数据，您看一下

lsc900707

liangyou0 发表于 2018-9-22 19:04
这是完整的附件数据，您看一下

1. Sub gj23w98()
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     arr = Sheet2.[a1].CurrentRegion
   
4.     For i = 2 To UBound(arr)
   
5.         s = arr(i, 1) & arr(i, 2)
   
6.         d(s) = Array(arr(i, 3), arr(i, 4))
   
7.     Next
   
8.     brr = [a1].CurrentRegion
   
9.     For i = 2 To UBound(brr)
   
10.         s = brr(i, 1) & brr(i, 2)
    
11.         If d.exists(s) Then
    
12.             For j = 3 To 4
    
13.                 brr(i, j) = d(s)(j - 3)
    
14.             Next
    
15.         End If
    
16.     Next
    
17.     [a1].CurrentRegion = brr
    
18. End Sub

复制代码

lsc900707

liangyou0 发表于 2018-9-22 19:04
这是完整的附件数据，您看一下

原代码如果没有相匹配的数据就报错！已修改，请测试！

liangyou0

lsc900707 发表于 2018-9-22 19:53
原代码如果没有相匹配的数据就报错！已修改，请测试！

我没复制完，有点多，谢谢您，我在试试