求VBA代码，万分感谢！

q563262982

有AB两组数据分别在C列，A列中，求对应单元格的数值。
求VBA代码，万分感谢！
详细附件，如图。

opel-wong

如果数据量不大的话，以下代码凑合着可以用，

请测试：

1. Sub 取数()
   
2.     Dim mRow As Long, arr, i As Long, j As Integer, m As Long
   
3.     Application.ScreenUpdating = False
   
4.     With Sheet1
   
5.         mRow = .Range("C65536").End(3).Row
   
6.         arr = .Range("A2:C" & mRow).Value
   
7.         For j = 7 To 9
   
8.         m = 1
   
9.             For i = 1 To UBound(arr)
   
10.                 If arr(i, 3) = .Cells(1, j).Value Then
    
11.                     m = m + 1
    
12.                     .Cells(m, j).Value = arr(i, 1)
    
13.                 End If
    
14.             Next
    
15.         Next
    
16.     End With
    
17.     Application.ScreenUpdating = True
    
18. End Sub

复制代码

opel-wong

如果数据量很大的话，请上传多点数据，1万行以上，可以改用数组处理，速度会更快。

月关

1. Sub test()
   
2. arr = [a1].CurrentRegion.Resize(, 3).Offset(1)
   
3. For Each rn In [f1:h1]
   
4. m = 1
   
5. For ii = 1 To UBound(arr) - 1
   
6. If arr(ii, 3) = rn Then m = m + 1: Cells(m, rn.Column) = arr(ii, 1)
   
7. Next
   
8. Next
   
9. End Sub
   

复制代码