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