[已解决]一对多查找？

happytiger2012

如图A列和B列，当我查找“笔”，则自动将笔对应的B列数据赋值给数组arr
比如：我找“笔”，那么arr=Array(3,4,5,2,1,6,9)

有什么函数吗？或哪位写个自定义函数。谢谢

最佳答案

月排行榜 / 总排行榜

爱疯

2013-3-19 14:28

Sub 按钮1_Click()
    Dim A(), B(), i&, s&
    A = Range("a1").CurrentRegion
    For i = 2 To UBound(A)
        If A(i, 1) = "笔" Then
            s = s + 1
            ReDim Preserve B(1 To s)
            B(s) = A(i, 2)
        End If
    Next i
End Sub
因为不知道会受什么影响，只好就这样了

跳转到最佳答案楼层

爱疯

Sub 按钮1_Click()
Dim arr
Range("A:B").AutoFilter Field:=1, Criteria1:="笔"
arr = Range("b:B").SpecialCells(xlCellTypeVisible)
Stop
End Sub
根据需要再改

happytiger2012

爱疯 发表于 2013-3-19 13:37
Sub 按钮1_Click()
Dim arr
Range("A:B").AutoFilter Field:=1, Criteria1:="笔"

能不能不通过筛选，因为数据量比较大

爱疯

传真实表吧，<30条数据就够，因为不知道会不会还要改

happytiger2012

爱疯 发表于 2013-3-19 14:14
传真实表吧，

不需要改，源表就如图，你的代码是对，就是比较慢

爱疯

Sub 按钮1_Click()
    Dim A(), B(), i&, s&
    A = Range("a1").CurrentRegion
    For i = 2 To UBound(A)
        If A(i, 1) = "笔" Then
            s = s + 1
            ReDim Preserve B(1 To s)
            B(s) = A(i, 2)
        End If
    Next i
End Sub
因为不知道会受什么影响，只好就这样了

happytiger2012

爱疯 发表于 2013-3-19 14:28
Sub 按钮1_Click()
    Dim A(), B(), i&, s&
    A = Range("a1").CurrentRegion

我设你为最佳答案！
你能帮我解决这个问题吗？http://www.excelpx.com/thread-297400-1-1.html