excel - 使用颜色自动创建组

Question

参考：- 自动创建组

我有一个类似的问题 - 我将瞻博网络代码导入 excel 并想对其进行分组 - 请参阅屏幕截图。

问题是在原始问题中identifier是 a .，在这种情况下，identifier它将是任何不以空格开头的行，并且分组将是所有行，直到下一行开始时没有空格。然后是对线条进行着色的额外“喜欢”，以便易于看到该组。

另外，我认为这是在最初的问题中-然后该小组需要向下扩展-而不是向上扩展。

希望这是有道理的。

脚本运行时的屏幕截图 - 注意 - 第二部分未分组并且组的开头在上方 - 希望它位于同一行。

Answer 1

尝试这个

    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