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:

2

2 Respuestas

15.300 pts. Con hambre de aprender Macros

¿Quieres eliminar datos repetidos de la columna "A"?

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 Sub

Que 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

292.650 pts. https://youtube.com/programarexcel...

Quizás estos ejemplos te orienten

https://youtu.be/Rac3rYG9Jqs

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas