Podemos concatenar (unir) los valores de las celdas de la columna A y columna B sobre otra columna en Excel.
En la columna A disponemos del valor de fecha y en la columna B el nombre de la empresa. En la columna C concatenaremos los valores de A y B.
- CREAR MACRO
Con Excel abierto.
Pulsar la tecla Alt y mantener pulsada
Pulsar la tecla F11. Mostrará el editor de Visual Basic.Ir a: Barra de Menú
Insertar 
Módulo. Mostrará la ventana del módulo donde escribimos la macro.
Escribir el código de la macro:
Sub UneColumnas()
Dim mi_hoja As Worksheet
Dim mi_final As Long
Dim x As LongSet mi_hoja = ActiveSheet
mi_final = mi_hoja.Cells.SpecialCells(xlLastCell).Row
For x = 1 To mi_finalIf Len(mi_hoja.Cells(x, 1)) > 0 And Len(mi_hoja.Cells(x, 2)) > 0 Then
mi_hoja.Cells(x, 3).Value = mi_hoja.Cells(x, 1).Value & " - " & mi_hoja.Cells(x, 2).Value
End If
Next
End Sub" - ", " | ", " ; "... Tipo de separador entre columnas.
(x, 1). Número de la columna 1ª.
(x, 2). Número de la columna 2ª.
(x, 3). Número de la columna donde unir las celdas.Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.
- EJECUTAR MACRO
Ejecutar la macro: UneColumnas.
Verificar como en la columna C se muestran los valores concatenados de las celdas de A y B.
Excel Experto VBA - Macros- Consultar:
