两表间取数

lgzxmlg

取数求助.zip (28.07 KB, 下载次数: 8)

2023-3-5 19:55 上传

点击文件名下载附件

如何根据编号提取规格值。

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, 1).End(xlUp).Row
   
8.         arr = .Range("a2:j" & r)
   
9.         For i = 1 To UBound(arr)
   
10.             d(arr(i, 1)) = arr(i, 10)
    
11.         Next
    
12.     End With
    
13.     With Worksheets("统计")
    
14.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
15.         arr = .Range("a2:b" & r)
    
16.         For i = 1 To UBound(arr)
    
17.             If d.exists(arr(i, 1)) Then
    
18.                 arr(i, 2) = d(arr(i, 1))
    
19.             End If
    
20.         Next
    
21.         .Range("a2:b" & r) = arr
    
22.     End With
    
23. End Sub
    

复制代码

chxw68

详见附件。

shiruiqiang

简单的：=VLOOKUP(A2,数据!A:J,10,0)

洋务德雷

SQL一句代码就可以解决。不用非得vba。

xing_chen

洋务德雷 发表于 2023-3-5 23:04
SQL一句代码就可以解决。不用非得vba。

老师！里面怎么没有代码

洋务德雷

xing_chen 发表于 2023-3-6 10:29
老师！里面怎么没有代码

你在哪里看代码？这个不是vba，所以不是在vba编辑界面看代码的。
在表内，右键---查询-就可以看到代码

sxbjzjf110

xing_chen

洋务德雷 发表于 2023-3-6 13:36
你在哪里看代码？这个不是vba，所以不是在vba编辑界面看代码的。
在表内，右键---查询-就可以看到代码

老师！是这个吗？是否将代码复制进就可以了？

洋务德雷

xing_chen 发表于 2023-3-6 17:04
老师！是这个吗？是否将代码复制进就可以了？

是这个代码。你说复制，是复制到哪里？代码就是在这里放的。
不过连接还是需要步骤的。需要学习，这里聊不方便，看我的个人信息，加好友吧V