Intercalar datos de columnas diferentes
Tengo una urgencia, espero me puedan ayudar, debo intercalar la información de dos columnas diferentes ejemplo:
A B C
1 20 LUNES
2 21 MARTES
3 23 MIERCOLES
4 24 JUEVES
Lo que quiero es intercalar y que quede como sigue:
A B C
1 20
2 LUNES
3 21
4 MARTES
Espero me puedan ayudar, soy nueva en el foro y en el tema de las macros
Saludos! :-D
1 respuesta
Respuesta de James Bond
3
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) = datos.Cells(i, 2)
End With
Next i
.ClearContents
End With
Set datos = Nothing
End Sub
Muchas gracias James, pero que crees que me cambia el formato de la celda de formato de fecha a general.
20/08/18 a 43332
Ojalá me puedas ayudar ;)
Solo cambia esta línea
.Cells(2 * i - 1, 1) = datos.Cells(i, 1)
por esta .Cells(2 * i - 1, 1) = CDate(datos.Cells(i, 1)) y listo
