Question

Excel VBA运行越来越慢，怎么提速

Answer 1

我看出问题了，数据多的时候，隐藏的操作会很慢。加快速度有两个途径：

第一个简单点，for i=11 ti h的循环不要检查cells，而是先把第5列内容存放在数组里面，在数组里面检查是否应当隐藏。进行隐藏的算法也优化了一点，就是先根据是否相等判断出是否隐藏到变量x里面，然后检测那一行的状态是否与x相同，不同才处理，减少处理次数。优化后的代码如下：

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim s, h, i, arr, x
    If Target.Address = Range("P5").Address Then
        s = Range("P5").Value
        h = UsedRange.Rows.Count
        If (Trim(s) = "全部" Or Trim(s) = "") Then
            Rows("10:" & h).Hidden = False
        Else
            Application.ScreenUpdating = False
            arr = Range(Cells(1, 5), Cells(h, 5))
            For i = 11 To h
                x = arr(i, 1) <> s
                If Rows(i).Hidden <> x Then Rows(i).Hidden = x
            Next
        Application.ScreenUpdating = True
        End If
    End If
End Sub

上面的代码通过从数组里面判断，减少了取数时间，隐藏/显示行之前先检测一下状态，减少处理时间，应该有一定的效果。

代码还可以进一步优化，逐行扫描去隐藏和显示的操作仍然非常耗时，进一步优化的思路就是一块一块的进行处理，例如在数万行中筛选出需要显示的只有几行（极端就是一行）而其它都要显示的时候，最最佳状态下只需要执行三次：前面一段隐藏、中间一段显示、后面一段隐藏，能把上万次的表格界面操作缩小到三次，效果会大大加强。但是代码会很长、很复杂，要用一系列变量记录判断的当前行应该隐藏还是显示，但不立即处理，继续判断下一行；如果需要的处理和前面的相同，就记录需要处理的范围，继续下一行判断；如果需要的处理和之前的不同，那就执行之前的操作，重新记录。

Answer 2

VBA代码提速常用的方法主要有：

1. 让代码"专注"运行
   例如：将Application.ScreenUpdating设定为False,关闭屏幕更新


2. 单元格（区域）写法的选择
   单元格（区域）写法有3种,以A1单元格为例,使用Cell对象写法:cells(1,1)，运行速度最快


3. 使用With语句
   with语句不仅仅是简化了写法,速度也大大提升了。


4. 尽量不用Variant类型
   这不用多说吧,使用Option Explicit是一个好习惯。