[已解决]如何利用条件提取数据？

cyj153

如何利用表1中序号提取表2内序号列上的对应号的所有数据到表1上。谢谢！

MNk3F7Vl.rar (3.26 KB, 下载次数: 2)

2010-12-13 13:14 上传

点击文件名下载附件
如何利用条件提取数据？

最佳答案

月排行榜 / 总排行榜

liuguansky

2010-12-13 14:37

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$J$5" Then
        Dim arr1, arr2, i&, dic
        Set dic = CreateObject("scripting.dictionary")
        With Sheet2
        k = .Cells(.Rows.Count, "d").End(3).Row
        arr1 = .Cells(1, "d").Resize(k, 1).Value
        arr2 = .Cells(1, "N").Resize(k, 7).Value
        End With
        For i = 2 To UBound(arr1, 1)
        dic(arr1(i, 1)) = i
        Next
        [e10:k10].ClearContents
        If dic.exists([j5].Value) Then
        [e10:k10] = Application.Index(arr2, dic([j5].Value), 0)
        End If
        Set dic = Nothing
    End If
End Sub

eIN3kRhV.rar (11.37 KB, 下载次数: 45)

2010-12-13 14:37 上传

点击文件名下载附件
如何利用条件提取数据？

跳转到最佳答案楼层

simonguo

学习

liuguansky

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$J$5" Then
        Dim arr1, arr2, i&, dic
        Set dic = CreateObject("scripting.dictionary")
        With Sheet2
        k = .Cells(.Rows.Count, "d").End(3).Row
        arr1 = .Cells(1, "d").Resize(k, 1).Value
        arr2 = .Cells(1, "N").Resize(k, 7).Value
        End With
        For i = 2 To UBound(arr1, 1)
        dic(arr1(i, 1)) = i
        Next
        [e10:k10].ClearContents
        If dic.exists([j5].Value) Then
        [e10:k10] = Application.Index(arr2, dic([j5].Value), 0)
        End If
        Set dic = Nothing
    End If
End Sub

eIN3kRhV.rar (11.37 KB, 下载次数: 45)

2010-12-13 14:37 上传

点击文件名下载附件
如何利用条件提取数据？

liuguansky

不需要按钮，已经实现事件化了。[em03]