Dante Amor respondió:
Ejecuta la siguiente macro: Sub CopiarConSalto() 'Por.Dante Amor j = 1 For i = 1 To Range("A" & Rows.Count).End(xlUp).Row Step 2 Cells(i, "A").Copy Cells(j, "B") j = j + 1 Next End Sub Sigue las Instrucciones para ejecutar la macro Abre tu archivo de...