FOR语句套用怎么优化能够运行比较快

124673868

我有两个表格，想从表1中提取数据到表2，用两个FOR语句套用当两边表格达到几万行的时候卡着动不了，有没有其他方法能够提升运算速度，请大神指导下

124673868

自己顶一下

124673868

这帖子注定要沉了

司大维

你的原程序能运行呀，速度挺快的。只不过数据算的不对，写的也不清晰，我修改了一下，你试试。
Sub test()
Sheet2.Range("b2:d20").ClearContents
Dim arr(), arr1()
Dim i, j As Integer
arr = Sheet1.[a1].CurrentRegion.Value2 '我一般不用这个，万一有空格呢
arr1 = Sheet2.Range("a1:d20") '因为上面的清除操作破坏了结构，所以直接用范围确定
For i = 2 To UBound(arr)
    For j = 2 To UBound(arr1)
        If arr(i, 2) = arr1(j, 1) Then
            arr1(j, 2) = arr(i, 3) + arr1(j, 2)
            arr1(j, 3) = arr(i, 4)
            arr1(j, 4) = arr(i, 4) + arr1(j, 4)
        End If
    Next j
Next i
Sheet2.Range("a1:d20") = arr1
End Sub

司大维

1、运行速度慢一般是出在表格切换、找单元格的过程中了，主要是找单元格。
2、锁屏可以解决表格切换耽误时间的问题，使用数组可以解决上面的两个问题，所以说还是要用数组。
3、如果用了数组还是很慢，就要思考一下是不是Excel中的使用技巧，有没有用到VBA中来：譬如说可以用筛选、查找一两次解决的，硬要用循环几万次、几十万次的方式来解决。

124673868

司大维 发表于 2020-4-19 21:46
你的原程序能运行呀，速度挺快的。只不过数据算的不对，写的也不清晰，我修改了一下，你试试。
Sub test() ...

感谢，可能是我表格太大了，毕竟是EXCEL，我再梳理下数据，尽量少一些