vba - Excel VBA宏根据条件对行进行分组

Question

我正在尝试创建一个宏，该宏根据 A 列中是否有值对行进行分组。一些没有值的单元格可能仍然有一个空文本字符串，因此最好使用长度大于2 作为分组的条件，而不仅仅是空白。应用宏的范围是第 3 行到数据集的最后一行(或者如果需要定义范围，到第 3000 行就足够了)。例如，如果 A4 有一个值，A10 有一个值，那么第 5 行到第 9 行应该成为一个组。我发现一些代码只是谷歌搜索，但我无法正确应用它，所以我宁愿从头开始。提前致谢!

Answer 1

试试这个
如果空单元格为空白，对我有用

sub ashGrp()

Dim rng As Range
Dim blankRange As Range
Dim grp As Range
Set rng = Range("a3", Cells(Rows.Count, 1).End(xlUp))
Set blankRange = rng.SpecialCells(xlCellTypeBlanks)

For Each grp In blankRange
    grp.Rows.Group
Next

end sub

如果您需要对文本或空白进行分组，那么这个联合代码就可以了

Sub ashGrp()

    Dim rng As Range
    Dim blankRange As Range
    Dim grp As Range
    Dim txtRange As Range
    Dim unionRange As Range

    Set rng = Range("a3", Cells(Rows.Count, 1).End(xlUp))
    Set blankRange = rng.SpecialCells(xlCellTypeBlanks)
    Set txtRange = rng.SpecialCells(xlCellTypeConstants, xlTextValues)
    Set unionRange = Union(blankRange, txtRange)

    For Each grp In unionRange
    grp.Rows.Group
    Next


End Sub