Macro para concatenar filas a columnas
Reciba un cordial y respetuoso saludo
Se tiene los siguientes datos en excel en la hoja1
A G
10 14,11,77,44 y muchos más números separados por comas
25 15,20,22,14,28,29, ........
78 10,.........
Así sucesivamente hasta la última fila de A
Se requiere una macro para generar en la hoja2 en la columna A:
A
10 14
10 11
10 77
10 44
...
25 15
25 20
25 22
25 14
25 28
25 29
...
78 10
...
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro
Sub ConcatenarFilas()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
h2.Cells.Clear
k = 1
For i = 1 To h1.Range("A" & Rows.Count).End(xlUp).Row
valores = Split(h1.Cells(i, "G"), ",")
For j = LBound(valores) To UBound(valores)
h2.Cells(k, "A") = h1.Cells(i, "A") & " " & valores(j)
k = k + 1
Next
Next
MsgBox "Fin"
End Sub':) ':)
