Lave flettefil ud fra excel fil

Det var da ikke det bedste format i verden og gør det svært at sortere.
Hvis du skal flette skal det være 1 kolone med hver
Navn, Adresse, Post By og Kontaktperson.
Hvis du gemmer dit nuværende ark som en csv fil kan du formentlig rede den med en søg og erstat.
Lav linie øverst som hedder Navn; Adresse; Post By; Kontaktperson
Erstat Navn med ;
Erstat Adresse med ;
Erstat Post By med ;
Erstat Kontaktperson med ;
Dermed er flette felterne korrekte.
Nu skal du have hver person samlet på en linie.
Dette er du formentlig nød til at gøre manuelt.
Gem filen og importer i Excel.

Uha da da.
Filen er i excel nu. jeg kan godt få den til at lave en kollonne hvor det hele står i.

Hvad mener du med at erstatte noget med ; ?
I hvilke felter skal de erstattes?

For at få den i kolonne i stedet.
Derefter kan du flette med andre office programmer.
Hvis du har en hurtigere vej til dette så gør det.

Denne kode kopierer dine data til Ark2 fra Ark1 ret evt arknavne i koden

Sub test()
Set sh1 = Sheets("Ark1") ' ret evt. Arknavn "Ark1" til aktuel
Set sh2 = Sheets("Ark2") ' ret evt. Arknavn "Ark1" til aktuel

slut = sh1.Cells(2000, 1).End(xlUp).Row
For t = 2 To slut Step 5
nyrk = sh2.Cells(2000, 1).End(xlUp).Row + 1
sh2.Cells(nyrk, 1) = sh1.Cells(t, 1)
sh2.Cells(nyrk, 2) = sh1.Cells(t + 1, 1)
sh2.Cells(nyrk, 3) = sh1.Cells(t + 2, 1)
sh2.Cells(nyrk, 4) = sh1.Cells(t + 3, 1)
Next

slut = sh1.Cells(2000, 2).End(xlUp).Row

For t = 2 To slut Step 5
nyrk = sh2.Cells(2000, 1).End(xlUp).Row + 1
sh2.Cells(nyrk, 1) = sh1.Cells(t, 2)
sh2.Cells(nyrk, 2) = sh1.Cells(t + 1, 2)
sh2.Cells(nyrk, 3) = sh1.Cells(t + 2, 2)
sh2.Cells(nyrk, 4) = sh1.Cells(t + 3, 2)
Next

End Sub

OK Ecelent,
hvordan bruger jeg koden og hvor sætter jeg den ind henne?
musmus

tast ALT+F11
Vælg Module i Insert menuen
indsæt kode der

i arket taster du ALT+F8
marker makro "test" og klik Afspil

går ud fra dine data starter i række 2, ellers
ret  2 til aktuel række i linie 5 og 13

Hejsa,
det ser rigtigt ud....men jeg har nogle steder, er der 5 liniers adresser.
Kan vi udvide kommandoen så den tager disse med også. ja, nogle steder er 6 linier?
Håber det kan gøres?

ser på det ved lejlighed

Hej excelent, smid et svar og du får point. takker.