¿Cómo insertar una fila en blanco según el valor de la celda anterior en Excel?
En Excel, la inserción de filas en blanco es una de las funciones más utilizadas en nuestro trabajo diario. Sin embargo, ¿hay alguna forma de insertar rápidamente filas en blanco según el valor de la celda anterior como se muestra a continuación? Ahora, este artículo habla sobre el método para insertar rápidamente una fila en blanco basada en los valores de celda anteriores en Excel.
 |
 |
 |
Insertar fila según el valor anterior
Insertar fila según el valor anterior
Si desea insertar una fila en blanco según el número anterior, puede usar un código de macro.
1. Habilite la hoja que usa y presione Alt + F11 llaves para abrir Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic en recuadro > Móduloy pegue el siguiente código en el script.
VBA: inserte el código en blanco según la celda de arriba
Sub Insert () 'Actualizar porExtendoffice20170926 Dim xRg As Range Dim xAddress As String Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long On Error Resume Next xAddress = ActiveWindow.RangeSelection.Address Set xRg = Application.InputBox ("Seleccione un rango para usar (columna única ): "," KuTools For Excel ", xAddress,,,,, 8) Si xRg no es nada, salga de la subaplicación.ScreenUpdating = False xLastRow = xRg (1) .End (xlDown) .Row xFstRow = xRg.Row xCol = xRg.Column xCount = xRg.Count Establecer xRg = xRg (1) Para I = xLastRow A xFstRow Paso -1 xNum = Cells (I, xCol) If IsNumeric (xNum) And xNum> 0 Then Rows (I + 1) .Resize (xNum) .Inserte xCount = xCount + xNum End If Next xRg.Resize (xCount, 1) .Select Application.ScreenUpdating = True End Sub
3. Prensa F5 para ejecutar el código, y aparece un cuadro de diálogo para recordarle que seleccione una lista para trabajar. Ver captura de pantalla:
4. Hacer clic en OK, se han insertado las filas en blanco.
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!
