¿Cómo insertar un número específico de filas a intervalos fijos en Excel?
En la hoja de cálculo de Excel, puede insertar una fila en blanco entre las filas existentes mediante la función Insertar. Pero, si tiene una gran variedad de datos y necesita insertar dos filas en blanco después de cada tercera fila, ¿cómo podría terminar este trabajo de manera rápida y conveniente?
- Inserte un número específico de filas en blanco en el rango de datos a intervalos fijos con código VBA
- Inserte un número específico de filas en blanco en el rango de datos según los valores de celda con código VBA
- Inserte un número específico de filas en blanco en el rango de datos a intervalos fijos con una función práctica
- Copie e inserte filas varias veces en función de números específicos con código VBA
- Copie e inserte filas varias veces en función de números específicos con una característica sorprendente
Inserte un número específico de filas en blanco en el rango de datos a intervalos fijos con código VBA
El siguiente código VBA puede ayudarlo a insertar un número específico de filas después de cada enésima fila dentro de los datos existentes. Haz lo siguiente:
1. Mantenga pulsado el ALT + F11 claves en Excel, y abre el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.
Código de VBA: inserte un número específico de filas en los datos a intervalos fijos
Sub InsertRowsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
Application.Selection.EntireRow.Insert
xNum1 = xNum1 + xNum2
Next
End Sub
3. Después de pegar este código, presione F5 para ejecutar este código, aparecerá un cuadro emergente para recordarle que seleccione el rango de datos que desea insertar filas en blanco, vea la captura de pantalla:
4. Hacer clic OK , aparecerá otro cuadro de aviso, ingrese el número de intervalos de fila, vea la captura de pantalla:
5. Sigue haciendo clic OK , en el siguiente cuadro emergente, ingrese el número de filas en blanco que desea insertar, vea la captura de pantalla:
6. Luego haga clic OK, y las filas en blanco se han insertado en los datos existentes a intervalos regulares, vea las capturas de pantalla:
Inserte un número específico de filas en blanco en el rango de datos según los valores de celda con código VBA
A veces, es posible que deba insertar las filas en blanco en función de una lista de valores de celda, en este caso, el siguiente código de VBA puede hacerle un favor, haga lo siguiente:
1. Mantenga pulsado el ALT + F11 claves en Excel, y abre el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.
Código de VBA: inserte un número específico de filas en blanco según una lista de números:
Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
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("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub
3. Después de pegar este código, presione F5 para ejecutar este código, en el cuadro de diálogo emergente, seleccione la lista de números en los que desea insertar filas en blanco, vea la captura de pantalla:
4. Luego, haz clic OK, y obtendrá los resultados que necesita como se muestran en las siguientes capturas de pantalla:
Inserte un número específico de filas en blanco en el rango de datos a intervalos fijos con una función práctica
Si no está familiarizado con el código VBA anterior, Kutools for Excel también puede ayudarte, es Insertar filas y columnas en blanco La función puede insertar un número específico de filas o columnas en los datos existentes a intervalos fijos de forma rápida y sencilla.
Después de instalar Kutools for Excel, haga lo siguiente:
1. Seleccione el rango de datos en el que desea insertar filas en blanco a intervalos.
2. Hacer clic Kutools > recuadro > Insertar filas y columnas en blanco, ver captura de pantalla:
3. En la Insertar filas y columnas en blanco cuadro de diálogo, elija Filas en blanco opción de la Tipo de inserción, y luego especifique el número de intervalos y filas en blanco que desea usar como se muestra en la siguiente captura de pantalla:
4. Luego haga clic OK y las filas en blanco se han insertado en el rango seleccionado en un intervalo específico como se muestra en la siguiente captura de pantalla:
¡Descargue y pruebe Kutools para Excel ahora!
Copie e inserte filas varias veces en función de números específicos con código VBA
Supongamos que tiene un rango de tada, y ahora, desea copiar cada fila y pegarlas varias veces en la siguiente fila según una lista de números como se muestra a continuación. ¿Cómo podría resolver esta tarea en la hoja de cálculo de Excel?
Para hacer frente a este trabajo, presentaré un código útil para usted, siga los siguientes pasos:
1. Mantenga pulsado el ALT + F11 claves en Excel, y abre el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.
Código de VBA: copie e inserte filas varias veces en función de números específicos:
Sub CopyRows()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the list of numbers to copy the rows based on: ", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub
3. Después de pegar este código, presione F5 para ejecutar este código, en el cuadro de diálogo emergente, seleccione la lista de números que desea copiar e inserte las filas de datos en función, vea la captura de pantalla:
4. Luego, haz clic OK , y el número específico de filas se ha copiado y pegado debajo de cada fila original, ver capturas de pantalla:
Copie e inserte filas varias veces en función de números específicos con una característica sorprendente
Si tiene Kutools for Excel, Con su Filas / columnas duplicadas según el valor de la celda función, puede insertar las filas o columnas según la lista de números de forma rápida y sencilla.
Después de instalar Kutools for Excel, haga lo siguiente:
1. Hacer clic Kutools > recuadro > Filas / columnas duplicadas según el valor de la celda, ver captura de pantalla:
2. En la Copiar e insertar filas y columnas cuadro de diálogo, seleccione Copiar e insertar filas opción en el Tipo de Propiedad sección, luego seleccione el rango de datos que desea duplicar, y luego especifique la lista de valores en los que desea copiar filas, vea la captura de pantalla:
4. Luego, haz clic Ok or ¡Aplicá! botón, obtendrá el siguiente resultado cuando lo necesite:
¡Descargue y pruebe Kutools para Excel ahora!
Artículos más relativos:
- Copie e inserte la fila varias veces o duplique la fila X veces
- En su trabajo diario, ¿alguna vez ha intentado copiar una fila o cada fila y luego insertar varias veces debajo de la fila de datos actual en una hoja de trabajo? Por ejemplo, tengo un rango de celdas, ahora quiero copiar cada fila y pegarlas 3 veces en la siguiente fila como se muestra en la siguiente captura de pantalla. ¿Cómo podrías lidiar con este trabajo en Excel?
- Insertar filas en blanco cuando el valor cambia en Excel
- Supongamos que tiene un rango de datos y ahora desea insertar filas en blanco entre los datos cuando el valor cambia, de modo que pueda separar los mismos valores secuenciales en una columna como se muestra a continuación. En este artículo te hablaré de algunos trucos para que resuelvas este problema.
- Insertar una fila en blanco después de un texto específico en Excel
- Si desea insertar filas en blanco después de un texto específico como se muestra en la siguiente captura de pantalla, ¿cómo manejarlo rápida y fácilmente sin insertarlas manualmente una por una?
- Copie filas de varias hojas de trabajo según los criterios en una hoja nueva
- Supongamos que tiene un libro de trabajo con tres hojas de trabajo que tienen el mismo formato que se muestra a continuación. Ahora, desea copiar todas las filas de estas hojas de trabajo cuya columna C contiene el texto "Completado" en una nueva hoja de trabajo. ¿Cómo podría resolver este problema rápida y fácilmente sin copiarlos y pegarlos uno por uno manualmente?
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!