Power BI导出Excel报表：VBA筛选删除特定前缀行的需求与问题

原代码问题分析 #

• AutoFilter参数格式错误：多条件筛选参数传递不符合VBA规范，导致筛选逻辑失效，出现误删/漏删
• 行号未动态更新：删除行后未重新获取最后一行，引发索引错误
• 前缀匹配不精确：通配符无法区分R （R+空格）和RTest这类需保留的条目，易误删

修正后的VBA代码 #

Option Explicit
Sub CleanPowerBIReport()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim rng As Range
    Dim regex As Object
    
    ' 指定工作表，建议替换为具体表名（如Sheets("报表")）避免依赖ActiveSheet
    Set ws = ActiveSheet
    Set regex = CreateObject("VBScript.RegExp")
    
    ' 关闭屏幕更新提升运行速度
    Application.ScreenUpdating = False
    
    ' 1. 删除底部3行
    lastRow = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    If lastRow >= 3 Then
        ws.Rows(lastRow - 2 & ":" & lastRow).Delete
    End If
    
    ' 2. 移除A列重复PO编号行（保留表头）
    lastRow = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    ws.Range("A1:A" & lastRow).RemoveDuplicates Columns:=1, Header:=xlYes
    
    ' 3. 筛选保留J列（第10列）"Approved"条目
    lastRow = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    If ws.AutoFilterMode Then ws.AutoFilter.ShowAllData
    ws.Range("A1:J" & lastRow).AutoFilter Field:=10, Criteria1:="<>Approved"
    
    On Error Resume Next
    Set rng = ws.Range("A2:J" & lastRow).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    If Not rng Is Nothing Then rng.EntireRow.Delete
    ws.AutoFilter.ShowAllData
    
    ' 4. 删除H列（第8列）带特定前缀的行
    ' 正则匹配：R+空格/R-、XX、*开头，自动排除R直接跟字母的情况（如RTest）
    regex.Pattern = "^(R[ -]|XX|\*)"
    regex.IgnoreCase = False ' 如需不区分大小写，改为True
    
    lastRow = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    ' 逆序循环删除，避免行号混乱
    For lastRow = lastRow To 2 Step -1
        If regex.Test(ws.Cells(lastRow, 8).Value) Then
            ws.Rows(lastRow).Delete
        End If
    Next lastRow
    
    Application.ScreenUpdating = True
    MsgBox "报表清理完成！", vbInformation
End Sub

代码核心优化点 #

• 正则精确匹配：用正则表达式精准识别需要删除的前缀，避免误删RTest这类合法条目
• 边界情况处理：增加行数量判断、空筛选结果判断，避免运行报错
• 动态行号更新：每次删除/去重后重新获取最后一行，保证索引准确性
• 逆序删除逻辑：从底部往上循环删除，避免因行号变动导致的遗漏

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