Excel 使用颜色自动创建组

参考：-

我有一个类似的问题——我正在将juniper代码导入excel并希望将其分组——请参见屏幕截图

问题是，在原始问题中，

标识符

是一个

，在这种情况下，

标识符

将是任何不以空格开头的行，分组将是所有行，直到下一行开始时没有空格。 然后是额外的“喜欢”的颜色线，以便该组很容易看到

此外，我认为这是最初的问题——团队需要向下扩展，而不是向上扩展

希望这是有意义的

试试这个

    Sub sda()
    lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Set Rng = Range("A1:A" & lLastRow)
    For Each cell In Rng
    LResult = Left(cell.Value, 1)
    If LResult = " " Or IsEmpty(cell.Value) Then GoTo nxtCl:
    startRownum = cell.Row
    Set rng2 = Range("A" & startRownum + 1 & ":A" & lLastRow)
    For Each cll In rng2
    LResult = Left(cll.Value, 1)
    If LResult = " " Or IsEmpty(cell.Value) Then GoTo nxtCl2:
    endRownum = cll.Row
    Rows(startRownum + 1 & ":" & endRownum - 1).Group
    Exit For
    nxtCl2:
    Next
    nxtCl:
    Next
    End Sub

---

虽然反应迅速，在某种程度上起作用，但存在一个问题。运行时，脚本只执行第一部分，并将组减号置于单词上方。我试图在问题中添加一个截图，但发现很难。编辑您的问题，然后按

CTRL+G

上传图像…参考很棒-效果很好-我的文件因某种原因停止时出现问题，但这是我的问题。此外，分组的方式也需要相反。如果您执行数据>展开大纲部分-在设置中，则顶部选项是汇总下面的选项-禁用该选项。