questa macro traspone la tabella nel foglio2 (aggiungilo tu), prima assicurati che le celle vuote siano veramente vuote, alcune contengono uno spazio
Sub a()
r = 4
DR = 1
With Sheets(1)
Do While .Cells(r, "A") <> ""
For c = 4 To 20
If .Cells(r, c) <> "" Then
.Range("A" & r & ":C" & r).Copy Sheets(2).Cells(DR, 1)
Sheets(2).Cells(DR, 4) = .Cells(r, c)
DR = DR + 1
End If
Next
r = r + 1
Loop
End With
End Sub
per la prossima volta leggi il regolamento
* 2.8 E' bene porre grande attenzione nella scelta del titolo della discussione (topic), che dev'essere adeguato ed il più possibile preciso e dettagliato, evitando assolutamente parole come "AIUTO!!", "URGENTE", "PROBLEMA" e simili richieste generiche oppure messaggi indirizzati ad un preciso utente ("X Tizio", "X Caio" etc.). Il titolo della discussione è importantissimo, in quanto il motore di ricerca del forum cerca solo nei titoli e non all'interno delle discussioni; inoltre, un buon titolo che individui subito il prolema preciso ha molte più possibilità di essere notato da chi si intende di quel problema.
[Modificato da patel45 02/02/2017 11:52]
----------
Win 10 - Excel 2010
allega un file di esempio, guadagnerai tempo tu e lo farai risparmiare a chi ti aiuta