excel - 选择和删除组内的行

Question

我使用此过程根据索引对行进行分组，我在此论坛中找到了该过程：

Sub subGroup()

    Dim cRng As Range
    Set cRng = Range("A2")
    Do While cRng.value <> ""
        cRng.EntireRow.OutlineLevel = UBound(Split(cRng.value, ".")) + 1
        Set cRng = cRng.Offset(1)
    Loop
    
End Sub

现在，我想选择属于同一组的所有行以删除它们。

就我而言，“A”列中值为 1.1 和 1.2 的第 2 行和第 3 行被分组在第 1 行内。

所以：

1-我想根据标准选择第 1 行（例如，选择它是因为它在“B”列中的值为“水果”）

2-选择该组内的所有行（在本例中为第 2 行和第 3 行）

3-删除它们

有什么建议我该如何管理它？

   1      fruit
     1.1    orange
     1.2    apple
   2      vegetable
     2.1    rhubarb

标签： excelvbarange