查找数据

望涯2529

哪位大神帮忙下， EXCEL用表1里数据，在表2里查找，找到的话就在表3里显示，显示结果如图。数据有几百条，怎么用VBA实现，谢谢了哦。

   

盼盼198310

..............

liulang0808

Sub 按钮1_Click()
    Set d = CreateObject("scripting.dictionary")
    arr = Sheets(1).[b1].CurrentRegion
    For j = 2 To UBound(arr)
        d(arr(j, 1)) = ""
    Next j
    arr = Sheets(2).[a1].CurrentRegion
    brr = Sheets(2).[a1].CurrentRegion
    For j = 2 To UBound(arr)
        If d.exists(arr(j, 2)) Then d(arr(j, 2)) = d(arr(j, 2)) & "," & j
    Next j
    r = 1
    For Each k In d.keys
        If Len(d(k)) = 0 Then
            r = r + 1
            brr(r, 1) = "无"
            brr(r, 2) = k
            brr(r, 3) = "无"
        Else
            crr = Split(d(k), ",")
            For j = 1 To UBound(crr)
                r = r + 1
                For i = 1 To UBound(arr, 2)
                    brr(r, i) = arr(Val(crr(j)), i)
                Next i
            Next j
        End If
    Next k
    Sheets(3).[g1].Resize(r, 3) = brr
End Sub

liulang0808

供参考。。。。

gwjkkkkk

参与一下。。。

mmwwdd

用SQL解决也挺方便

mmwwdd

现在wps也支持SQL非常方便

ovxyz

mmwwdd 发表于 2023-2-10 05:56
用SQL解决也挺方便

请教一下，对于有些数据表的起始行和起始列不是第一行和第一列的情况，代码应该怎么修改一下？能指定数据表的行和列吗？

mmwwdd

ovxyz 发表于 2023-2-10 09:24
请教一下，对于有些数据表的起始行和起始列不是第一行和第一列的情况，代码应该怎么修改一下？能指定数据 ...

能呀,你没[Sheet1$a4:b]

望涯2529

感谢各位大神帮忙。