Filas en columnas excel macros
Necesito que las capacidades de los idlugar repetidos me aparezcan en una sola fila como columna.
Tengo una tabla de 4 columnas:
Respuesta de Cecilio Pérez Maqueda
-1
Así está:
Idlugar, Planta, Unidad, Capacidad
2, sum,kva,10
2,sum,kva,20
Así debe quedar:
Idlugar, Planta, Unidad, Capacidad
2,sum,kva,10,20
Tener en cuenta:
- Pueden existir 2 a más idlugar repetidos, en estos seguir la misma lógica, es decir:
2,sum,kva,10,20,30,40,65,70,75
Sub Concatenar()
'Por.Dante Amor
Set h1 = Sheets("Hoja1") 'hoja origen con datos
Set h2 = Sheets("Hoja2") 'hora de resultados
'
h2.Cells.ClearContents
h1.Rows(1).Copy h2.Rows(1)
'
For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row
Set b = h2.Columns("A").Find(h1.Cells(i, "A"), lookat:=xlWhole)
If Not b Is Nothing Then
h2.Cells(b.Row, "d") = h2.Cells(b.Row, "d") & " , " & h1.Cells(i, "d")
Else
u2 = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
h2.Cells(u2, "A") = h1.Cells(i, "A")
h2.Cells(u2, "B") = h1.Cells(i, "B")
h2.Cells(u2, "C") = h1.Cells(i, "C")
h2.Cells(u2, "D") = h1.Cells(i, "D")
End If
Next
MsgBox "Fin"
End SubQue tal Juan carlos estaba viendo una macro del Experto Dante y se adapta a justo a tus necesidades de hace unos ayeres , te lo adapte como habias solicitado, ojala puedas sacarle provecho Saludos
