在Excel的VBA中，如何改写代码才能加快代码的运行速度？

各位大神，以下代码虽然可以运行，但是运行速度不快，即使关闭了屏幕更新，也快不了很多，请问应该如何修改以下代码，才能加快它的执行速度呢？谢谢！ Sub …

关注者

被浏览

1,002

登录后你可以

不限量看优质回答私信答主深度交流精彩内容一键收藏

查看全部 2 个回答

会飞的鱼kk

搬砖的

看了下代码，主要是对判断些条件然后删除行列的操作，有两种思路可以使用代码运行更快一些

第一种，如果只是删除无用信息，或者说提取保留想要信息，如果只是要数据，不涉及格式或者函数公式，可以先把数据全部放到数组，然后声明一个结果数据，判断条件把需要保留的数据（非要删除的写到新数组），代码示例如下

Sub kkkk()
arr = Range("a1:z100") '取单元格数据到数组
k = UBound(arr) '数组行下标
h = UBound(arr, 2) '数组列下标
ReDim brr(1 To k, 1 To h)  '根据源数据声明一个相同大小的数组保存新结果
a = 0 '初始化结果数组行变量
For x = 1 To k
    If arr(x, 1) <> "要删除" Then
        a = a + 1
        For y = 1 To h
            brr(a, y) = arr(x, y)
    End If
Range("a1:z100") = brr
End Sub

以上是删除行的删除列也同理，就不写具体代码了

第二种、可以先循环判断要删除的行，把要删除的行号先保存到变量里，然后一次删除，代码运行速度也可以成倍提升，代码如下

t="1:1,3:3,5:5"
Range(t).Delete

第三种、删除行可以调用excel自带筛选功能，把要删除的数据筛选出来，然后删除可见行

    k = ActiveSheet.UsedRange.Rows.Count '获取当前表使用行数
    ActiveSheet.Range("a1:c" & k).AutoFilter Field:=3, Criteria1:=Array("A"), Operator:=xlFilterValues '筛选A到C列 C列筛选"A"的值
    On Error Resume Next '忽略错误运行下一行，不然当无筛选内容时 删除会出错
    ActiveSheet.Range("a2:a" & k).EntireRow.SpecialCells(xlVisible).Delete '删除筛选出来显示的行
    On Error GoTo 0 '恢复错误提示
    ActiveSheet.AutoFilterMode = False '取消筛选

第四种、如果运行的时候打开的工作簿有些文件有函数公式，可以运行时设置自动计算为手动（关闭自动计算），运行结束后开启，代码如下

    Application.Calculation = xlManual '公式计算设置手动
    Application.Calculation = xlAutomatic '公式计算设置自动

以上是提速的一些方法

Sub kkkk()
    k = Cells(Rows.Count, 1).End(3).Row
    t = ""
    For x = 1 To k
        If Cells(x, 1) = "B" Then
            If t = "" Then
                t = x & ":" & x
                t = t & "," & x & ":" & x
            End If
        End If