两个表中两组数据进行对比

23号人生

    各位老师晚上好，又得麻烦各位老师了，附件中sheet1中E列有很多数字，sheet2中从E4开始往下也有很多数字，需要依次判断sheet1中e列的数字是否含有sheet2中e列的数字，如果包含的话，就将sheet1这个数字所在的行复制到sheet3中。
    比如，sheet1的e1单元格是123，sheet2中e列某个单元格是12,那么就将sheet1的e1单元格所在行的数据复制到sheet3中。
    谢谢。

jiminyanyan

包含用instr  函数………………

jiminyanyan

1. Sub jimin()
   
2.     Dim arr, brr(1 To 10000, 1 To 5), crr, k, n
   
3.     arr = Sheet1.Range("a1:e" & Sheet1.Range("a65535").End(xlUp).Row)
   
4.     crr = Sheet2.Range("e4:e" & Sheet2.Range("e65535").End(xlUp).Row)
   
5.     For i = 1 To UBound(arr)
   
6.         For j = 1 To UBound(crr)
   
7.             If InStr(arr(i, 5), crr(j, 1)) Then
   
8.                 k = 1
   
9.                 Exit For
   
10.             End If
    
11.         Next
    
12.         If k Then
    
13.             n = n + 1
    
14.             brr(n, 1) = arr(i, 1)
    
15.             brr(n, 2) = arr(i, 2)
    
16.             brr(n, 3) = arr(i, 3)
    
17.             brr(n, 4) = arr(i, 4)
    
18.             brr(n, 5) = arr(i, 5)
    
19.         End If
    
20.         k = 0
    
21.     Next
    
22.     Sheet3.Range("a1:e10000").ClearContents
    
23.     Sheet3.Range("a1").Resize(UBound(brr), UBound(brr, 2)) = brr
    
24. End Sub
    

复制代码

jiminyanyan

………………。

23号人生

jiminyanyan 发表于 2017-3-29 20:26

非常感谢老师的帮助，刚才根据您的提示我自己在这写，写了半天也出不来正确的结果。基础太差了，我还得多学习。再次感谢。对了老师，不知道您有没有时间，还有个问题困扰了好几天了，希望您能帮忙看一下。http://club.excelhome.net/thread-1336974-1-1.html