创建组时,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
联系客服