Herhalende waarden in regels verwijderen

[alphamax]

@cow18
Ik zie nu pas dat je het voorbeeldje in bericht#1 van rechts naar links moet lezen.
En niet van links naar rechts (pijltjes erbij zou makkelijker zijn geweest)

@allen
Volgens mij geeft geen van jullie codes het gewenste resultaat

Public Sub LegeCellen()
    ar = Cells(1).CurrentRegion
    For j = UBound(ar, 2) To 1 Step -1
        For i = UBound(ar, 1) To 2 Step -1
            If ar(i, j) = ar(i - 1, j) And ar(i, j + (j <> 1)) = ar(i - 1, j + (j <> 1)) Then
                ar(i, j) = ""
            End If
        Next
    Next
    Cells(1).CurrentRegion = ar
End Sub

 

[snb]

@Alpha

Ik moet je corrigeren: mijn draaitabelsuggestie doet precies dat.

In jouw bestand:

Sub M_snb()
  sn = Array(False, False, False, False, False, False, False, False, False, False, False, False)
    
  With ThisWorkbook.PivotCaches.Create(1, "Tabel").CreatePivotTable(Cells(30, 1), "PT_snb")
    .PivotFields("Groep").Orientation = 1
    .PivotFields("Ding").Orientation = 1
    .PivotFields("Aantal").Orientation = 1
    .RowAxisLayout xlTabularRow
    .ColumnGrand = False
    .RowGrand = False
    For j = 1 To 3
      .PivotFields(j).Subtotals = sn
    Next
  End With
End Sub

 

[alphamax]

@snb
Die correctie aanvaard ik niet.
In bericht#12 en bericht#16 heb je geen code laten zien die lijkt op de code uit bericht#22.

Van achteren kijk je een koe in de ****.

 

[snb]

Ik heb het in #16 over een draaitabelsuggestie, niet over een code.
Om een draaitabel te maken heb je geen code nodig.

 

[Ruudh59]

Allen,

#19 gaf het beste resultaat tot dan toe; juiste inhoud van cellen zonder fouten als #waarde!.
De tabelstructuur was daarna wel verdwenen, maar eenvoudig weer terug te zetten.
#21 lijkt me een soortgelijke oplossing.
Daarna ben ik gestopt met oplossingen proberen.
Heeft #22 iets met powerpivot te maken? Die heb ik nog niet in gebruik genomen. Komt wel een keer.
Ik ben geholpen. Nogmaals bedankt voor alle input.

 

[JEC.]

Toch juist begrepen dus graag gedaan