[已解决]求帮编写个简单的VBA

13958206051

grf1973 发表于 2015-10-12 10:14
用数组批量查找。

问一下，最大的行数是几行，我到50000多行查询就显示溢出了···

13958206051

grf1973 发表于 2015-10-12 10:14
用数组批量查找。

可否帮我改下语句，我试了下三万可以，三万多就溢出了，有没有可以十几万也不溢出的？

grf1973

把溢出的附件上传一个。照理不会溢出的。

13958206051

grf1973 发表于 2015-10-12 15:40
把溢出的附件上传一个。照理不会溢出的。

文件太大，没法上传，，第一列数据在五万多条，就会提示溢出。

grf1973

第3句去掉，或改成  Dim i As Long 就行了
Sub 查找()
    Application.ScreenUpdating = False
    Dim i As Long
    arr = Sheets("全部产品").[a1].CurrentRegion
    Set d = CreateObject("scripting.dictionary")
    brr = Range("a1:f" & Cells(Rows.Count, 1).End(3).Row)
    For i = 2 To UBound(arr)
        d(arr(i, 1)) = i
    Next
    For i = 2 To UBound(brr)
        k = d(brr(i, 1))
        If k > 0 Then
            For j = 2 To UBound(brr, 2)
                brr(i, j) = arr(k, j)
            Next
        End If
    Next
    Range("a1:f" & Cells(Rows.Count, 1).End(3).Row) = brr
    Application.ScreenUpdating = True
End Sub

13958206051

grf1973 发表于 2015-10-13 09:31
第3句去掉，或改成  Dim i As Long 就行了
Sub 查找()
    Application.ScreenUpdating = False

可以了，，非常感谢