模糊查询

ykcbf1100

yshcy 发表于 2025-1-29 15:57
如果  查询条件  为  打折卡  3个字，结果就不能出来。查询条件还可以是数据源里的B列或C列里的内容。请 ...

改一下吧。

ykcbf1100

改一下，BCD列为条件也行

1. Sub ykcbf()   '//2025.1.30
   
2.     Dim arr, brr
   
3.     Application.ScreenUpdating = False
   
4.     arr = Sheets("数据源").Range("a1").CurrentRegion
   
5.     With Sheets("查询")
   
6.         st = .[c2].Value
   
7.         If st = Empty Then
   
8.             MsgBox "查询值为空，请重新输入！"
   
9.             Exit Sub
   
10.         End If
    
11.         ReDim brr(1 To 1, 1 To 4)
    
12.         Sum = 0
    
13.         For i = 2 To UBound(arr)
    
14.             s = arr(i, 2) & "|" & arr(i, 3) & "|" & arr(i, 4)
    
15.             If InStr(s, st) Then
    
16.                 For j = 2 To UBound(arr, 2)
    
17.                     brr(1, j - 1) = arr(i, j)
    
18.                 Next
    
19.                 Sum = Sum + arr(i, 5)
    
20.             End If
    
21.         Next
    
22.         brr(1, 4) = Sum
    
23.         If st = "打折卡" Then brr(1, 1) = ""
    
24.         .[a5:d10000] = ""
    
25.         .Range("a5").Resize(1, 4) = brr
    
26.         .Range("a5").Resize(1, 4).Borders.LineStyle = 1
    
27.     End With
    
28.     Application.ScreenUpdating = True
    
29.     MsgBox "OK！"
    
30. End Sub
    

复制代码