两个Sheet找出相同信息单元格，再填入相关信息.

13068597657

有两个Sheet，需要能够匹配相同单元格的信息，再从相同单元格的右边填入相关信息，我只能用很笨的方法，想请问下大神有没有可以循环的语句，多少的相同信息都能解决.

先谢谢群里的大神了.

lh123lh1234

你这种F列都是一样的话，那右边那一列要显示什么呢？

13068597657

lh123lh1234 发表于 2019-7-26 11:04
你这种F列都是一样的话，那右边那一列要显示什么呢？

这个的话还是用相同的规则，不管多少列一样的都希望把右边的数据给改了

lh123lh1234

13068597657 发表于 2019-7-26 11:10
这个的话还是用相同的规则，不管多少列一样的都希望把右边的数据给改了

我的意思是你同一个数据，可以在第一个表中找到好几个相同项，那第二个表的右边是填哪一个呢？

13068597657

新的修改，有个sheet的信息有点错误

13068597657

新的附件EXECL

13068597657

lh123lh1234 发表于 2019-7-26 11:12
我的意思是你同一个数据，可以在第一个表中找到好几个相同项，那第二个表的右边是填哪一个呢？

不好意思，第二个Sheet拖动的时候没注意数据，本意是一样的数据，新的附件重新上传了

lsc900707

13068597657 发表于 2019-7-26 12:06
不好意思，第二个Sheet拖动的时候没注意数据，本意是一样的数据，新的附件重新上传了

sheet1的f列匹配好数据填在哪一列？

lsc900707

13068597657 发表于 2019-7-26 12:06
不好意思，第二个Sheet拖动的时候没注意数据，本意是一样的数据，新的附件重新上传了

1. Sub gj23w982()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     With Sheet2
   
4.         r = .Cells(Rows.Count, 5).End(3).Row
   
5.         arr = .Range("e3:f" & r)
   
6.         For i = 1 To UBound(arr)
   
7.             s = Trim(arr(i, 1))
   
8.             d(s) = arr(i, 2)
   
9.         Next
   
10.     End With
    
11.      With Sheet1
    
12.         r = .Cells(Rows.Count, 6).End(3).Row
    
13.         arr = .Range("f3:g" & r)
    
14.         For i = 1 To UBound(arr)
    
15.             s = Trim(arr(i, 1))
    
16.             If d.exists(s) Then arr(i, 2) = d(s)
    
17.         Next
    
18.         .Range("f3:g" & r) = arr
    
19.     End With
    
20. End Sub

复制代码

lsc900707

13068597657 发表于 2019-7-26 12:06
不好意思，第二个Sheet拖动的时候没注意数据，本意是一样的数据，新的附件重新上传了

测试参考附件：