怎样宽松匹配输入条件？

chncwk

高级筛选的条件区域里，怎样让输入“1”后自动匹配成“1*”？
材料代码.7z (51.13 KB, 下载次数: 16)

2012-8-29 11:38 上传

点击文件名下载附件

yangyangzhifeng

试试看

1. Sub test()
   
2.     Dim i&, j&, k&, a&, x&, st$, tj, st1$, st2$
   
3.     Dim ar, br
   
4.     ar = Sheet2.Range("a2:f" & Sheet2.Range("a" & Rows.Count).End(xlUp).Row)
   
5.     tj = Sheet2.Range("h2:m15")
   
6.     ReDim br(1 To UBound(ar), 1 To 6)
   
7.     For i = 1 To UBound(ar)
   
8.         For k = 1 To UBound(tj)
   
9.         st = "": st1 = "": st2 = ""
   
10.             For a = 1 To 6
    
11.                 st = st & tj(k, a)
    
12.             Next
    
13.             If Len(st) Then
    
14.                 For a = 2 To 6
    
15.                     st1 = st1 & "|" & tj(k, a)
    
16.                     If tj(k, a) <> "" Then
    
17.                         st2 = st2 & "|" & ar(i, a)
    
18.                     Else
    
19.                         st2 = st2 & "|"
    
20.                     End If
    
21.                 Next
    
22.                 If tj(k, 1) = "" Or ar(i, 1) Like tj(k, 1) Then
    
23.                     If st1 = st2 Then
    
24.                         x = x + 1
    
25.                         For a = 1 To 6
    
26.                             br(x, a) = ar(i, a)
    
27.                         Next
    
28.                     End If
    
29.                 End If
    
30.             End If
    
31.         Next
    
32.     Next
    
33.     Sheet2.Range("o2:t" & Rows.Count).ClearContents
    
34.     Sheet2.Range("o2").Resize(x, 6) = br
    
35. End Sub

复制代码

chncwk

yangyangzhifeng 发表于 2012-8-29 13:06
试试看

没看懂，能大致说一下思路吗？
运行后没能正常完成，调试信息如下：

yangyangzhifeng

chncwk 发表于 2012-8-29 17:08
没看懂，能大致说一下思路吗？
运行后没能正常完成，调试信息如下：

我测试可以，条件区中代码字段用like，其他字段只要不为空，就必须完全相同来筛选
材料代码.rar (78.08 KB, 下载次数: 19)

2012-8-29 17:40 上传

点击文件名下载附件