删除空白区域内容，但运行速度 太慢

luhming

循环运行太慢，求改进代码

gwjkkkkk

Option Explicit
Sub TEST3()
    Dim ar, br, i&, j&, t#
   
    Application.ScreenUpdating = False
    t = Timer
   
    br = Array(16, 17, 19, 20, 21)
    With [A2].CurrentRegion
        ar = .Value
        For i = 3 To UBound(ar)
            If ar(i, 4) <> "合计" Then
                For j = 0 To UBound(br)
                    ar(i, br(j)) = Empty
                Next j
            End If
        Next i
        .Value = ar
    End With
    Application.ScreenUpdating = True
    MsgBox "执行完毕!_用时:  " & Format(Timer - t, "0.00") & "  秒", 64
End Sub

gwjkkkkk

。。。。。。。。。。。。

luhming

gwjkkkkk 发表于 2024-8-24 19:49
Option Explicit
Sub TEST3()
    Dim ar, br, i&, j&, t#

真是高手啊，我都不知道数组杂和表格混用，谢谢大神

luhming

gwjkkkkk 发表于 2024-8-24 19:49
Option Explicit
Sub TEST3()
    Dim ar, br, i&, j&, t#

有一个问题，原来合计行是有公式的，用了这个，公式会被数值化，如何才能保持 原公式？

gwjkkkkk

luhming 发表于 2024-8-24 20:02
有一个问题，原来合计行是有公式的，用了这个，公式会被数值化，如何才能保持 原公式？

。。。。。。。。。。。

luhming

gwjkkkkk 发表于 2024-8-24 20:09
。。。。。。。。。。。

为你点赞，我好好研究一下，谢谢大神

chxw68

练习。。。

luhming

chxw68 发表于 2024-8-24 20:22
练习。。。

大神随手一写，都够我学一阵子的

扇扇扇