如果表1中的某个数等于表2中的数，那么表2中对应的行数则显示出来

49哥哥哥

表一G5中显示的数据是F5在表2中的相等数据（c3）对应g3数据

精英土豪

vlookup？

idnoidno

1. Option Explicit
   
2. Sub st()
   
3. Dim arr, brr
   
4. Dim i As Long, j As Long
   
5. Dim sh1 As Worksheet, sh2 As Worksheet
   
6. Dim rga As Range, rgb As Range
   
7. 
   
8. Set sh1 = Worksheets("表2")
   
9. Set sh2 = Worksheets("表一")
   
10. Set rga = sh1.Range("c3:g" & sh1.Cells(Rows.Count, "c").End(xlUp).Row)
    
11. Set rgb = sh2.Range("f5:g" & sh2.Cells(Rows.Count, "f").End(xlUp).Row)
    
12. arr = rga
    
13. brr = rgb
    
14. For i = 1 To UBound(brr)
    
15.     For j = 1 To UBound(arr)
    
16.         If brr(i, 1) <> "" And arr(j, 1) <> "" Then
    
17.             If brr(i, 1) = arr(j, 1) Then
    
18.                 brr(i, 2) = arr(j, 5)
    
19.             End If
    
20.         End If
    
21.     Next j
    
22. Next i
    
23. rgb = brr
    
24. End Sub

复制代码