excel2003，如何把符合两个条件的数据显示出来，允许空值

gema001

各位大侠好！~          在线等答案.......          我用的是Excel2003，希望从一行行数据中， 挑选出同时符合两个条件的一行，或者多行的数据。 原始数据有空值。数据比较多上万个， 有字符型的也有数值型。先谢谢啦！

这儿有肥猫

这种情况用SQL是最方便的，不过03版的SQL已经不记得了，excel可以升升级了，03年到15年，12年都过去了

gema001

这儿有肥猫 发表于 2015-3-25 16:01
这种情况用SQL是最方便的，不过03版的SQL已经不记得了，excel可以升升级了，03年到15年，12年都过去了

03版的用着比较经典，界面看起来比较宽，最主要自己已经习惯03的了，07,10版的都不舒服

26759761@qq.com

=OFFSET(产品输入!A$1,SMALL(IF($K$1&$K$2=产品输入!$C$2:$C$8&产品输入!$D$2:$D$8,ROW($1:$7),4^7),ROW(A1)),)&""

三键结束.
但是几万行数据的话.......卡..{:241:}
vba应该可以

gema001

26759761@qq.com 发表于 2015-3-25 16:06
=OFFSET(产品输入!A$1,SMALL(IF($K$1&$K$2=产品输入!$C$2:$C$8&产品输入!$D$2:$D$8,ROW($1:$7),4^7),ROW(A1 ...

先谢谢了，类似的公式我在百度上查到过，后面确实如你所说，卡的不行

26759761@qq.com

1. Sub x()
   
2. Dim arr, x, brr(1 To 50000, 1 To 8), r
   
3. Range("a2:h65000").ClearContents
   
4.   arr = Sheets("产品输入").Range("A1:h" & [a65000].End(3).Row)
   
5.   For x = 1 To UBound(arr)
   
6.     If arr(x, 3) & arr(x, 4) = [k1] & [k2] Then
   
7.       r = r + 1
   
8.       For y = 1 To 8
   
9.         brr(r, y) = arr(x, y)
   
10.       Next
    
11.     End If
    
12.   Next
    
13.   [a2].Resize(r, 8) = brr
    
14. End Sub
    

复制代码

这儿有肥猫

提供个思路