excel - 如何根据单元格值对行进行分组 - Excel VBA

Question

我有一个组织的项目列表：

（“A”栏）

• 项目
  
• 活动
  
• 子活动
  
  

他们有一个特定的索引（在“B”列中）

• 项目索引 = 0
  
• 活动指数= 1
  
• 子活动指数 = 2
  
  

示例数据如下所示：

“A”栏

• 项目名称
  
• 活动一
  
• 子活动1
  
• 子活动2
  
• 活动二
  
• 活动 3
  
• 子活动1
  
  

“B”栏

• 0
  
• 1
  
• 2
  
• 2
  
• 1
  
• 1
  
• 2
  

我试过这个：

Public Sub RaggruppaProgetto()

  Dim lvlData, rCel As Range

  Set lvlData = Range("B" & TrovaInizioProgetti(activeCell), Range("B" & Rows.Count).End(xlUp))

  With lvlData
    On Error Resume Next
    .Rows.Ungroup
    .Rows.EntireRow.Hidden = False
    On Error GoTo 0
  End With

  For Each rCel In lvlData

    If rCel = "2" Then
      Rows(rCel.Row).Group
      rCel.EntireRow.Hidden = True
    End If

  Next

End Sub

我期望的是，当宏运行时，所有级别 2 都应该在级别 1 下分组，所有级别 1（与级别 2 分组）应该在级别 0 下分组。

标签： excelvba