关于EXCEL数据筛选的问题，在线急等~~

紫の_静如水

高手解救，
本人有6W多个的数据，我需要从中筛选出附合条件的一部份数据，请各位高手赐救~
谢谢~~ 123.rar (28.22 KB, 下载次数: 9)

2013-6-14 14:15 上传

点击文件名下载附件

smupsu

楼主，我做出来的结果每条记录是唯一的，这样可能VLOOKUP直接求出来。

你是要公式还是要筛选？

smupsu

有两种解法

f8b1987

1. =IFERROR(VLOOKUP("*"&$H5&"*",$A:$C,COLUMN(B1),),0)

复制代码

公式的话，6W数据略慢。

使用VBA

1. Sub 字典()
   
2. Dim i As long, y As long, arr(), brr()
   
3. Dim d1 As Object
   
4.     Set d1 = CreateObject("scripting.dictionary")
   
5.     arr = Range("a1").CurrentRegion
   
6.     brr = Range("H5:J" & Range("H5").End(xlDown).Row).Value
   
7.     For i = 2 To UBound(arr)
   
8.         d1(Mid(arr(i, 1), 4, 9)) = Array(arr(i, 2), arr(i, 3))
   
9.     Next i
   
10.     For y = 1 To UBound(brr)
    
11.         If d1.Exists("" & brr(y, 1)) = True Then
    
12.             brr(y, 2) = d1("" & brr(y, 1))(0)
    
13.             brr(y, 3) = d1("" & brr(y, 1))(1)
    
14.         End If
    
15.     Next y
    
16.     Range("h5").Resize(UBound(brr), 3) = brr
    
17. End Sub
    

复制代码

123.rar (63.76 KB, 下载次数: 6)

2013-6-14 15:01 上传

点击文件名下载附件