¿Cómo fusionar automáticamente las celdas en blanco de arriba/izquierda en Excel?

En este artículo, voy a hablar sobre la fusión automática de celdas en blanco de arriba o izquierda, como se muestra en la captura de pantalla a continuación. En realidad, no hay ninguna utilidad integrada que pueda manejar esta tarea, pero los códigos macro pueden.

Fusionar espacios en blanco de arriba

Fusionar espacios en blanco a la izquierda

Fusionar celdas en blanco de arriba basado en una columna

Fusionar celdas en blanco de arriba (solo funciona para una sola columna)

Fusionar celdas en blanco a la izquierda

Fusionar celdas en blanco de arriba basado en una columna

Supongamos que hay un rango de datos en tres columnas, y ahora desea fusionar los datos de arriba basándose en la columna C.

1. Presione Alt + F11 keys para habilitar la ventana de Microsoft Visual Basic for Applications y haga clic en Insertar > Módulo. Ver captura de pantalla:

2. Luego pegue el siguiente código en el script en blanco. Ver captura de pantalla:

VBA: Fusionar espacios en blanco de arriba basado en la siguiente columna

Sub MergeCells()
'UpdatebyExtendoffice2017025
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Value = "" Then
            Range(xCell, xCell.Offset(-1, 0)).Merge
        End If
    Next
End Sub

3. Presione la tecla F5 para ejecutar el código, y luego aparecerá un cuadro de diálogo que le recordará que seleccione un rango para trabajar. Ver captura de pantalla:

4. Haga clic en Aceptar, y luego las celdas en blanco se habrán fusionado hacia arriba. Ver captura de pantalla:

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!

Fusionar celdas en blanco de arriba (solo funciona para una sola columna)

Aquí hay un código macro que puede fusionar las celdas en blanco de arriba en la columna especificada.

1. Presione Alt + F11 para habilitar la ventana de Microsoft Visual Basic for Applications y haga clic en Insertar > Módulo. Ver captura de pantalla:

2. Pegue el siguiente código en el script. Ver captura de pantalla:

VBA: Fusionar celdas en blanco de arriba

Sub mergeblankswithabove()
'UpdatebyExtendoffice20171025
    Dim I As Long
    Dim xRow As Long
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range (single column):", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Then
        MsgBox "Only work for single column", , "KuTools For Excel"
        Exit Sub
    End If
    xRow = xRg.Rows.Count
    Set xRg = xRg(xRow)
    For I = xRow To 1 Step -1
        Set xCell = xRg.Offset(I - xRow, 0)
        Debug.Print xCell.Address
        If xCell.Value = "" Then Range(xCell, xCell.Offset(-1, 0)).Merge
    Next
End Sub

3. Presione la tecla F5 para ejecutar el código, y aparecerá un cuadro de diálogo para que seleccione un rango de columnas. Ver captura de pantalla:

4. Haga clic en Aceptar. Y las celdas en blanco en la selección se han fusionado hacia arriba.

Fusionar celdas en blanco a la izquierda

Si desea fusionar celdas en blanco a la izquierda, el siguiente código puede ayudarle.

1. Presione Alt + F11 para habilitar la ventana de Microsoft Visual Basic for Applications, y haga clic en Insertar > Módulo. Ver captura de pantalla:

2. Luego pegue el siguiente código en el script en blanco. Ver captura de pantalla:

VBA: Fusionar espacios en blanco a la izquierda

Sub mergeblankswithleft()
'UpdatebyExtendoffice20171025
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Value = "" Then Range(xCell, xCell.Offset(0, -1)).Merge
    Next
End Sub

3. Presione la tecla F5 para ejecutar el código, y aparecerá un cuadro de diálogo para que seleccione un rango. Ver captura de pantalla:

4. Haga clic en Aceptar. Las celdas en blanco se han fusionado a la izquierda.

Fusionar espacios en blanco a la izquierda