Блог

Я сгруппировал свои строки в соответствии с индексом, используя эту процедуру, которую я нашел на этом форуме:

 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
 

Теперь я хотел бы выбрать все строки, принадлежащие к одной группе, чтобы удалить их.

В моем случае строки 2 и 3, значения которых равны 1.1 и 1.2 в столбце «А», сгруппированы внутри строки 1.

Так:

1 — Я хотел бы выбрать строку 1 на основе критерия (например, выберите ее, потому что ее значение в столбце «B» — «фрукты»)

2-Выберите все строки внутри этой группы (в данном случае строки 2 и 3)

3-Удалите их

Есть какие-нибудь предложения, как я могу с этим справиться?

    1      fruit
     1.1    orange
     1.2    apple
   2      vegetable
     2.1    rhubarb