VBA代码运行卡顿求优化：单元格中英文间自动添加@符号

原代码核心性能问题 #

• 每次触发变更时遍历整个E列（从第1行到最后一行），而非仅处理发生变化的单元格，这是卡顿的主要原因
• 未禁用事件触发，修改E列值会再次触发Worksheet_Change，形成无效循环
• 未关闭屏幕更新，每次单元格修改都会刷新界面，增加耗时
• 每次执行都强制保存工作簿，大幅增加等待时间
• 变量声明不规范（如L、B未指定类型），额外消耗性能
• 使用E.Text而非E.Value，依赖单元格格式且可能产生内容截断问题

优化后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim affectedCells As Range
    Dim cell As Range
    Dim count As Long
    Dim cellValue As String
    Dim i As Integer
    
    ' 仅锁定E10:E1500范围内的变更单元格
    Set affectedCells = Intersect(Target, Me.Range("E10:E1500"))
    If affectedCells Is Nothing Then Exit Sub
    
    ' 禁用事件与屏幕更新，避免循环触发、减少界面刷新耗时
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    
    On Error GoTo Cleanup ' 确保异常时恢复系统设置
    
    For Each cell In affectedCells
        ' 校验对应B列单元格状态及当前E列单元格内容
        If cell.Value <> "" And Me.Range("B" & cell.Row).Value <> "" And IsNumeric(Me.Range("B" & cell.Row).Value) Then
            If InStr(cell.Value, "@") = 0 Then
                cellValue = cell.Value
                count = 0
                
                ' 精准定位第一个阿拉伯语字符（Unicode编码范围U+0600-U+06FF）
                For i = 1 To Len(cellValue)
                    If AscW(Mid(cellValue, i, 1)) >= &H600 Then
                        Exit For
                    Else
                        count = count + 1
                    End If
                Next i
                
                ' 仅当存在中英文与阿拉伯语混合时添加@
                If count > 0 And count < Len(cellValue) Then
                    cell.Value = Left(cellValue, count) & "@" & Right(cellValue, Len(cellValue) - count)
                End If
            End If
        End If
    Next cell
    
    ' 可选：若无需每次变更都保存，注释此行
    ' ThisWorkbook.Save

Cleanup:
    ' 恢复系统默认设置
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    If Err.Number <> 0 Then Err.Raise Err.Number ' 抛出异常便于调试
End Sub

关键优化点说明 #

• 聚焦变更单元格：通过Intersect锁定触发事件的具体单元格，彻底避免全列遍历的无效计算
• 关闭后台冗余操作：禁用事件触发防止循环调用，关闭屏幕更新消除界面刷新的额外开销
• 精准字符匹配：用阿拉伯语标准Unicode起始编码&H600替代原代码的<1000，避免误判其他非英文字符
• 减少单元格访问：将单元格内容存入局部字符串cellValue，内存变量访问远快于单元格对象访问
• 灵活保存设置：默认注释自动保存操作，可根据业务需求手动启用（频繁保存是卡顿核心诱因之一）
• 异常安全保障：添加错误处理分支，确保代码异常时仍能恢复Excel的事件与屏幕更新状态

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