我的宏运行太慢了

partsman1967

Option Explicit
Sub test()
    Dim i, sum, n
    n = 1
    For i = 2 To Cells(65536, 2).End(3).Row
        sum = sum + Cells(i, "l")
        If sum > 70 Then
            sum = IIf(Cells(i, "l") > 70, 0, Cells(i, "l"))
            n = n + 1
        End If
        Cells(i, "h") = "BNC-" & Format(n, "00")
        If Cells(i, "l") > 70 Then n = n + 1
    Next
End Sub

这个宏怎么几个小时才运行完成？有快一点的办法吗？

ovxyz

Application.Calculation = xlCalculationManual

运行完毕之后
Application.Calculation = xlCalculationAutomatic

3190496160

目前的文件，打开都非常慢，跟不用说再运行你那频繁操作单元格的代码啦

partsman1967

不运行代码还是可以的的。1分钟，加代码几个小时才完

autohotey

我同事20M的工作簿都比你的快好几倍。是你的公式太多导致文件数据计算慢，跟宏没关系。
1，建议工作表的所有公式全部取消，均使用宏实现。除非 非常简单的公式，例如=A1或者普通求和SUM等   
2，工作表因为宏计算时会时刻在自动重算，因此在宏代码前面加上关闭刷新，计算完成后再打开。但这种方法也就辅助而已，根本原因还是在于公式太多  

lachenfei

如果不能优化公式，还有一种，升级配置，只能力大砖飞

混沌音符

给你一个粗暴的解决办法

Option Explicit
Sub test()
Application.Calculation = xlCalculationManual '手动重算
    Dim i, sum, n
    n = 1
    For i = 2 To Cells(65536, 2).End(3).Row
        sum = sum + Cells(i, "l")
        If sum > 70 Then
            sum = IIf(Cells(i, "l") > 70, 0, Cells(i, "l"))
            n = n + 1
        End If
        Cells(i, "h") = "BNC-" & Format(n, "00")
        If Cells(i, "l") > 70 Then n = n + 1
    Next
Application.Calculation = xlCalculationAutomatic '自动重算
End Sub

partsman1967

谢谢你，自己不会写代码。只会用公式

autohotey

partsman1967 发表于 2024-12-13 08:32
谢谢你，自己不会写代码。只会用公式

找人做吧，花点小钱，几十上百也就几顿饭钱（淘宝可能会很贵），让人专门写个宏。
去除掉现有复杂公式，减少人工操作，不香嘛？

朝露孤烟

答错了题。抱歉。