Jump to content

Combinar celdas de varias filas


Recommended Posts

Buenas Tardes Señores del Foro

Necesito una mano con una planilla, para la cual desearía que una macro me realice lo siguiente
En la columna "A" fila "1" podría tener datos hasta la "A" fila 460000" por decir asi, contiene la ruta de donde están ubicados mis archivos y,
En la columna "B" fila "1" podría tener datos hasta la "B" fila 460000" por decir asi, contiene mis archivos propiamente
La idea es seleccionar la matriz completa y que me las combine en la columna "A" fila por fila, o en otra columna, que podría ser la columna "C"

Desde ya agradecido..

Adjunto Planilla Ejemplo

LISTADO-CONCAT-2.xlsm

Link to comment
Share on other sites

Hace 2 horas, ramonvar dijo:

La idea es seleccionar la matriz completa y que me las combine en la columna "A" fila por fila, o en otra columna, que podría ser la columna "C"

Combinar te refieres a concatenar?, si es si, abajo te dejo una solución

Dim rango As Range: Set rango = Range("A:A").SpecialCells(2)
Dim matriz: vtf = rango.Rows.Count

ReDim matriz(1 To vtf)

For i = 1 To vtf
    matriz(i) = Cells(i, 1) & Cells(i, 2)
Next

Cells(1, 3).Resize(vtf) = matriz

Set rango = Nothing

 

Saludos 

Link to comment
Share on other sites

  • Crear macros Excel

  • Posts

    • Sub CopiarMúltiple() Application.ScreenUpdating = False Range("C3:I7").Copy For x = 12 To 4998 Step 9 Range("C" & x).PasteSpecial xlPasteAll Next Application.CutCopyMode = False End Sub  
    • Janlui, muy bueno funciona perfecto eso lo que necesitaba magnifico...
    • Sub Concatenar() Dim fn As Long uFila = Range("H" & Cells.Rows.Count).End(xlUp).Row pFila = 1 For fila = pFila + 1 To uFila     fn = Range("I" & fila)     Range("O" & fila) = Range("H" & fila) & fn Next fila End Sub    
    • Buenas tardes, expertos solicito una ayuda para concatenar dos columnas una de ellas es en cuanto a la fechas, lo que pasa es que la macro que tengo concatena muy bien, solo tengo un inconveniente con las fechas dicha columna (I) estas formateadas por ejemplo asi: Feb-20 pero al concatenar el resultado asi: O-2AA6220/09/2021, pero asi no quiero, me gustaria concatenar que salga asi: A-234RV44032 los 5 ultimos digitos son de la fecha, bueno asi me gustaria que quede, la macro que estoy usando es: Sub Concatenar() uFila = Range("H" & Cells.Rows.Count).End(xlUp).Row pFila = 1 For fila = pFila + 1 To uFila     Range("O" & fila) = Range("H" & fila) & Range("I" & fila) Next fila End Sub Por favor si me podria dar una ayuda estare muy agradecido. Adjunto el archivo Consolidado.xlsm
    • Con la grabadora Pero son demasiadas filas. Sub Macro1() Range("C3:I7").Select Selection.Copy Range("C12").Select ActiveSheet.Paste Application.CutCopyMode = False Selection.Copy Range("C21").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub Hace tiempo que no entro en el foro y no veo la opcion de subir libro. Un Saludo.
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy