[已解决]查找相同数据后填充

KDZ

                      各位老师：请帮忙写个VBA代码，当I列身份证号与E列身份证号相同时，将H列对应单元格内的数据填充到F列单元格内。具体内容见附件，谢谢

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-6-23 11:00

1. Sub aaa()
   
2. Dim i&, rng As Range
   
3. For i = 3 To [e65536].End(3).Row
   
4.   Set rng = Columns(9).Find(Cells(i, 5))
   
5.   If Not rng Is Nothing Then Cells(i, 6) = rng.Offset(, -1)
   
6. Next i
   
7. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim i&, rng As Range
   
3. For i = 3 To [e65536].End(3).Row
   
4.   Set rng = Columns(9).Find(Cells(i, 5))
   
5.   If Not rng Is Nothing Then Cells(i, 6) = rng.Offset(, -1)
   
6. Next i
   
7. End Sub

复制代码

grf1973

用公式即可，无需vba

KDZ

谢谢，谢谢！！{:221:}