¿Cómo insertar o eliminar una fila parcial en Excel?
Es fácil insertar o eliminar una fila completa de la hoja de trabajo en Excel. Pero, ¿cómo insertar o eliminar solo una fila parcial de la hoja de trabajo? Este articulo te ayudara.
Insertar o eliminar una fila parcial con la función Insertar / Eliminar celdas
Insertar o eliminar una fila parcial con código VBA
Insertar o eliminar una fila parcial con la función Insertar / Eliminar celdas
Por ejemplo, si desea insertar o eliminar una fila parcial en la fila 5 con tres celdas, haga lo siguiente.
Insertar fila parcial
1. Seleccione tres celdas en la fila 5 (las celdas seleccionadas deben ser iguales a las celdas insertadas), luego haga clic en recuadro > Insertar celdas bajo Inicio lengüeta. Ver captura de pantalla:
2. En el recuadro cuadro de diálogo, seleccione Desplazar celdas a la derecha or Desplazar celdas hacia abajo opción y luego haga clic en OK del botón.
Luego, se inserta una fila parcial con tres celdas como se muestra a continuación.
Eliminar fila parcial
1. Después de seleccionar la fila parcial que desea eliminar, haga clic en Eliminar> Eliminar celdas bajo Inicio .
2. En el Borrar cuadro de diálogo, seleccione Desplazar celdas a la izquierda or Desplazar celdas hacia arriba según lo necesite, y luego haga clic en el OK botón. Ver captura de pantalla:
Luego, se elimina la fila parcial seleccionada.
Insertar o eliminar una fila parcial con código VBA
También puede aplicar los siguientes códigos VBA para insertar o eliminar una fila parcial en Excel.
1. Seleccione cualquier celda de una determinada fila en la que desee insertar filas parciales, luego presione otro + F11 para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Y luego copie y pegue el siguiente código VBA en el Código ventana.
Código de VBA: inserte una fila parcial en Excel
Sub InsertRow()
Dim I As Long
On Error Resume Next
LInput:
I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
If I < 1 Then
MsgBox "Error, please retype", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Insert xlDown
End SubNote: En el código de VBA, el número 1 significa que la fila parcial se insertará desde la primera columna, y el número 3 significa que insertará tres celdas entre las columnas. Puede cambiarlos según sus necesidades.
3. presione el F5 clave para ejecutar el código, luego una Kutools for Excel aparece el cuadro de diálogo, ingrese el número de filas requeridas que necesita y luego haga clic en OK del botón.
Si ingresa 3 en el cuadro, luego haga clic en el OK , se insertarán tres filas parciales con tres columnas en la posición especificada de su hoja de trabajo.
Para eliminar una fila parcial, puede ejecutar el siguiente código VBA.
Código de VBA: elimine la fila parcial en Excel
Sub DelActiveCell_Row()
Dim I As Long
On Error Resume Next
LInput:
I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
If I < 1 Then
MsgBox " Error, please retype", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Delete xlShiftUp
End SubDespués de ejecutar el código, también hay un Kutools for Excel aparece un cuadro de diálogo para recordarle cuántas filas parciales desea eliminar, ingrese el número y haga clic en OK botón. Luego, las filas parciales especificadas se eliminan inmediatamente.
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!
