运行2个小时还没有完成，请帮忙看看是不是程序设计的问题

gzminge

运行2个小时了，还没有结束，所以强行中断看看情况，结果就失去反应了。

gzminge

刚刚又看了，用快捷键强行中断，又过几分钟之后才有反应。
原来是已经运算完成了，为什么在处理数据量不大的时候完成运算就能自动停止，处理数据量大的时候就会越来越慢，甚至完成之后还不能停止？

gzminge

Sub test0726()
Dim i&, j&, arr, r As Range, d As Object
    Set d = CreateObject("Scripting.Dictionary")
    With Worksheets("亲民")
        arr = .Range("AE1284:AE2483").Value
        For i = 1 To UBound(arr)
            If arr(i, 1) <> "" Then d(arr(i, 1)) = i + 1283
        Next
        Set r = .Range("AI2485:BB50000")
        arr = r.Value
        For i = 1 To UBound(arr)
            For j = 1 To UBound(arr, 2)
                If d.exists(arr(i, j)) Then
                    .Cells(d(arr(i, j)), j + 34).Copy r.Cells(i, j)
                End If
            Next
        Next
    End With
    Set r = Nothing
    Set d = Nothing
End Sub

醉眼看尘世

你这是要逐个填 48717  *  24 = 1169208个单元格啊，还是复制粘贴

Qs18

全部用数组，应该会快些

醉眼看尘世

建议结果用数组处理好后，全部回写

一招秒杀

若用数据库，超过2秒算我输

gzminge

一招秒杀 发表于 2024-8-4 18:29
若用数据库，超过2秒算我输

具体怎么用数据库？请你示范一下可以吗？


Sub test0726()
Dim i&, j&, arr, r As Range, d As Object
    Set d = CreateObject("Scripting.Dictionary")
    With Worksheets("亲民")
        arr = .Range("AE1284:AE2483").Value
        For i = 1 To UBound(arr)
            If arr(i, 1) <> "" Then d(arr(i, 1)) = i + 1283
        Next
        Set r = .Range("AI2485:BB50000")
        arr = r.Value
        For i = 1 To UBound(arr)
            For j = 1 To UBound(arr, 2)
                If d.exists(arr(i, j)) Then
                    .Cells(d(arr(i, j)), j + 34).Copy r.Cells(i, j)
                End If
            Next
        Next
    End With
    Set r = Nothing
    Set d = Nothing
End Sub

gzminge

醉眼看尘世 发表于 2024-8-4 17:54
你这是要逐个填 48717  *  24 = 1169208个单元格啊，还是复制粘贴

只是把名字相对应的相关单元格复制粘贴过来

旧帖子在这里：https://club.excelhome.net/threa ... tml?_dsign=a4faa481

gzminge

一招秒杀 发表于 2024-8-4 18:29
若用数据库，超过2秒算我输

这么厉害啊，能帮忙改一下吗?