使用VBA加粗Excel表格指定词语后工作表卡顿问题咨询

首先排除两类非相关因素：

• 不是Power Query/Power Pivot导致：你数据导入完成后初始操作完全流畅，卡顿仅在VBA运行后出现，和数据源导入逻辑无关
• 不是加粗格式本身的问题：你手动对相同位置的词语做加粗操作没有卡顿，说明富文本格式本身不会触发渲染瓶颈

核心问题出在你使用的VBA代码的执行逻辑上，有两个触发后续卡顿的常见原因：

1. 代码运行时没有关闭Excel的实时反馈机制，每一次修改单个字符的字体属性时，Excel都会在后台生成冗余的格式快照记录，这类碎片化的格式记录不会体现在文件体积上，但会大幅提升滚动时的渲染计算开销，32位Office的渲染缓存上限更低，更容易出现这类卡顿
2. 原代码的匹配逻辑存在边界判断缺陷，可能在特殊字符、连续空格附近重复叠加格式标记，手动操作时不会出现这种重复写入的问题，进一步加剧了格式碎片化

第一步先清除原有冗余格式：选中第一列所有单元格，设置字体为默认非加粗、黑色，清空之前VBA生成的异常格式记录。
第二步使用优化后的VBA代码重新执行高亮操作，代码中添加了运行时性能开关，同时修正了匹配逻辑避免重复写入：

Sub HighlightText_Optimized()
    Dim rng As Range
    Dim words As String
    Dim NumChars As Long
    Dim StartChar As Long
    Dim rngChar As Long
    Dim EndWords As Long
    ' 关闭Excel实时更新，消除冗余格式记录生成
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    
    On Error Resume Next
    words = InputBox("请输入需要高亮的词语", "输入关键词")
    If Trim(words) = "" Then GoTo Cleanup ' 空输入直接退出
    NumChars = Len(words)
    For Each rng In Selection
        rngChar = Len(rng.Value)
        StartChar = InStr(1, rng.Value, words, vbTextCompare) ' 如需区分大小写可删掉最后一个参数
        Do Until StartChar = 0
            EndWords = StartChar + NumChars - 1
            ' 修正边界判断逻辑，避免越界和重复匹配
            If (StartChar = 1 Or Mid(rng.Value, StartChar - 1, 1) Like "[!0-9a-zA-Z\u4e00-\u9fa5]") Then
                If (EndWords >= rngChar Or Mid(rng.Value, EndWords + 1, 1) Like "[!0-9a-zA-Z\u4e00-\u9fa5]") Then
                    With rng.Characters(StartChar, NumChars).Font
                        .Bold = True
                        .Color = vbRed
                    End With
                End If
            End If
            StartChar = InStr(EndWords + 1, rng.Value, words, vbTextCompare)
        Loop
    Next
    
Cleanup:
    ' 恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    If Err.Number <> 0 Then MsgBox "执行出错：" & Err.Description
End Sub

如果操作后仍有卡顿，可将整张表格的内容复制到新建的空白工作簿中，剔除原有文件残留的格式缓存碎片即可。

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