Transponer kolonne til rækker

Du er velkommen til at sende filen eller en model. @-adresse under min profil.

Det ser ikke ud til at der er tale om en egentlig transponering - men nærmere en samling af ordre til den pågældende kunde.

Det skulle VBA nok kunne klare..

Rem VBA-kode anbringes under det aktuelle ark (Højreklik på ark / Vis programkode / Indsæt VBAKode her
Rem Koden kan eksekveres med Alt+F8 / Marker samlingAfOrdre / Afspil
Rem ================================================================

Dim sidsteRække As Long, ræk As Long
Dim kundeId As Variant, kundeRække As Long
Dim ræk2 As Long
Public Sub samlingAfOrdre()
Rem Beregn sidste række
    sidsteRække = ActiveCell.SpecialCells(xlLastCell).Row
    ræk2 = 2
       
Rem Traverser rækkerne
    For ræk = 2 To sidsteRække
        kundeId = Range("A" & ræk)
        ordre = Range("C" & ræk)
   
Rem findes kundeid i ny tabel
        kundeRække = findesKunde(kundeId)
        If kundeRække = 0 Then
Rem Opret kundedata
            opretKundeData
        Else
            indsætNyOrdre kundeRække, ordre
        End If
       
    Next ræk

Rem tilpas kolonnebredde
    Columns.AutoFit
End Sub
Private Function findesKunde(kundeId)
Dim r As Long
    For r = 2 To sidsteRække
        If Range("E" & r) = kundeId Then
            findesKunde = r
            Exit Function
        End If
    Next r
   
    findesKunde = 0
End Function
Private Sub opretKundeData()
    Range("E" & ræk2) = Range("A" & ræk)
    Range("F" & ræk2) = Range("B" & ræk)
    Range("G" & ræk2) = Range("C" & ræk)
    ræk2 = ræk2 + 1
End Sub
Private Sub indsætNyOrdre(række, ordre)
Dim kolonne As Integer
Rem find celle til ny ordre på eksisterendekundedata
    For kolonne = 8 To 16384
        If Cells(række, kolonne) = "" Then
            Cells(række, kolonne) = ordre
            Exit Sub
        End If
    Next kolonne
End Sub

Tak for hjælpen

Selv tak..