查找数据并展示

开机了

B1单元格选择对于的“产品类型”
B2单元格填入对应的“产品编码”
怎样实现在整个Sheet2工作表里查询对应的“产品类型”以及“产品编码”（名称存在重复），符合条件的全部一行行展示出来


小白一枚，不会vba代码，望老师指点

yynrzwh

产品查询.rar (19.17 KB, 下载次数: 14)

2024-2-21 16:50 上传

点击文件名下载附件

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.2.21
   
2.     Dim arr, brr
   
3.     c = 2
   
4.     ReDim a(1 To c), ft(1 To c)
   
5.     With Sheets("Sheet1")
   
6.         a(1) = .[b1]
   
7.         a(2) = .[b2]
   
8.     End With
   
9.     With Sheets("Sheet2")
   
10.         r = .Cells(Rows.Count, 1).End(3).Row
    
11.         arr = .Range("a2:h" & r)
    
12.     End With
    
13.     ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
    
14.     For i = 1 To UBound(arr)
    
15.         fft = 1
    
16.         ft(1) = IIf(a(1) = Empty Or arr(i, 1) = a(1), 1, 0)
    
17.         fft = fft * ft(1)
    
18.         ft(2) = IIf(a(2) = Empty Or arr(i, 2) = a(2), 1, 0)
    
19.         fft = fft * ft(2)
    
20.         If fft = 1 Then
    
21.             m = m + 1
    
22.             For j = 1 To UBound(arr, 2)
    
23.                 brr(m, j) = arr(i, j)
    
24.             Next
    
25.         End If
    
26.     Next
    
27.     With Sheets("Sheet1")
    
28.         .UsedRange.Offset(4).ClearContents
    
29.         With .[a5].Resize(m, 8)
    
30.             .Value = brr
    
31.             .Borders.LineStyle = 1
    
32.             .HorizontalAlignment = xlCenter
    
33.             .VerticalAlignment = xlCenter
    
34.         End With
    
35.     End With
    
36.     MsgBox "OK！"
    
37. End Sub
    

复制代码

lhj5286

已写好，看能否满足楼主需求

limonet

算了，你大概率不支持SQL，用筛选吧。

ykcbf1100

limonet 发表于 2024-2-21 16:59
算了，你大概率不支持SQL，用筛选吧。

sql不是应该适用所有office版本吗？

limonet

ykcbf1100 发表于 2024-2-22 09:06
sql不是应该适用所有office版本吗？

不含默认的“WPS”Office

ykcbf1100

limonet 发表于 2024-2-22 10:08
不含默认的“WPS”Office

哦，这样，那只适合office的版本了。

limonet

ykcbf1100 发表于 2024-2-22 10:36
哦，这样，那只适合office的版本了。

另外装个access库。