¿Cómo combinar automáticamente las celdas en blanco situadas encima o a la izquierda en Excel?
En este artículo te explico cómo combinar automáticamente las celdas en blanco situadas encima o a la izquierda, tal como se muestra en la siguiente captura de pantalla. Aunque no existe ninguna utilidad integrada para realizar esta tarea, sí es posible lograrlo mediante macros.
| Combinar celdas en blanco situadas encima | ||
 |  |  |
| Combinar celdas en blanco situadas a la izquierda | ||
 | |  |
Combinar celdas en blanco situadas encima según una columna
Combinar celdas en blanco situadas encima (solo funciona para una única columna)
Combinar celdas en blanco situadas a la izquierda
Combinar celdas en blanco situadas encima según una columna
Supongamos que tiene un rango de datos distribuido en tres columnas y desea combinar los datos situados encima según la columna C.
1. Pulse Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones y haga clic en Insertar > Módulo. Vea la captura de pantalla:
2. A continuación, pegue el siguiente código en el script en blanco. Consulte la captura de pantalla:
VBA: Combinar celdas en blanco situadas encima según la columna siguiente
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. Pulse F5 para ejecutar el código; a continuación, aparecerá un cuadro de diálogo que le pedirá que seleccione un rango sobre el que trabajar. Vea la captura de pantalla:
4. Haga clic en Aceptar; así, las celdas en blanco se combinarán hacia arriba. Vea la captura de pantalla:
Descubra la magia de Excel con KUTOOLS AI
- Ejecución inteligente: Realice operaciones en celdas, analice datos y cree gráficos con comandos sencillos.
- fórmulas personalizadas: Cree fórmulas a medida para optimizar sus flujos de trabajo.
- Programación en VBA: Escriba e implemente código VBA con facilidad.
- Interpretación de fórmulas: Entienda las fórmulas complejas con facilidad.
- Traducción de texto: Rompa las barreras del idioma directamente en sus hojas de cálculo.
Combinar celdas en blanco situadas encima (solo funciona para una única columna)
A continuación se muestra una macro que combina las celdas en blanco situadas encima en la columna especificada.
1. Pulse Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones y haga clic en Insertar > Módulo. Vea la captura de pantalla:
2. Pegue el siguiente código en el script. Consulte la captura de pantalla:
VBA: Combinar celdas en blanco situadas encima
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. Pulse F5 para ejecutar el código; a continuación, aparecerá un cuadro de diálogo en el que podrá seleccionar un rango de columnas. Vea la captura de pantalla:
4. Haga clic en Aceptar. Las celdas en blanco de la selección se combinarán hacia arriba.
 | |  |
Combinar celdas en blanco situadas a la izquierda
Si desea combinar las celdas en blanco situadas a la izquierda, el siguiente código le resultará de gran ayuda.
1. Pulse Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones y haga clic en Insertar > Módulo. Vea la captura de pantalla:
2. A continuación, pegue el siguiente código en el script en blanco. Consulte la captura de pantalla:
VBA: Combinar celdas en blanco situadas 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. Pulse F5 para ejecutar el código; a continuación, aparecerá un cuadro de diálogo en el que podrá seleccionar un rango. Vea la captura de pantalla:
4. Haga clic en Aceptar. Las celdas en blanco se combinarán hacia la izquierda.
| Combinar celdas en blanco situadas a la izquierda | ||
| | |
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos