请求协助：删除满足多列条件且K列金额抵消的行

方法1：Power Query可视化操作（无需编程） #

• 选中数据区域，点击「数据」选项卡 → 「从表格/区域」，将数据导入Power Query编辑器
• 点击「转换」→ 「分组依据」，按住Ctrl选中E、G、H、M、N列作为分组依据，新增列名设为「金额总和」，操作选「求和」，关联列选K列
• 点击「金额总和」列的筛选箭头，仅勾选「0」，筛选出需要处理的分组
• 点击「主页」→ 「合并查询」→ 「合并查询作为新查询」，左表选原数据，右表选筛选后的分组表，匹配列选E、G、H、M、N列，连接类型选「内部」
• 删除多余的「金额总和」列，点击「主页」→ 「关闭并上载」，得到待删除的行集合，回到原表删除对应行即可

方法2：VBA代码自动批量删除 #

按Alt+F11打开VBA编辑器，插入模块后粘贴以下代码：

Sub DeleteOffsetRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long, j As Long
    Dim matchFound As Boolean
    
    Set ws = ActiveSheet '可修改为指定工作表，比如Set ws = ThisWorkbook.Sheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
    
    '先按E/G/H/M/N列排序，提升匹配效率
    ws.Range("A1:" & ws.Cells(lastRow, ws.Columns.Count).Address).Sort _
        Key1:=ws.Range("E1"), Order1:=xlAscending, _
        Key2:=ws.Range("G1"), Order2:=xlAscending, _
        Key3:=ws.Range("H1"), Order3:=xlAscending, _
        Key4:=ws.Range("M1"), Order4:=xlAscending, _
        Key5:=ws.Range("N1"), Order5:=xlAscending, _
        Header:=xlYes
    
    i = 2 '假设第一行是表头
    Do While i <= lastRow
        matchFound = False
        For j = i + 1 To lastRow
            '校验列匹配与金额抵消条件
            If ws.Cells(i, "E") = ws.Cells(j, "E") And _
               ws.Cells(i, "G") = ws.Cells(j, "G") And _
               ws.Cells(i, "H") = ws.Cells(j, "H") And _
               ws.Cells(i, "M") = ws.Cells(j, "M") And _
               ws.Cells(i, "N") = ws.Cells(j, "N") And _
               ws.Cells(i, "K") + ws.Cells(j, "K") = 0 Then
                
                ws.Rows(j).Delete
                ws.Rows(i).Delete
                lastRow = lastRow - 2
                matchFound = True
                Exit For
            End If
        Next j
        If Not matchFound Then i = i + 1
    Loop
End Sub

注意：运行前必须备份数据，避免不可逆的误操作。如果存在同一分组下多行金额总和为0的情况，可调整代码逻辑适配批量场景。

方法3：手动辅助筛选（适合小数据量） #

• 新增辅助列O，输入公式=E2&G2&H2&M2&N2并下拉，将目标列合并为唯一标识
• 新增辅助列P，输入公式=SUMIF(O:O,O2,K:K)并下拉，计算每个分组的总金额
• 筛选P列为0的行，选中后直接删除即可

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