Fordel indhold i én celle til flere celler - Er det muligt?

Marker kolonnen med data
Vælg rediger erstat
I søg efter trykker du 2 gange på mellemrums tasten
I erstat skriv ;

vælg erstat alle

nu erstattes de 2 mellemrum med et ;

kolonnen holdes makeret,
vælg Data > Tekst til Kolonner
Vælg afgrænset, sæt flueben i simikolon

tryk Udfør

Jeg har prøvet din fremgangsmåde kabbak, og som udgangspunt er det forklaring på mit spørgsmål. Men desværre var det ikke, som jeg troede, to mellemrum der var i min data. Det er derimod linieskift, som jeg kan se er markeret med to små firkanter, hvis jeg bruger den rigtige cellefomatering. Jeg har forsøgt at kopiere disse to firkanter ind i søg, men det kan ikke lade sig gøre. Jeg har også forsøgt at lave linieskift (ALT+ENTER) i søg, men det virker heller ikke. Har du en god ide???

Sæt denne kode ind i et modul, maker dine celler med addresser og kør koden

Public Sub SplitAddresser()
For Each c In Selection
AD = c.Address
A = Split(c.Value, vbLf)
c.Value = A(0)
For i = 1 To UBound(A)
Range(AD).Offset(0, i) = A(i)
Next
Next
End Sub

NB, lav lige en test først, makroer kan ikke fortrydes.

hvordan går det

marker mit navn og tryk accepter, hvis det virkede