Samenvoeging opheffen - hoe krijg ik tekst in ALLE cellen?

[LHO]

Beste mensen,

Ik ben al even aan het speuren op internet, maar kom er niet uit..

Bijgevoegd zie je een Excel bestand (fictief klein voorbeeld). Daarin wil ik de 'samengevoegde cellen' opheffen zodat ik er een draaitabel van kan maken. Maar voor die draaitabel moeten álle cellen in Kolom A gevuld zijn, dat is na het 'opheffen samenvoegen' niet het geval.

Wie kan me helpen zodat ik heel makkelijk in een mega Excel bestand de lege cellen kan vullen? (Dus graag niet met 'doortrekken', want dan ben ik nog handmatig bezig)

Thanks!!!

 

[Gijsbert1]

Hier wat leesvoer:
https://www.extendoffice.com/documents/excel/1139-excel-unmerge-cells-and-fill.html#a1

Met name dit stuk:

Unmerge Cells And Fill With Duplicate Data With Go To Special Command

Heb het zojuist getest en werkt gewoon perfect

 

[LHO]

Super super!! You make my day Dit zocht ik!

 

[snb]

in VBA:

Sub M_snb()
   Sheet1.Cells.UnMerge
   
   For Each ar In Cells(1).CurrentRegion.Columns(1).SpecialCells(4).Areas
       ar.Value = ar.Cells(1).Offset(-1)
   Next
End Sub

 

[Gijsbert1]

Super snb :thumb:
Ik had de vba code op genoemde website ook geprobeerd en die bestaat uit 19 regels en duurde 15 seconden.
Jou code; 6 regels en sneller als 1 seconde.