moeder-dochter rij in excel

[snb]

Een dynamische tabel met lege 'moeders' is vloeken in de kerk.
Heeft MS een slim hulpmiddel gemaakt voor een database, help je het daarmee 100% om zeep.
Het valt me tegen dat je hiervoor een macro hebt gekregen.

 

[AlexCEL]

Hier nog een formule voor Excel 365 (voor het eerste voorbeeld):

=LET(x;G2:G15;y;G2:H15;SORTEREN(ALS.FOUT(VERT.STAPELEN(UNIEK(FILTER(x;AANTAL.ALS(x;x)>1;""));y&"");"")))

 

[HSV]

Ook maar een duit.

Sub moeders()
Dim i As Long, w As Range, w1 As Range
Application.ScreenUpdating = false
With Sheet1.ListObjects(1)
   For i = .ListRows.Count To 1 Step -1
     Set w = .DataBodyRange(i, 7)
     Set w1 = .DataBodyRange(i - 1, 7)
      If Split(w, "-")(LBound(Split(w, "-"))) <> Split(w1, "-")(LBound(Split(w1, "-"))) And Application.CountIf(w1.Resize(3), Split(w, "-")(LBound(Split(w, "-"))) & "*") > 1 Then
        .ListRows(i).Range.Insert
        w.Offset(-1) = Split(w, "-")(LBound(Split(w, "-")))
        w.Offset(-1).Font.Bold = True
      End If
 Next i
End With
End Sub