VBA创建组合-显示层级结构

创建组时，Excel/WPS会将选定的单元格组合在一起，以便更好地管理和分析数据。主要是可以生成树状层级结构。

它可以将一列或一行中的多个单元格组合在一起，以便在需要时展开或折叠它们。这对于大型数据集非常有用，因为它可以使您更轻松地查看和分析数据。

1.操作视频

2.代码示例


Sub 创建层级() Call showLevel(Sheet1, 'A', 2)End Sub

'分级创建组展示1 1.2 1.2.3 1.2.3.4'输入参数:工作表、层级数据所在的列、数据起始行Sub showLevel(ws As Worksheet, result_col, dataBeginRow) Dim rng As Range ws.UsedRange.ClearOutline '清除分级显示 '取得最后一行 lastRow = ws.Cells.Find('*', , , , xlByRows, xlPrevious).Row '所有的区域 作为一个组' ws.Rows(dataBeginRow & ':' & lastRow).Group 'all
'循环创建组 展示出层级 For lev = 0 To 3 '从层级1到层级4 '(lev+1)级标题及以上 作为一个组 四个级别1 1.2 1.2.3 1.2.3.4 For i = dataBeginRow + 1 To lastRow arr = Split(ws.Cells(i, result_col), '.') '判断当前是属于什么层级 If UBound(arr) >= lev Then 'rng初始化 记录这个组的起始点 If rng Is Nothing Then Set rng = ws.Cells(i, result_col) beginR = i Else '符合条件的区域都并起来 Set rng = Union(rng, ws.Cells(i, result_col)) End If Else '对rng创建组，并且还原rng为初始状态 If Not rng Is Nothing Then ws.Rows(beginR & ':' & i - 1).Group Set rng = Nothing End If End If Next Next lev End Sub