多Excel工作表按值分组行：跨列适配与批量处理报错问题

你遇到的范围错误，本质是批量选中多个工作表后，无法统一操作跨工作表的Range对象。Worksheets(Array(...)).Select会让多个工作表处于选中状态，后续的ActiveSheet或Range引用会因为多工作表上下文冲突而抛出错误，正确的做法是逐个遍历目标工作表，单独处理每个表的分组逻辑。

改造后的批量分组代码 #

将分组逻辑封装为通用子过程，分别处理按B列和G列分组的工作表：

' 通用分组子过程：按指定列对单个工作表进行行分组
Sub GroupRowsByColumn(ByVal ws As Worksheet, ByVal groupCol As String)
    Dim r As Range
    Dim v As Variant
    Dim i As Long, j As Long
    
    With ws
        On Error Resume Next
        ' 展开所有现有分组并取消分组
        .Outline.ShowLevels RowLevels:=8
        .Rows.Ungroup
        On Error GoTo 0
        
        ' 获取指定列的有效数据范围（从第一行到最后非空行）
        Set r = .Range(groupCol & "1", .Cells(.Rows.Count, groupCol).End(xlUp))
    End With
    
    With r
        j = 1
        v = .Cells(j, 1).Value
        ' 遍历行识别相同值的分组
        For i = 2 To .Rows.Count
            If v <> .Cells(i, 1).Value Then
                v = .Cells(i, 1).Value
                ' 仅当分组内有可折叠行时创建分组
                If i > j + 1 Then
                    .Cells(j + 1, 1).Resize(i - j - 1, 1).Rows.Group
                End If
                j = i
                v = .Cells(j, 1).Value
            End If
        Next
        ' 处理最后一组数据
        If i > j + 1 Then
            .Cells(j + 1, 1).Resize(i - j - 1, 1).Rows.Group
        End If
        ' 折叠所有分组
        .Parent.Outline.ShowLevels RowLevels:=1
    End With
End Sub

' 主过程：批量处理7个目标工作表
Sub BatchGroupSheets()
    Dim ws As Worksheet
    
    ' 处理5个按B列分组的工作表
    For Each ws In Worksheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5"))
        GroupRowsByColumn ws, "B"
    Next ws
    
    ' 处理2个按G列分组的工作表（替换为你的实际表名）
    For Each ws In Worksheets(Array("Sheet6", "Sheet7"))
        GroupRowsByColumn ws, "G"
    Next ws
End Sub

关键说明 #

1. 避免多工作表选中：用For Each...Next逐个遍历目标工作表，所有操作都针对单个工作表，彻底解决范围引用冲突问题。
2. 通用逻辑复用：将分组逻辑封装为独立子过程，通过传入工作表对象和分组列参数，统一处理不同列的分组需求，减少重复代码。
3. 适配实际表名：将代码中的Sheet6、Sheet7替换为你实际需要按G列分组的工作表名称，确保名称准确（含特殊字符或空格的表名需完全匹配）。

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