Concatenar filas de las columnas

[sarcabinas]

Gracias de antemano x su ayuda:

Quiero una macro q me concatene filas

fila = celdas: a2,b2,c2...m2

quiero q me concatene la fila con separación de "|" y si al momento de concatenar la fila encuentra una celda vacía q lo concatene como "0" y el resultado lo ponga en la celda p2 y luego pase a la siguiente fila = a3,b3,c3...m3 y concatene y el resultado en p3 y asi sucesivamente concatenar todas las filas asta encontrar celda vacía en la columna A y allí termina la macro, la cantidad de filas es variable pero siempre en la columna a1 asta aX (X valor cualquiera) siempre hay datos, no quiero usar formulas por que antes de concatenar elimino varias filas no deseadas. doy gracias x su tiempo y paciencia. Bendiciones a su web y a los que ayudan a otros

Saludos

Richar Chavez

[Armando Montes]

Una UDF:

Function Unir(ByRef rng As Range, ByVal myJoin As String) As String

    Dim e

    With CreateObject("Scripting.Dictionary")

        For Each e In rng.Value

            If Not IsEmpty(e) Then .Item(e) = Empty

        Next

        Unir = Join$(.keys, myJoin)

    End With

End Function[/CODE]

[sarcabinas]

Disculpas por la demora en responder. Muy agradecido por el codigo tratare de acomodar a mis necesidades.

Atentamente

Richar Chavez