[已解决]找半天未果，超难度筛选问题，

vexkk

根据第一行 D-L的要求
筛选出 “库存”表中的值

如上的结果，谢谢大师！

请看附件~~~~~~

最佳答案

月排行榜 / 总排行榜

柳如烟

2012-8-28 22:58

1. 
   
2. Sub 筛选()
   
3.     Dim arr, cn, rs, sql$, i%
   
4.     Set cn = CreateObject("adodb.connection")
   
5.     With cn
   
6.         .provider = "microsoft.ace.oledb.12.0"
   
7.         .connectionstring = "extended properties='excel 12.0;hdr=no';data source=" & ThisWorkbook.FullName
   
8.         .Open
   
9.     End With
   
10.     sql = "select f2,f3,f4,f5,f6,f7,f8,f9,f10,f11 from [库存$a2:l" & Sheet56.UsedRange.Rows.Count & "] where"
    
11.     With Sheets("录入表")
    
12.         arr = .Range("d1:l1")
    
13.         For i = 1 To UBound(arr, 2)
    
14.             If arr(1, i) <> "" Then
    
15.                 If IsNumeric(arr(1, i)) Then
    
16.                     sql = sql & " f" & i + 1 & "=" & arr(1, i) & "  and "
    
17.                 Else
    
18.                     sql = sql & " f" & i + 1 & "='" & arr(1, i) & "'  and "
    
19.                 End If
    
20.             End If
    
21.         Next
    
22.         sql = Left(sql, Len(sql) - 6)
    
23.         Set rs = cn.Execute(sql)
    
24.         .Range("d2:p1000").ClearContents
    
25.         .Range("d2").CopyFromRecordset cn.Execute(sql)
    
26.     End With
    
27.     cn.Close
    
28. End Sub
    

复制代码

修改一下

跳转到最佳答案楼层

xiaoni

做个记号，让我想想

无聊的疯子

模糊查找是干啥用的？？

不用管？？只需要按按钮么？？

柳如烟

1. 
   
2. Sub 筛选()
   
3.     Dim arr, cn, rs, sql$, i%
   
4.     Set cn = CreateObject("adodb.connection")
   
5.     With cn
   
6.         .provider = "microsoft.ace.oledb.12.0"
   
7.         .connectionstring = "extended properties='excel 12.0;hdr=no';data source=" & ThisWorkbook.FullName
   
8.         .Open
   
9.     End With
   
10.     sql = "select f2,f3,f4,f5,f6,f7,f8,f9,f10,f11 from [库存$a2:l" & Sheet56.UsedRange.Rows.Count & "] where"
    
11.     With Sheets("录入表")
    
12.         arr = .Range("d1:l1")
    
13.         For i = 1 To UBound(arr, 2)
    
14.             If arr(1, i) <> "" Then
    
15.                 If IsNumeric(arr(1, i)) Then
    
16.                     sql = sql & " f" & i + 1 & "=" & arr(1, i) & "  and "
    
17.                 Else
    
18.                     sql = sql & " f" & i + 1 & "='" & arr(1, i) & "'  and "
    
19.                 End If
    
20.             End If
    
21.         Next
    
22.         sql = Left(sql, Len(sql) - 6)
    
23.         Set rs = cn.Execute(sql)
    
24.         .Range("d2:p1000").ClearContents
    
25.         .Range("d2").CopyFromRecordset cn.Execute(sql)
    
26.     End With
    
27.     cn.Close
    
28. End Sub
    

复制代码

修改一下

vexkk

不好意思吖，这么久才复

试都很好用吖，谢谢大师

不知大师是男是女尼