¿Cómo fusionar automáticamente las celdas en blanco arriba / izquierda en Excel?
En este artículo, voy a hablar sobre la combinación de celdas en blanco arriba o izquierda automáticamente como se muestra a continuación. En realidad, no hay una utilidad incorporada que pueda manejar esta tarea, pero los códigos de macro pueden hacerlo.
| Combinar espacios en blanco arriba | ||
 |
 |
 |
| Combinar espacios en blanco a la izquierda | ||
 |
|
 |
Fusionar celdas en blanco de arriba según una columna
Combinar celdas en blanco arriba (solo funciona para una sola columna)
Combinar celdas en blanco a la izquierda
Fusionar celdas en blanco de arriba según una columna
Supongamos que hay un rango de datos en tres columnas y ahora desea fusionar los datos anteriores según la columna C.
1. Prensa Alt + F11keys para habilitar el Microsoft Visual Basic para aplicaciones ventana y haga clic en recuadro > Módulo. Ver captura de pantalla:
2. Luego pegue el código siguiente en el script en blanco. Ver captura de pantalla:
VBA: fusionar el espacio en blanco anterior según 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. Prensa F5 para ejecutar el código, y luego aparece un cuadro de diálogo para recordarle que seleccione un rango para trabajar. Ver captura de pantalla:
4. Hacer clic en OK, entonces las celdas en blanco se han combinado arriba. Ver captura de pantalla:
Combinar celdas en blanco arriba (solo funciona para una sola columna)
Aquí hay un código de macro que puede combinar las celdas en blanco de arriba en la columna especificada.
1. Prensa Alt + F11 claves para habilitar el Microsoft Visual Basic para aplicaciones ventana y haga clic en recuadro > Módulo. Ver captura de pantalla:
2. Pegue el código siguiente en la secuencia de comandos. Ver captura de pantalla:
VBA: fusionar celdas en blanco 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. Prensa F5 para ejecutar el código, y aparece 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 arriba.
 |
|
 |
Combinar celdas en blanco a la izquierda
Si desea fusionar las celdas en blanco que quedan, el siguiente código puede hacerle un favor.
1. Prensa Alt + F11 claves para habilitar el Microsoft Visual Basic para la ventana Aplicaciones y haga clic en recuadro > Módulo. Ver captura de pantalla:
2. Luego pegue el código siguiente en el script en blanco. Ver captura de pantalla:
VBA: combinar 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. Prensa F5 para ejecutar el código, y aparece un cuadro de diálogo para que seleccione un rango. Ver captura de pantalla:
4. Hacer clic en OK. Las celdas en blanco se han combinado a la izquierda.
| Combinar espacios en blanco a la izquierda | ||
|
|
|
Fusionar celdas iguales o separar celda
|
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
