Ciao a tutti.
@Fenice76: prova a zippare il file prima di caricarlo.
Comunque, se ho interpretato bene il quesito, ti servirebbe una macro simile a
Sub TabellaElenco()
Dim clCod As New Collection
Dim rnTab As Range, cella As Range
Dim R As Long, I As Long, J As Long, C As Long
R = Range("A" & Rows.Count).End(xlUp).Row
Set rnTab = Range("A1:A" & R)
For I = 1 To R
On Error Resume Next
clCod.Add Range("A" & I).Value, CStr(Range("A" & I).Value) 'crea un elenco univoco dei codici
On Error GoTo 0
Next I
For I = 1 To clCod.Count
Cells(I, "F") = clCod(I)
C = 7 'parte da col. G
For J = 1 To R
If Cells(J, 1) = clCod(I) Then
Cells(I, C) = Cells(J, 2)
C = C + 1
End If
Next J
Next I
End Sub
In questa macro, viene prima creato (per mezzo di una collection) un elenco univoco che verrà riportato nella tabella risultante.
Dopo, viene scorsa la collection e, per ogni elemento, si scorre la tabella d'origine e i corrispondenti valori vengono scritti nelle celle a destra.
La macro lavora su una tabella nelle colonne A (codici) e B (clienti); i risultati vengono scritti a partire da col. F.