Concatenar varias filas

Espero me puedan ayudar, y de antemano gracias por las atenciones prestadas.
Quiero concatenar varias filas en una celda si tengo por ejemplo: Si en la celda A1 tengo el numero 1, concatename lo que este en la Columna C que comprenda las filas a partir del numero 1 antes de llegar o toparse con la fila que contenga el numero 2.
Se ve algo así:
A B C
1 carlos carlos angel miguel
       angel
       miguel
2     xxxxx         xxxxx yyyyy zzzzz
       yyyyy
       zzzzz
*Entonces como puedo darle la orden a Excel de que si en la primera columna hay un numero me concatene todas las filas que comprenda ese numero hasta llegar a la siguiente fila con numero*
Gracias y espero haberme explicado!
PD: si se de macros por si me quieren enviar un código.

1 respuesta

Respuesta
1
Te dejo este código a ver si te sirve
Sub Concatena()
    Dim sCelda As String
    Dim nTotalFilas As Integer
    Dim nFila As Integer
    Dim nUltimaFila As Integer
    Range("B1").Select 'Suponiendo que aquín comienza la lista
    Range(Selection, Selection.End(xlDown)).Select
    nTotalFilas = Selection.Rows.Count
    nUltimaFila = 0
    For nFila = 1 To nTotalFilas
        If Trim(Range("A" & nFila).Value) <> "" Then
            If Range("A" & nFila).Value <> nUltimaFila Then
                sCelda = "C" & nFila
                nUltimaFila = Range("A" & nFila).Value
                Range(sCelda).Value = Range("B" & nFila).Value
            Else
            End If
        Else
            Range(sCelda).Value = Range(sCelda).Value & " " & Range("B" & nFila).Value
        End If
    Next
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Rellenar con 0

Ojala me puedan ayudar, bueno tengo el siguiente problema, necesito rellenar con 0 desde la izquierda, lo he hecho de la siguiente manera =1000000000000000+A1 y luego extraigo. Pero el problema es cuando tengo numeros con decimales. Ejm. Tengo 420 y...
1 respuesta

Macro para calcular promedio

Como hacer para que cuando se ingrese el último valor a un rango inmediatamente me calcule el promedio y no antes.
1 respuesta

Macro concatenar

Quisiera saber como concateno por medio de una macro un libro que tiene un rango de datos de a hasta h con muchas filas, por lo que quiero primero insertar una columna en A y ahí en a1 concatenar lo que este en e1 Y B1. Lo he estado intentando así.....
1 respuesta

Ciclos en Macros para repetir una fórmula

Estoy haciendo una base de datos en Excel y necesito que en una columna se vayan sumando ciertos valores hasta la última celda que tenga datos, el código que tengo es el siguiente: Sub Ejemplo_28() Dim A As Integer Dim B As Integer A =...
1 respuesta

Excel a correo masivo

Tengo en excel los datos en varias filas de un cliente, deseo enviar las por correo como un estado de cuenta Nombre factura importe Juan 0001 532.32 Juan 0002 234.65 Juan 0003 456.56 Percy 0002 435.98 Jorge 0005 345.67 He probado con combinar...
2 respuestas

Resaltar filas duplicadas

He encontrado en el foro una macro (el experto no se halla disponible ahora si no hubiera contactado con él) para colorear los valores duplicados de una columna. Me gustaría modificar esa macro para que hiciera exactamente lo mismo pero en vez con...
2 respuestas

Buscar dentro de matriz excel

Tengo una matriz de datos de m*m con las distancias de puntos( coordenadas). Necesito buscar aquellas coordenadas que la distancia sea menos a 200 ycopiar las coordenadas a otra hoJa.
1 respuesta

Mejorara una macro_inserta 5 filas hacia arriba si es que encuentra datos en una columna

Como puedo mejorar esta macro: Tengo una tabla con datos del siguiente modo. A B C FECHA VENTA1 VENTA2 12/02/2014 34 45 45 50 15/02/2014 50 60 16/02/2014 80 90 ...... ..... ..... Lo que busco es insertar 5 filas arriba de cada fila con valores de...
3 respuestas