如何在现有VBA宏中添加按D列特定文本删除行的功能？

以下是修改后的完整宏代码，已将删除D列包含指定文本行的功能整合进原JSAidRun宏，同时优化了原代码中冗余的滚动操作：

Sub JSAidRun()
    ' 保留原有的精简报表列的功能
    Range("1:1,2:2").Delete Shift:=xlUp
    
    ' 直接删除A-F以外的所有列，替代原代码中繁琐的列选择操作
    Columns("G:XFD").Delete Shift:=xlToLeft
    
    ' 自动调整列宽
    Columns("B:B").EntireColumn.AutoFit
    Columns("B:B").ColumnWidth = 71.43
    Columns("C:F").EntireColumn.AutoFit
    
    ' ---------------------- 新增删除指定行的功能 ----------------------
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim excludeTexts As Variant
    
    ' 设置要排除的文本数组
    excludeTexts = Array("Suspended", "Not Posted", "In Progress", "Expired", "Scheduled", "Unposted")
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row ' 获取D列最后一行数据
    
    ' 从下往上遍历删除（避免漏删）
    For i = lastRow To 1 Step -1
        ' 检查当前行D列值是否在排除数组中
        If Not IsError(Application.Match(ws.Cells(i, "D").Value, excludeTexts, 0)) Then
            ws.Rows(i).Delete
        End If
    Next i
    
    ' 保留原有的自动筛选
    Rows("1:1").AutoFilter
End Sub

原DeleteRowswithSpecificText宏无效的原因： #

• 仅判断了"Suspended"一个值，未覆盖需要的其他关键词
• 依赖Selection.Rows.Count，如果执行时选区不是整个数据区域，会导致遍历范围错误
• 未指定工作表，可能在非目标工作表执行操作

优化说明： #

1. 替换原代码中繁琐的列选择/滚动操作，直接删除G到最后一列，更高效简洁
2. 使用数组存储所有需要排除的文本，通过Application.Match批量判断，代码更易维护
3. 从数据最后一行往上遍历删除，避免因行删除导致的索引错位问题
4. 明确指定工作表，避免操作错误工作表

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