Sammenlægning af poster

Jeg mente nu at de skulle splittes op i kolonner sorry :P

Hvis du har tomme linier eller et bestemt tegn, imellem de forskellige firmaer, kan en makro i excel, gøre det.

Ja der er en eller 2 tomme linier som seperer de forskelige adresser.

Hvis du har data i kolonne A, så indsæt en tom celle i A1.
Kør så makroen og dene data vil ligge i C kolonnen og udad, næste firma kommer i næste række.

Public Sub FlytAdresser()
    Dim Col As Long, RW As Long, Drow As Long, C As Range
    Drow = Range("A65536").End(xlUp).Row
    For Each C In Range("A1:A" & Drow)
        If C = "" Then
            Col = 3
            RW = Range("C65536").End(xlUp).Row + 1
        Else
            Cells(RW, Col) = C
            Col = Col + 1
        End If
    Next
End Sub

Perfekt :-P
Var Præcist det jeg gik efter.
Viste at der var en lettere måde, en at man skulle til at splitte dem op i hånden.
Kan du ikke lægge et svar så du kan få dine poing..

Et svar ;-))