EXCEL批量查询,10个工作表,几十万数据。

发布网友发布时间：2022-04-30 10:02

共1个回答

热心网友时间：2022-06-20 21:13

可以用VBA来实现，不过那么大的数据，可能速度有点慢哦，基本的VBA代码骨架如下，可能需要调试一下：

Option Explicit

Sub 宏1()
    Dim st As Worksheet, arr, i, j, k, n, m, srh
    Sheets("查询表格").Activate
    n = 1 '结果保存行
    srh = Range("j1").CurrentRegion '需要查询的序列号清单
    For Each st In Sheets
        If st.Name <> "查询表格" Then
            arr = st.UsedRange
            For i = 1 To UBound(arr)
                For j = 1 To UBound(arr, 2)
                    For k = 1 To UBound(srh)
                        If arr(i, j) = srh(k) Then '找到
                            '复制一行
                            For m = 1 To UBound(arr, 2)
                                Cells(n, m) = arr(i, m)
                            Next m
                            n = n + 1
                            Exit For
                        End If
                    Next k
                Next j
            Next i
        End If
    Next st
End Sub