¿Cómo fusionar dos columnas en una con valores alternos en Excel?

Aquí hay dos columnas en una hoja de cálculo. La tarea es fusionar estas dos columnas en una, con valores alternos, como se muestra en la captura de pantalla a continuación. ¿Cómo puedes manejar rápidamente esta tarea sin reorganizarlas una por una?

Fusionar dos columnas en una con valores alternos mediante código VBA

Fusionar dos columnas en una con valores alternos mediante Kutools para Excel

Fusionar dos columnas en una con valores alternos mediante código VBA

Para fusionar dos columnas en una con valores alternos, no hay una función integrada excepto el código VBA en Excel.

1. Presiona las teclas Alt + F11 para habilitar la ventana de Microsoft Visual Basic para Aplicaciones. Haz clic en Insertar > Módulo para crear un nuevo módulo en blanco.

2. Copia y pega el siguiente código en el módulo.

VBA: Fusionar dos columnas en una con valores alternos

Sub MergeColumns()
'UpdatebyExtendoffice20180815
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNum As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select two columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
    Application.ScreenUpdating = True
    Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
    Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
    For xFNum = 1 To xSRg.Count
        Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
        xDRg.Value = xSRg.Item(xFNum).Value
        xI = xI + 1
    Next xFNum
Application.ScreenUpdating = True
End Sub

3. Presiona F5 y selecciona las dos columnas que deseas fusionar en el cuadro de diálogo emergente.

4. Haz clic en OK, en el segundo cuadro de diálogo, selecciona una celda para colocar el resultado.

5. Haz clic en OK. Ahora, las dos columnas seleccionadas se han fusionado en una con valores alternos.

Fusionar dos columnas en una con valores alternos mediante Kutools para Excel

Si tienes Kutools para Excel instalado en Excel, su utilidad Transformar Rango puede realizar esta tarea en solo tres sencillos pasos.

1. Selecciona las columnas (dos o más) que deseas fusionar, haz clic en Kutools > Transformar Rango.

2. En el Transformar Rango cuadro de diálogo, marca la opción Rango a columna única y haz clic en Ok.

3. Selecciona una celda para colocar el resultado en el cuadro de diálogo emergente. Haz clic en OK.

Ahora, las columnas se han fusionado en una sola, y los valores alternan entre ambas.

Demostración: Transponer Rango usando Kutools para Excel