[已解决]关于VBA查询的问题

相交的平行线

各位老师好：
       下图为本人求助的查询问题。因为查询数据是分开的，请老师指点一下代码，谢谢！（数据简单做了模拟）

最佳答案

月排行榜 / 总排行榜

excel用户1116

2022-3-8 14:43

数据查询.zip (18.27 KB, 下载次数: 22)

2022-3-8 14:43 上传

点击文件名下载附件

跳转到最佳答案楼层

相交的平行线

如果是用字典做这道题，是需要声明两个字典么？即左边声明一个字典，查询后输出；右边三列要怎么声明字典？

eennoo

这类有格式的最好当然是用sql语句来写，简单容易，也就是一行语句

1. Sub marco()
   
2. Dim a(1 To 4)
   
3. Set dic = CreateObject("Scripting.Dictionary")
   
4. For i = 2 To [n1].CurrentRegion.Rows.Count
   
5. If Not dic.exists(Cells(i, "N").Text) Then
   
6. a(1) = Cells(i, "O").Text
   
7. a(2) = Cells(i, "P").Text
   
8. a(3) = Cells(i, "Q").Text
   
9. a(4) = Cells(i, "R").Text
   
10. dic.Add Cells(i, "N").Text, a
    
11. End If
    
12. Next
    
13. 
    
14. For i = 2 To [a1].CurrentRegion.Rows.Count
    
15. If dic.exists(Cells(i, "a").Text) Then
    
16. 
    
17. Cells(i, "B") = dic(Cells(i, "A").Text)(2)
    
18. Cells(i, "d") = dic(Cells(i, "A").Text)(1)
    
19. Cells(i, "e") = dic(Cells(i, "A").Text)(4)
    
20. Cells(i, "f") = dic(Cells(i, "A").Text)(3)
    
21. End If
    
22. Next
    
23. End Sub
    

复制代码

相交的平行线

eennoo 发表于 2022-3-8 02:53
这类有格式的最好当然是用sql语句来写，简单容易，也就是一行语句

谢谢老师！只是有一个问题，就是执行出来的B列数据是数值，而数据源的类型是文本。用字典+sql就会出现这个问题，是吧？主要我sql不懂。麻烦老师再指点一下。或者说，只能先查询好，然后再重新写一段vba，将B列的数据变成数据源的样子

excel用户1116

数据查询.zip (18.27 KB, 下载次数: 22)

2022-3-8 14:43 上传

点击文件名下载附件