添加FILTER函数后Excel宏运行卡顿，请求排查解决

核心卡顿原因 #

你添加的FILTER属于动态数组函数，会在工作表内容变化时自动触发全表重新计算。原宏每次修改E列单元格值时，都会触发一次计算，再加上30-31个工作表的循环遍历，累积下来导致严重卡顿。

优化后的宏代码 #

Sub englishATarabic()
    ' 明确所有变量类型，避免Variant隐式转换带来的性能损耗
    Dim ws As Worksheet
    Dim lastRow As Long, R As Long, L As Long, count As Long
    Dim bVal As Variant, eVal As String
    Dim calcMode As XlCalculation
    
    ' 保存当前环境设置，后续恢复
    Set ws = ActiveSheet
    calcMode = Application.Calculation
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual ' 临时关闭自动计算
    
    ' 一次性获取E列最后一行数据，减少重复调用
    lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
    
    ' 遍历行：直接读取单元格值到变量，减少Range对象操作次数
    For R = 1 To lastRow
        bVal = ws.Range("B" & R).Value
        eVal = ws.Range("E" & R).Value
        
        If eVal <> "" And bVal <> "" And IsNumeric(bVal) Then
            If InStr(eVal, "@") = 0 Then ' 用Value替代Text，避免依赖单元格显示格式
                count = 0
                For L = 1 To Len(eVal)
                    ' 判断字符编码，定位到第一个阿拉伯语字符的位置
                    If AscW(Mid(eVal, L, 1)) < 1000 Then
                        count = count + 1
                    Else
                        Exit For
                    End If
                Next L
                
                ' 修改单元格值，此时不会触发自动计算
                ws.Range("E" & R).Value = Left(eVal, count) & "@" & Right(eVal, Len(eVal) - count)
            End If
        End If
    Next R
    
    ' 恢复原环境设置
    Application.Calculation = calcMode
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    
    ThisWorkbook.Save
End Sub

关键优化说明 #

• 关闭自动计算：修改单元格时不再触发FILTER的实时计算，直到宏执行完毕才恢复自动计算逻辑
• 禁用屏幕更新与事件：避免每次修改单元格都刷新界面、触发不必要的工作表事件
• 明确变量类型：消除Variant类型的隐式转换，提升代码运行效率
• 减少Range操作：将单元格值读取到变量中处理，避免反复调用Range对象
• 替换E.Text为E.Value：Text依赖单元格显示格式，Value直接读取原始值，更高效稳定

内容的提问来源于stack exchange，提问作者Ramadan Moussa