求助：编写Excel宏按A列文本是否加粗自动分组折叠行

以下是实现需求的VBA代码，直接复制到Excel的VBA编辑器中即可使用：

Sub GroupAndCollapseUnboldRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim startRow As Long
    Dim isUnbold As Boolean
    
    ' 设置要操作的工作表，这里用当前激活的工作表，可改为指定工作表名如Sheets("Sheet1")
    Set ws = ActiveSheet
    
    ' 先取消所有现有分组，避免重复分组导致混乱
    ws.Cells.ClearOutline
    
    ' 获取A列最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    startRow = 0 ' 初始化分组起始行
    
    ' 从第2行开始遍历（假设第1行是表头，不需要分组），如果表头在其他行可修改起始值
    For i = 2 To lastRow
        ' 检查当前行A列单元格字体是否未加粗
        isUnbold = Not ws.Cells(i, "A").Font.Bold
        
        If isUnbold Then
            If startRow = 0 Then
                startRow = i ' 记录分组的起始行
            End If
        Else
            ' 当前行是加粗行，且之前有未加粗行的分组
            If startRow > 0 Then
                ' 对起始行到当前行的上一行进行分组
                ws.Rows(startRow & ":" & i - 1).Group
                startRow = 0 ' 重置起始行
            End If
        End If
    Next i
    
    ' 处理最后一段未加粗的行（如果表格末尾是未加粗行）
    If startRow > 0 Then
        ws.Rows(startRow & ":" & lastRow).Group
    End If
    
    ' 折叠所有分组
    ws.Outline.ShowLevels RowLevels:=1
End Sub

使用说明： #

• 打开Excel，按Alt + F11打开VBA编辑器；
• 在左侧工程窗口中右键点击目标工作表，选择「插入」→「模块」；
• 将上述代码粘贴到模块窗口中；
• 按F5运行宏，或回到Excel界面通过「开发工具」→「宏」选择运行。

注意事项： #

1. 如果你的表头不在第1行，记得修改代码中For i = 2 To lastRow的起始数字；
2. 若A列存在合并单元格，需要先调整代码逻辑（合并单元格的Font.Bold属性以左上角单元格为准）；
3. 你之前用颜色分组的代码失效，大概率是因为颜色判断的方式不对（比如用了单元格填充色的索引而非RGB值，或者遍历范围错误），这个宏直接针对字体加粗属性判断，逻辑更直接。

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