[已解决]根据女方身份证查找表二上的结婚证号码

tcjsbzhuojie

根据“加结婚证号”上女方身份证号码在“民政婚姻登记”表里查找改对象的结婚证号，并将这个号复制到“加结婚证号”表的结婚证号里！谢谢！

最佳答案

月排行榜 / 总排行榜

dsmch

2014-10-31 15:33

1. Sub Macro1()
   
2. Dim arr, brr, d, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheet1.Range("a1").CurrentRegion
   
5. brr = Sheet2.Range("a1").CurrentRegion
   
6. For i = 2 To UBound(brr)
   
7.     d("" & brr(i, 12)) = brr(i, 4)
   
8. Next
   
9. For i = 2 To UBound(arr)
   
10.     arr(i, 1) = d("" & arr(i, 16))
    
11. Next
    
12. Sheet1.Range("a1").Resize(UBound(arr)) = Application.Index(arr, 0, 1)
    
13. End Sub

复制代码

跳转到最佳答案楼层

易安1

错误的就是没查到的 说明没有对应数据！

tcjsbzhuojie

易安1 发表于 2014-10-31 12:01
错误的就是没查到的 说明没有对应数据！

谢谢，但我需要vba方法！

gujiejack2

看是不是你要的。记得启用宏！

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, d, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheet1.Range("a1").CurrentRegion
   
5. brr = Sheet2.Range("a1").CurrentRegion
   
6. For i = 2 To UBound(brr)
   
7.     d("" & brr(i, 12)) = brr(i, 4)
   
8. Next
   
9. For i = 2 To UBound(arr)
   
10.     arr(i, 1) = d("" & arr(i, 16))
    
11. Next
    
12. Sheet1.Range("a1").Resize(UBound(arr)) = Application.Index(arr, 0, 1)
    
13. End Sub

复制代码

tcjsbzhuojie

gujiejack2 发表于 2014-10-31 13:23
看是不是你要的。记得启用宏！

谢谢，很好用

tcjsbzhuojie

dsmch 发表于 2014-10-31 15:33

非常感谢，是要的效果