类似VLOOKUP函数一对多的匹配

alanlad

各位老师好

我想利用一个订单号，查询到数据库中该订单号所有的清单，用VLOOKUP只能单一的，而且一对多需要用辅助列，麻烦各位老师可否帮我看下，万分感谢！


详见附件！


订单查询.rar (12.76 KB, 下载次数: 11)

2019-3-21 19:18 上传

点击文件名下载附件

一指禅62

1. Sub 订单查询()
   
2.     Dim arr, i&, j%, a(), n%, key$
   
3.     arr = Sheet1.Range("A1").CurrentRegion
   
4.     key = Trim(Sheet2.Range("F2").Text)
   
5.     If key = "" Then Exit Sub
   
6.     For i = 3 To UBound(arr)
   
7.         If arr(i, 1) = key Then
   
8.             n = n + 1: ReDim Preserve a(1 To 6, 1 To n)
   
9.             For j = 1 To 6
   
10.                 a(j, n) = arr(i, j + 1)
    
11.             Next
    
12.         End If
    
13.     Next
    
14.     Sheet2.Range("A8:K10000") = ""
    
15.     If n > 0 Then
    
16.         Sheet2.Range("A8").Resize(n, UBound(a)) = WorksheetFunction.Transpose(a)
    
17.     Else
    
18.         MsgBox "没有找到订单编号为<" & key & ">的记录！", vbInformation
    
19.     End If
    
20. End Sub

复制代码

一指禅62

订单查询.zip (18.14 KB, 下载次数: 49)

2019-3-21 19:46 上传

点击文件名下载附件