Dante Amor respondió:
H o l a: Utiliza la siguiente macro, los resultados te los va a poner en la columna "D" Sub CopiaEnUnaColumna() 'Por.Dante Amor j = 1 Columns("D").ClearContents For i = 1 To Range("A" & Rows.Count).End(xlUp).Row Cells(j, "D") = Cells(i, "A") Cells(j...