Macro para unir celdas en una sola (curioso)

excel habla excel talk excel speack excel spell

Macro para unir celdas en una sola (curioso): Implementando un pequeño sistema en excel para un cliente encontré que todos sus formatos tenían los títulos con salto de linea (pasaban de una celda hacia abajo) lo que me impedía realizar mi trabajo de automatización, por dicha razón se me ocurrió elaborar una pequeña instrucción (macro) algo curiosa pero útil que sirve para unir textos  (concatenar) de diferentes celdas y combinarlas en una sola.

Su funcionamiento es bastante sencillo y basta con seleccionar el rango de datos que queremos unificar, luego presionamos el botón que ejecuta la macro y obtendremos como resultado la consolidación de los textos.

Dejo por aquí el código utilizado para concatenar la información que contienen las celdas de un rango determinado.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

Sub unir_celdas()
celda = ""
For Each Rng In Selection
celda = celda & " " & Rng.Value
Next Rng
Application.DisplayAlerts = False
With Selection
.Merge
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientation = 0
.MergeCells = True
.WrapText = True
.Orientation = 0
End With
 
Application.DisplayAlerts = True
ActiveCell.Value = celda
End Sub
Publicidad

DESCARGA EL ARCHIVO

Descargar macro para unir celdas en una sola en Excel.xls


Suscríbete es gratis

Ingresa tu correo electrónico y te convertiré en un experto en Excel. ↓


REVISA ESTOS TEMAS SIMILARES

Tags:

Agrega tu comentario

Comentarios
  1. Posted by Dante

    Muy interesante…

    Responder
  2. Posted by Luis Reyes

    Hola: excelente trabajo en verdad me ayuda mucho.
    Gracias!!

    Saludos desde México!!

    Responder
    • Posted by Robin Solano

      Gracias por visitarnos, que gusto saber que el artículo fue útil para ti. Saludos

      Responder
  3. Posted by Carlos

    Hola de nuevo,

    He sustituido (” “) por ( Chr(10) ) y ya me lo hace, pero me inserta un salto de línea al principio, ¿cómo lo podría evitar?
    Gracias y saludos.

    Responder
    • Posted by Gustavo A. Sebastiani Cépeda

      utiliza chr(34)

      Responder
  4. Posted by Carlos

    Hola, y gracias por compartir estas maravillas.

    Yo quisiera en vez del espacio introducir un salto de línea. Intento hacerlo cambiando (” “) por caracter(10) pero me da el siguiente error:
    Error de compilación:
    No se ha definido Sub o Function

    A ver si me podéis ayudar.
    Gracias y saludos.

    Responder
    • Posted by Gustavo A. Sebastiani Cépeda

      Ya te respondí es chr(34)

      Responder
      • Posted by Maria Elena

        Soy nueva en macros, solicito tu ayuda, deseo insetar filas, pero que las nuevas filas insertadas mantenga su combinacion de formato, es decir, insertar filas que combinen 4 columnas, de la A a la F, en un determinado rango. Ayuda porfa!!!

        Responder
  5. Posted by HUMBERTO

    ME GUSTO COMO CONCATENA EL MACRO, PERO COMO SE LE AGREGA UNA COMO ( , ) COMO SEPARADOR.

    Responder
    • Posted by Gustavo A. Sebastiani Cépeda

      cambia el separador desde la macro “|”

      Responder
  6. Posted by Daniel Jauregui

    Muy buen tema, me ayuda a entender macros pero no pude separar los sufijos y mantener una relación coherente entre mis datos pues si los nombres que deseo separar estuvieran así:

    Juan Perez
    Dr. Marco Aguilar

    El primero serian 2 columnas y el segundo 3, al manejar decenas de datos esto se vuelve un dolor de cabeza… encontré un utilitario que me ayuda a hacer esto, espero que a alguien mas le sirva

    http://www.ablebits.com/excel-split-names/index.php

    Saludos.

    Responder
  7. Posted by Sergio

    Excelente, creo sin comentarios, los aportes acá son de verdad.
    ya no estamos frente a esos tiempos que el conocimiento era de algunos, gracias.

    Responder