Ordenar datos horizontales a vertical uno a uno
Estoy recién empezando a generar macros en excel 2007 y necesito pedirles una ayuda.
Tengo una base con rut y mails escritos horizontalmente y necesito que queden escrito verticalmente o sea que se repitan el rut tantas veces como mails hayan.
Esta es la base
y debe quedar asi
2 Respuestas
Respuesta de Dante Amor
2
Te anexo la macro
Sub A_Vertical()
'Por Dante Amor
Set h1 = Sheets("Hoja1") 'hoja origen
Set h2 = Sheets("Hoja2") 'hoja destino
'
h2.Rows("2:" & Rows.Count).Clear
k = 2
For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
For j = 2 To h1.Cells(i, Columns.Count).End(xlToLeft).Column
h2.Cells(k, "A").Value = h1.Cells(i, "A").Value
h2.Cells(k, "B").Value = h1.Cells(i, j).Value
k = k + 1
Next
Next
MsgBox "Fin"
End SubCambia en la macro hoja1 y hoja2 por los nombres de tus hojas
'.[Sal u dos. Dante Amor. No olvides valorar la respuesta. '.[Avísame cualquier duda
Respuesta de Programar Excel
1
Esto puede ayudar o aportar algo más