如何重构VBA宏：匹配文本删除工单表格指定行

问题背景 #

现有CleanWKOs宏通过重复的查找-删除逻辑移除工单中指定字段行，但文件增大时运行效率低下。需要利用字符串数组循环优化代码，减少冗余操作，提升处理速度。

优化后的VBA代码 #

Sub CleanWKOs()
    ' 移除包含指定字段的表格行：{"Custom Field", "Failure Code", "Reason Code", "Meter", "Media", "File Name"}
    Dim targetTexts As Variant
    Dim text As Variant
    Dim findRange As Range
    
    ' 定义需要查找的目标字段数组
    targetTexts = Array("Custom Field", "Failure Code", "Reason Code", "Meter", "Media", "File Name")
    
    ' 关闭屏幕更新以提升效率
    Application.ScreenUpdating = False
    
    ' 遍历每个目标字段
    For Each text In targetTexts
        Set findRange = ActiveDocument.Content
        With findRange.Find
            .ClearFormatting
            .Text = text
            .Wrap = wdFindContinue
            .Forward = True
            
            ' 循环查找并删除匹配行
            Do While .Execute
                If findRange.Information(wdWithInTable) Then
                    findRange.Rows.Delete
                End If
            Loop
        End With
    Next text
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
End Sub

优化点说明 #

• 使用字符串数组：将所有目标字段存入数组，通过循环替代重复的查找代码，大幅减少冗余
• 统一查找范围：使用ActiveDocument.Content替代Selection，避免因选区变化导致的问题，同时提升稳定性
• 关闭屏幕更新：处理大文件时，关闭ScreenUpdating可显著提升运行速度，减少界面闪烁
• 简化逻辑结构：将重复的查找配置和删除逻辑整合到循环中，代码更易维护和扩展

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