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

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

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

También podría interesarte ...

Agrega tu comentario

Comentarios
  1. Posted by Luis Reyes
    • Posted by Robin Solano
  2. Posted by Carlos
    • Posted by Gustavo A. Sebastiani Cépeda
  3. Posted by Carlos
    • Posted by Gustavo A. Sebastiani Cépeda
      • Posted by Maria Elena
  4. Posted by HUMBERTO
    • Posted by Gustavo A. Sebastiani Cépeda
  5. Posted by Daniel Jauregui
  6. Posted by Sergio