筛选数据

linda80200

筛选问题.zip (15.05 KB, 下载次数: 17)

2017-4-29 10:22 上传

点击文件名下载附件

详见附件，望各位老师指点，谢谢

LMY123

不能直接对A列模糊查询?

蓝桥玄霜

办法1：改为If arr(i, 4) Like Range("F1") & "*" Then
办法2：不需要D列数据，直接对A列判断

lsc900707

1. Sub lsc()
   
2.     Dim brr(1 To 1000, 1 To 3)
   
3.     arr = Range("a2:c" & Cells(Rows.Count, 1).End(3).Row)
   
4.     For i = 1 To UBound(arr)
   
5.         If arr(i, 1) = [f1] Then
   
6.             m = m + 1
   
7.             For j = 1 To UBound(arr, 2)
   
8.                brr(m, j) = arr(i, j)
   
9.             Next
   
10.         End If
    
11.     Next
    
12.     If m = 0 Then
    
13.         MsgBox "没有找到相关数据！"
    
14.     Else
    
15.         [h2].Resize(m, 3) = brr
    
16.     End If
    
17. End Sub

复制代码

linda80200

LMY123 发表于 2017-4-29 10:41
不能直接对A列模糊查询?

老师好，之前也想过，但是想关键字不一定限为城市名称

lsc900707

如果非要d列的连接，那就可以这样处理：

1. Sub lsc()
   
2.     Dim brr(1 To 1000, 1 To 3)
   
3.     arr = Range("a2:d" & Cells(Rows.Count, 1).End(3).Row)
   
4.     For i = 1 To UBound(arr)
   
5.         If arr(i, 4) Like [f1] & "*" Then
   
6.             m = m + 1
   
7.             For j = 1 To 3
   
8.                brr(m, j) = arr(i, j)
   
9.             Next
   
10.         End If
    
11.     Next
    
12.     If m = 0 Then
    
13.         MsgBox "没有找到相关数据！"
    
14.     Else
    
15.         [h2].Resize(m, 3) = brr
    
16.     End If
    
17. End Sub

复制代码

linda80200

蓝桥玄霜 发表于 2017-4-29 10:46
办法1：改为If arr(i, 4) Like Range("F1") & "*" Then
办法2：不需要D列数据，直接对A列判断

谢谢版主回复～～～采用第一种

LMY123

linda80200 发表于 2017-4-29 10:52
老师好，之前也想过，但是想关键字不一定限为城市名称

上传你的全部数据吧