路过大神请帮忙提高运行速度

gzclc

路过大神请帮忙提高运行速度（数据多运行速度太慢了，目前运行时间需要30分钟）。

ringo777

也不慢啊，几秒就完了

grf1973

建议：
1、holiday函数干脆用数值进行判断，通过fortmat转换类型会加大工作量。当然前提是日历字典的定义也用数值。
2、工序函数里两列的输出用数组。

titi012

用公式就可以了。先做一个日历副本，把上班的日期筛选出来，休息日期不要，E4用下面公式，其它的类推。
记得要保证开工时间是上班日期，2022年的日期也要加上，否则是会出错的。

1. =INDEX(日历副本!$A:$A,MATCH(D4,日历副本!$A$2:$A$175,1)+$E$1+1)

复制代码

山菊花

下面高亮处没问题吧？
Sub 工序(s, e, ad)
    's:开始时间所在列索引号
    'e:计划完工时间所在列索引号
    'ad：加减天数
    For i = 4 To UBound(arr)
        If Len(arr(i, s)) = 0 Then
            arr(i, e) = Empty
        Else
            arr(i, e) = arr(i, s) + arr(1, e) + ad
            arr(i, e) = holiday(arr(i, s), arr(i, e), 1)
            Cells(i, e) = arr(i, e)
        End If

        If Len(arr(i, e)) And Len(arr(i, e + 1)) Then
            arr(i, e + 2) = arr(i, e + 1) - arr(i, e)
            arr(i, e + 2) = holiday(arr(i, e), arr(i, e + 1), -1) - arr(i, e)
            Cells(i, e + 2) = arr(i, e + 2)
        Else
            Cells(i, e + 2) = Empty
        End If
    Next i
End Sub

山菊花

代码中高亮行，其实不起作用，被下一行覆盖了。
Sub 工序(s, e, ad)
    's:开始时间所在列索引号
    'e:计划完工时间所在列索引号
    'ad：加减天数
    For i = 4 To UBound(arr)
        If Len(arr(i, s)) = 0 Then
            arr(i, e) = Empty
        Else
            arr(i, e) = arr(i, s) + arr(1, e) + ad
            arr(i, e) = holiday(arr(i, s), arr(i, e), 1)
            Cells(i, e) = arr(i, e)
        End If
        
        If Len(arr(i, e)) And Len(arr(i, e + 1)) Then
            arr(i, e + 2) = arr(i, e + 1) - arr(i, e)
            arr(i, e + 2) = holiday(arr(i, e), arr(i, e + 1), -1) - arr(i, e)
            Cells(i, e + 2) = arr(i, e + 2)
        Else
            Cells(i, e + 2) = Empty
        End If
    Next i
End Sub

caiyu93

用cells()速度当然慢了,建议改用纯数组方式解决,如果这个代码不是你写的话,那就找系铃人解决

山菊花

已按10楼要求修改代码，请测试。

沈默00

输出时改用数组，字典加数组都是几秒就好了，

gzclc

山菊花 发表于 2023-11-20 12:36
改为数组写入工作表，请测试。

膜拜大神，测试速度超快。改用二条数据验证，计算结果错误较多（详见附件蓝底单元格及标注说明），请教问题出在那？