提取

ddz79101

老师，希望根据另表的2列数据，提取到本表的相应3列中。谢谢

liulang0808

建议楼主结合附件内容描述下数据具体对用关系

sdytsxd991122

直接用公式

笨鸟飞不高

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     Dim d As Object
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     With Worksheets("存量")
   
7.         r = .Cells(.Rows.Count, 9).End(xlUp).Row
   
8.         brr = .Range("i2:k" & r)
   
9.         For i = 1 To UBound(brr)
   
10.             d(brr(i, 1)) = i
    
11.         Next
    
12.     End With
    
13.     With Worksheets("分配")
    
14.         r = .Cells(.Rows.Count, 3).End(xlUp).Row
    
15.         arr = .Range("a2:j" & r)
    
16.         For i = 1 To UBound(arr)
    
17.             If d.exists(arr(i, 3)) Then
    
18.                 m = d(arr(i, 3))
    
19.                 arr(i, 5) = brr(m, 2) + brr(m, 3)
    
20.                 arr(i, 7) = brr(m, 2)
    
21.                 arr(i, 8) = brr(m, 3)
    
22.             End If
    
23.         Next
    
24.         .Range("a2:j" & r) = arr
    
25.     End With
    
26. End Sub
    

复制代码

chxw68

练习。。。

ddz79101

liulang0808 发表于 2024-8-16 07:12
建议楼主结合附件内容描述下数据具体对用关系

老师！就是两张表的列关键字（字母）一一对应提取。

ddz79101

sdytsxd991122 发表于 2024-8-16 08:39
直接用公式

老师，我有想过，但因为要导入软件，含函数常会出错

ddz79101

笨鸟飞不高 发表于 2024-8-16 09:01

谢谢老师！在外无法验证

ddz79101

笨鸟飞不高 发表于 2024-8-16 09:01

谢谢老师！在外无法测试