Unir varias columnas en una sola en Excel

Por

En ocasiones nos encontramos con que tenemos nuestra información en varias columnas, pero necesitamos unir todos los datos en una sola columna.

Generalmente vamos copiando y pegando columna por columna, además de resultar laborioso, podemos equivocarnos, perder información, y además perder tiempo en revisiones para saber si copiamos los datos completos.

unir-varias-columnas

Podemos resolver esta situación de manera automática con una macro. Solamente hay que introducir en la macro las columna inicial, la columna final a unir, la columna unión y la fila donde empiezan los datos.

La macro:

'Unir varias columnas en una sola columna

Application.ScreenUpdating = False

ci = Columns("B").Column    'columna inicial a unir

cf = Columns("D").Column    'columna final a unir

cd = Columns("A").Column    'columna unión

f = 2                       'fila inicial de datos

Range(Cells(2, cd), Cells(Rows.Count, cd)).ClearContents

For i = ci To cf

uf = Cells(Rows.Count, i).End(xlUp).Row

ud = Cells(Rows.Count, cd).End(xlUp).Row + 1

Range(Cells(f, i), Cells(uf, i)).Copy Cells(ud, cd)

Next

Application.ScreenUpdating = True

MsgBox "Columnas Unidas", vbInformation, "UNIR COLUMNAS"

End Sub

Sigue las Instrucciones para un botón y ejecutar la macro

  1. Abre tu libro de Excel
  2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
  3. En el menú elige Insertar / Módulo
  4. En el panel del lado derecho copia la macro
  5. Ahora para crear un botón, puedes hacer lo siguiente:
  6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
  7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
  8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona: Tamaño y Propiedades. En la ventana que se abre selecciona la pestaña: Propiedades. Desmarca la opción “Imprimir Objeto”. Presiona “Cerrar”
  9. Vuelve a presionar click derecho dentro de la imagen y ahora selecciona: Asignar macro. Selecciona: Unir_Columnas
  10. Aceptar.
  11. Para ejecutarla dale clic a la imagen.

Cambia los datos en la macro, ejecuta la macro y revisa tus datos en la columna destino. Listo, ahora podrás trabajar con los datos unidos en una sola columna.

Descargar archivo.

Contenido relacionado:
Gerencie.com en su correo.

Suscríbase y nosotros colocaremos en su bandeja de entrada la mejor información que generamos diariamente.


Déjenos su opinión

2 Opiniones
  1. vic96 Dice:

    esta bueno este archivo pero como le hago si las columnas a unir estan en hojas diferentes.

    espero contar con tu apoyo para poder resolver esta necesidad.

    saludos.

    Responder
    • Dante Amor Dice:

      Prueba con la siguiente macro:
      '
      Sub Unir_Columnas()
      'Por Dante Amor
      'Unir varias columnas en una sola columna
      Application.ScreenUpdating = False
      hojas = Array("Hoja1", "Hoja2", "Hoja3")
      Set h1 = Sheets("Resumen") 'nombre de hoja con el resumen de columnas
      ci = Columns("B").Column 'columna inicial a unir
      cf = Columns("D").Column 'columna final a unir
      cd = Columns("A").Column 'columna unión
      f = 2 'fila inicial de datos
      h1.Range(h1.Cells(2, cd), h1.Cells(Rows.Count, cd)).ClearContents
      For h = LBound(hojas) To UBound(hojas)
      Set h2 = Sheets(hojas(h))
      For i = ci To cf
      uf = h2.Cells(Rows.Count, i).End(xlUp).Row
      ud = h1.Cells(Rows.Count, cd).End(xlUp).Row + 1
      h2.Range(h2.Cells(f, i), h2.Cells(uf, i)).Copy h1.Cells(ud, cd)
      Next
      Next
      Application.ScreenUpdating = True
      MsgBox "Columnas Unidas", vbInformation, "UNIR COLUMNAS"
      End Sub

      Responder
En Gerencie.com está permitido opinar, criticar, discutir, controvertir, disentir, etc., pero debe hacerlo con respeto, sin insultar y sin ofender a otros.

Información legal aplicable para Colombia.