双条件查找返回多个结果，求老师帮忙

yysfcq1

quqiyuan 发表于 2024-1-31 12:51
可能你的版本比较低，没有filter，textjoint函数

我的是2013版本

zpy2

yysfcq1 发表于 2024-1-31 12:55
我的是2013版本

=WEBSERVICE("https://e.anyoupin.cn/eh3/?sql~" & encodeurl("select group_concat(库位||'('||结存数||')') from 总档 where 订单号 like 'PK20240001'" ))

ykcbf1100

附件供参考。。。

ykcbf1100

代码供参考，代码以附件为准。

1. Sub ykcbf()  '//2024.1.31
   
2.     Dim arr, brr, d, r, s, i, bm, dd, st
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     With Sheets("总档")
   
5.         r = .Cells(Rows.Count, 1).End(3).Row
   
6.         arr = .Range("a1:l" & r)
   
7.     End With
   
8.     For i = 2 To UBound(arr)
   
9.         s = arr(i, 2) & "|" & arr(i, 1)
   
10.         st = arr(i, 9) & "(" & arr(i, 6) & ")"
    
11.         If Not d.exists(s) Then
    
12.             d(s) = st
    
13.         Else
    
14.             d(s) = IIf(InStr(d(s), st), d(s), d(s) & st)
    
15.         End If
    
16.     Next
    
17.     With Sheets("条码打印")
    
18.         bm = .[t2]
    
19.         dd = .[t6]
    
20.         s = bm & "|" & dd
    
21.         If d.exists(s) Then
    
22.             .[t7] = d(s)
    
23.         End If
    
24.     End With
    
25.     Set d = Nothing
    
26. End Sub
    
27. 
    

复制代码

yysfcq1

cidanji 发表于 2024-1-31 12:50

老师还是你写的代码最好用，再次谢谢你！