James Bond respondió:
Usa esta macro Sub intercalar() Set datos = Range("a1").CurrentRegion With datos r = .Rows.Count: c = .Columns.Count Set tabla = .Columns(c + 1).Resize(r * 2, 1) For i = 1 To r * 2 With tabla .Cells(2 * i - 1, 1) = datos.Cells(i, 1) .Cells(2 * i, 1)...