如何用VBA删除选中的Excel汇总行及其下方隐藏的关联分组行

解决方案 #

实现逻辑 #

因为你代码中设置了Outline.SummaryRow = xlSummaryAbove，即汇总行固定在对应分组的上方，因此只要从选中的汇总行向下遍历，找到所有连续的、行大纲级别高于汇总行级别的行，就是该汇总行对应的分组行。遍历直到碰到和汇总行同级/更高级别的行时停止，即可锁定要删除的完整范围。

完整VBA代码 #

Sub 删除汇总行及对应分组()
    Dim selectedRow As Long
    Dim currentLevel As Integer
    Dim endRow As Long
    Dim i As Long
    
    ' 校验当前工作表分级配置是否匹配预设规则
    If ActiveSheet.Outline.SummaryRow <> xlSummaryAbove Then
        MsgBox "当前工作表未设置为汇总行在分组上方，无法执行操作", vbExclamation
        Exit Sub
    End If
    
    ' 获取选中行的行号与大纲级别
    selectedRow = Selection.Row
    currentLevel = Rows(selectedRow).OutlineLevel
    
    ' 向下查找分组结束行
    endRow = selectedRow
    For i = selectedRow + 1 To ActiveSheet.UsedRange.Rows.Count + 1
        ' 碰到级别小于等于当前汇总行级别的行时停止
        If Rows(i).OutlineLevel <= currentLevel Then
            endRow = i - 1
            Exit For
        End If
    Next i
    
    ' 批量删除汇总行+对应所有分组行
    Rows(selectedRow & ":" & endRow).Delete
End Sub

使用方法 #

• 按Alt+F11打开VBA编辑器，右键当前工作簿选择「插入-模块」，将上述代码粘贴到模块中
• 可以给宏自定义快捷键，或者添加到快速访问工具栏，提升操作效率
• 需要删除某个汇总行时，只需选中该汇总行的任意单元格，运行该宏即可同步删除汇总行及其下方所有折叠的分组行

注意事项 #

• 代码仅适配你当前使用的「汇总行在分组上方」的分级规则，如果后续调整了分级汇总位置，需要对应修改遍历逻辑
• 支持多层级分级场景，选中对应层级的汇总行，会自动删除其管辖的所有子层级分组行

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