gruppering/formatering af rækker

Er "kolonne 3" det maksimale?

Der kommer flere kolonner, men i mit eksempel er der kun 3, men de ekstra kolonner der kommer vil altid være med det samme indhold.

Jeg skal bagefter gemme som CVS fil og kolonne 3 skal derfor gemmes som "dette er linie 1(her skal så være Char(10)dette er linie 2)

Jeg kan lade kolonne 3 til altid at være sidste kolonne, så teksten altid bliver sidste kolonne i arket, altså kolonne 7 eller...

Hej Martin,

Jeg er ikke super stærk til programmering, men du kan evt. prøve nedenstående. Vær opmærksom på at hvis tre eller flere rækker er ens i første og anden kolonne vil den lægge dem alle samme på én linje, f.eks.:

A;Txt1;dette er linie 1
A;Txt1;dette er linie 2
A;Txt1;dette er linie 3
A;Txt2;dette er linie 1
B;Txt1;dette er linie 1
B;Txt1;dette er linie 2

vil komme til at se således ud:

A;Txt1;dette er linie 1dette er linie 2dette er linje3
A;Txt2;dette er linie 1
B;Txt1;dette er linie 1dette er linie 2

Her er funktionen:

Sub Test()

Application.ScreenUpdating = False

Dim c As Range

    Range("området i første kolonne").Select
    For Each c In Selection
    If c.Value = c.Offset(1, 0).Value And c.Offset(0, 1).Value = c.Offset(1, 1).Value Then
        c.Offset(1, 2).Value = c.Offset(0, 2).Value & Chr(10) & c.Offset(1, 2).Value
        c.EntireRow.Delete
    End If
    Next

Application.ScreenUpdating = True

End Sub

Hej C_Thyge

Jeg kan ikke helt få din kode til at virke, den ligger ikke koden sammen, men tager bare den sidste tekst.
Kan jeg sende et eksempel til dig?

msj@missionpharma.com

Mvh. Martin

Tak for indsatsen det virker nu som det skal
Se kode her:

Send svar så får du point!

Sub Test_Makro()

Application.ScreenUpdating = False

Dim c As Range

    Range("D2:D100").Select
    For Each c In Selection
    If c.Value = "" Then
        c.ClearContents
    ElseIf c.Offset(0, 3).Value = c.Offset(1, 3).Value Then
        c.Value = c.Value & Chr(10) & c.Offset(1, 0).Value
        c.Offset(1, 0).EntireRow.Delete
    End If
    Next

Application.ScreenUpdating = True

End Sub

Svar :)