Note: The other languages of the website are Google-translated. Back to English

¿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

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.

Nota:Para aplicar esto Insertar filas y columnas en blanco , en primer lugar, debe descargar el Kutools for Excely, a continuación, aplique la función 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.

Nota:Para aplicar esto Filas / columnas duplicadas según el valor de la celda, en primer lugar, debe descargar el Kutools for Excely, a continuación, aplique la función 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 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 Aplicar 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.
  • 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

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

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!
officetab parte inferior
Comentarios (39)
5 clasificado de 5 · 2 calificaciones
Este comentario fue minimizado por el moderador en el sitio
Hola, estoy usando su código (a continuación), ¿puede decirme cómo puedo llenar esas filas con texto personalizado? Usé su código para ingresar tres filas, funcionó perfectamente, pero ahora necesito ingresar el texto Fila1 = Fecha Fila2.= Ubicación Fila3 = Número de teléfono Gracias de antemano... "Sub InsertRowsAtIntervals() 'Updateby20150707 Dim Rng As Range Dim xInterval como dim entero xRows como dim entero xRowsCount como dim entero xNum1 como dim entero xNum2 como dim entero WorkRng como rango dim xWs como hoja de trabajo xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Rango", xTitleId , WorkRng.Address, Type:=8) xRowsCount = WorkRng.Rows.Count xInterval = Application.InputBox("Ingrese el intervalo de fila. ", xTitleId, 1, Type:=1) xRows = Application.InputBox("Cuántas filas insertar en cada intervalo? ", 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)).Seleccione Application.Selection.EntireRow.Insert xNum1= xNum1 + xNum2 Siguiente Fin Sub"
Este comentario fue minimizado por el moderador en el sitio
¡¡¡¡¡Muchas gracias!!!!! esto es increíble
Este comentario fue minimizado por el moderador en el sitio
¡¡Muchas gracias!!
Este comentario fue minimizado por el moderador en el sitio
Hi


Utilizo el código vba de intervalo que funciona ... Pero cuando uso más de 100000 filas, no funciona ... sugiera amablemente qué debo cambiar, si corresponde.


Sub Insertar filas en intervalos ()
'Actualizadopor20150707
Dim Rng como rango
Dim xInterval como entero
Dim xRows como entero
Dim xRowsCount como entero
Dim xNum1 como entero
Dim xNum2 como entero
Dim WorkRng como rango
Dim xWs como hoja de trabajo
xTitleId = "KutoolsforExcel"
Establecer WorkRng = Aplicación.Selección
Establecer WorkRng = Application.InputBox("Rango", xTitleId, WorkRng.Address, Tipo:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Ingrese el intervalo de la fila. ", xTitleId, 1, Tipo:=1)
xRows = Application.InputBox("¿Cuántas filas insertar en cada intervalo?", xTitleId, 1, Tipo:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xFilas + xIntervalo
Establecer xWs = WorkRng.Parent
Para i = 1 a Int(xRowsCount / xInterval)
xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Seleccione
Application.Selection.EntireRow.Insert
xNum1 = xNum1 + xNum2
Siguiente
End Sub
Este comentario fue minimizado por el moderador en el sitio
Fantástico: me ahorraste una gran cantidad de ingreso de datos sin sentido, muchas gracias
Este comentario fue minimizado por el moderador en el sitio
hola, ¿cómo puedo obtener el código para insertar un número específico de columnas en los datos a intervalos fijos?
Este comentario fue minimizado por el moderador en el sitio
Hola P.K.
Para insertar columnas en blanco en los datos existentes a intervalos específicos, ¡el siguiente código de VBA puede ayudarlo! Por favor pruebalo.

Sub InsertarColumnasEnIntervalos()
Dim Rng como rango
Dim xInterval como entero
Dim xCs como entero
Dim xCCount como entero
Dim xNum1 como entero
Dim xNum2 como entero
Dim WorkRng como rango
Dim xWs como hoja de trabajo
xTitleId = "KutoolsforExcel"
Establecer WorkRng = Aplicación.Selección
Establecer WorkRng = Application.InputBox("Rango", xTitleId, WorkRng.Address, Tipo:=8)
xCCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Ingrese el intervalo de la columna. ", xTitleId, 1, Tipo:=1)
xCs = Application.InputBox("¿Cuántas columnas insertar en cada intervalo?", xTitleId, 1, Tipo:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xCs + xIntervalo
Establecer xWs = WorkRng.Parent
Para I = 1 Para Int(xCCount / xInterval)
xWs.Range(xWs.Cells(WorkRng.Row, xNum1 + xCs - 1), xWs.Cells(WorkRng.Row, xNum1)).Seleccione
Aplicación.Selección.TodaColumna.Insertar
xNum1 = xNum1 + xNum2
Siguiente
End Sub
Este comentario fue minimizado por el moderador en el sitio
Cómo agregar filas en datos de Excel según el número mencionado en la última celda, digamos en datos de Excel si la última celda muestra el número como 4, ¿cuál es la forma de agregar 4 filas automáticamente? en otra fila el número es 72, etc.
Este comentario fue minimizado por el moderador en el sitio
Hola SPGupta,
Para insertar filas en blanco según la lista de números específicos, aplique el siguiente código VBA.
Por favor, inténtalo, ¡espero que te pueda ayudar!

Subinserción()
'Actualizar porExtendoffice
Dim xRg como rango
Dim xAddress como cadena
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Establezca xRg = Application.InputBox ("Seleccione la columna de número específico para usar (columna única):", "KuTools para Excel", xAddress, , , , , 8)
Si xRg no es nada, salga de Sub
Application.ScreenUpdating = False
xÚltimaFila = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Columna
xCuenta = xRg.Cuenta
Establecer xRg = xRg(1)
Para I = xÚltima fila Hasta xFstRow Paso -1
xNum = Celdas(I, xCol)
Si IsNumeric(xNum) y xNum > 0 Entonces
Filas (I + 1). Cambiar tamaño (xNum). Insertar
xCuenta = xCuenta + xNúmero
Si terminar
Siguiente
xRg.Resize(xCount, 1).Seleccionar
Application.ScreenUpdating = True
End Sub
Este comentario fue minimizado por el moderador en el sitio
hola me podrias ayudar por favor ¿Cómo puedo cambiar este código para anunciar una fila más menos que el número en la celda? Por ejemplo, si el número en la celda es 4, el programa agrega 3 filas. Si el número en la celda es 1, las filas no se agregan
Este comentario fue minimizado por el moderador en el sitio
Hola Nina,
Para resolver su tarea, utilice el siguiente código:

Subinserción()
'Actualizar porExtendoffice
Dim xRg como rango
Dim xAddress como cadena
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Establezca xRg = Application.InputBox ("Seleccione la columna de número específico para usar (columna única):", "KuTools para Excel", xAddress, , , , , 8)
Si xRg no es nada, salga de Sub
Application.ScreenUpdating = False
xÚltimaFila = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Columna
xCuenta = xRg.Cuenta
Establecer xRg = xRg(1)
Para I = xÚltima fila Hasta xFstRow Paso -1
xNum = Celdas(I, xCol)
xNúmero = xNúmero - 1
Si IsNumeric(xNum) y xNum > 0 Entonces
Filas (I + 1). Cambiar tamaño (xNum). Insertar
xCuenta = xCuenta + xNúmero
Si terminar
Siguiente
xRg.Resize(xCount, 1).Seleccionar
Application.ScreenUpdating = True
End Sub


Por favor, inténtalo, ¡espero que te pueda ayudar!
Este comentario fue minimizado por el moderador en el sitio
Funciona perfecto, ¡muchas gracias!
Este comentario fue minimizado por el moderador en el sitio
Esto es genial. Solo me pregunto... y mi inglés no es perfecto, así que espero que me entiendas :) .....
¿Es posible llenar filas en blanco agregadas con valores de la fila donde estaba ese número paramétrico?
Este comentario fue minimizado por el moderador en el sitio
Hola, Vladimir, ¿Quiere insertar filas en blanco según una lista de números en la hoja de trabajo? Si es así, por favor aplique el siguiente código:
Subinserción()
'Actualizar porExtendoffice
Dim xRg como rango
Dim xAddress como cadena
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Establezca xRg = Application.InputBox ("Seleccione la lista de números en los que desea insertar filas según:", "KuTools para Excel", xAddress, , , , , 8)
Si xRg no es nada, salga de Sub
Application.ScreenUpdating = False
xÚltimaFila = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Columna
xCuenta = xRg.Cuenta
Establecer xRg = xRg(1)
Para I = xÚltima fila Hasta xFstRow Paso -1
xNum = Celdas(I, xCol)
Si IsNumeric(xNum) y xNum > 0 Entonces
Filas (I + 1). Cambiar tamaño (xNum). Insertar
xCuenta = xCuenta + xNúmero
Si terminar
Siguiente
xRg.Resize(xCount, 1).Seleccionar
Application.ScreenUpdating = True
End SubPruébelo, si tiene otras preguntas, comente aquí.
Este comentario fue minimizado por el moderador en el sitio
Este código es perfecto para insertar filas....Sub Insert()
'Actualizar porExtendoffice
Dim xRg como rango
Dim xAddress como cadena
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Establezca xRg = Application.InputBox ("Seleccione la columna de número específico para usar (columna única):", "KuTools para Excel", xAddress, , , , , 8)
Si xRg no es nada, salga de Sub
Application.ScreenUpdating = False
xÚltimaFila = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Columna
xCuenta = xRg.Cuenta
Establecer xRg = xRg(1)
Para I = xÚltima fila Hasta xFstRow Paso -1
xNum = Celdas(I, xCol)
xNúmero = xNúmero - 1
Si IsNumeric(xNum) y xNum > 0 Entonces
Filas (I + 1). Cambiar tamaño (xNum). Insertar
xCuenta = xCuenta + xNúmero
Si terminar
Siguiente
xRg.Resize(xCount, 1).Seleccionar
Application.ScreenUpdating = True
End Sub

Pero, ¿es posible ... copiar datos en esas celdas en blanco de la fila donde estaba ese número paramétrico? ¿Puedo publicar aquí una imagen? Tal vez sea más fácil si te muestro lo que necesito :)
Este comentario fue minimizado por el moderador en el sitio
Hola, Vladimir, puede ser que el siguiente código de VBA pueda ayudarlo, inténtelo. Fila de copia secundaria ()
'Actualizar porExtendoffice
Dim xRg como rango
Dim xCRg como rango
Dim xFNum como entero
Dim xRN como entero
On Error Resume Next
Seleccionar rango:
xTxt = ActiveWindow.RangeSelection.Address
Establezca xRg = Application.InputBox ("Seleccione la lista de números", "Kutools para Excel", xTxt, , , , 8)
Si xRg no es nada, salga de Sub

Si xRg.Columns.Count > 1 Entonces
MsgBox "¡Seleccione una sola columna!"
Ir a Seleccionar rango
Si terminar
Application.ScreenUpdating = False
Para xFNum = xRg. Cuenta hasta 1 Paso -1
Establecer xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Valor)
Con filas (xCRg.Row)
.Dupdo
.Redimensionar(xRN).Insertar
End With
Siguiente
Application.ScreenUpdating = True
End Sub

Este comentario fue minimizado por el moderador en el sitio
Estamos tan cerca :) Todo lo que necesito ahora es una fila menos que en el último código VBA, que es el valor del número paramétrico. Por ejemplo: si el número es 8, necesitamos insertar y copiar 7 filas. Como hiciste para Nina solo con esta COPIA
Entonces, si el número es 8, deberíamos tener un total de 8 filas insertadas y copiadas, y con el código VBA anterior tenemos 9.
TNX
Este comentario fue minimizado por el moderador en el sitio
Hola, en este caso, el siguiente código puede ayudarte, por favor intenta: Copia secundaria de datos ()
'Actualizar por Extendoffice
Dim xRow tan largo
Dim VInSertNum como variante
Fila x = 1
Application.ScreenUpdating = False
Hacer Mientras (Celdas(xRow, "A") <> "")
VInSertNum = Celdas(filax, "B")
Si ((VInSertNum > 1) y es numérico(VInSertNum)) Entonces
Rango (Celdas (fila x, "A"), Celdas (fila x, "B")). Copiar
Rango (Celdas (xRow + 1, "A"), Celdas (xRow + VInSertNum - 1, "B")). Seleccione
Selection.Insert Shift: = xlDown
xFila = xFila + VInSertNum - 1
Si terminar
xFila = xFila + 1
Red ISTE Loop
Application.ScreenUpdating = False
End SubNote: En el código anterior, la letra A indica la columna de inicio de su rango de datos y la letra B es la letra de la columna en la que desea duplicar las filas. Cámbielos según sus necesidades.
Este comentario fue minimizado por el moderador en el sitio
¿Tiene un módulo que resta el número copiado por uno?
Este comentario fue minimizado por el moderador en el sitio
No. Tengo este, pero lo necesito para deducir 1?
Fila de copia secundaria ()
'Actualizar porExtendoffice
Dim xRg como rango
Dim xCRg como rango
Dim xFNum como entero
Dim xRN como entero
On Error Resume Next
Seleccionar rango:
xTxt = ActiveWindow.RangeSelection.Address
Establezca xRg = Application.InputBox ("Seleccione la lista de números", "Kutools para Excel", xTxt, , , , 8)
Si xRg no es nada, salga de Sub

Si xRg.Columns.Count > 1 Entonces
MsgBox "¡Seleccione una sola columna!"
Ir a Seleccionar rango
Si terminar
Application.ScreenUpdating = False
Para xFNum = xRg. Cuenta hasta 1 Paso -1
Establecer xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Valor)
Con filas (xCRg.Row)
.Dupdo
.Redimensionar(xRN).Insertar
End With
Siguiente
Application.ScreenUpdating = True
End Sub
Este comentario fue minimizado por el moderador en el sitio
Lo que estoy tratando de hacer es crear e imprimir etiquetas en Word desde una hoja de cálculo con múltiples cantidades.
Este comentario fue minimizado por el moderador en el sitio
¿Has tenido la oportunidad de mirar esto?
Este comentario fue minimizado por el moderador en el sitio
oro te bendiga
Este comentario fue minimizado por el moderador en el sitio
¿Busca código para generar una lista de Excel duplicando por un número en una celda y restando 1 por el original?
Este comentario fue minimizado por el moderador en el sitio
¡Gracias autor! ¡Te mereces el mejor elogio por esto! Pero, ¿podría ayudarme con el código para poner un valor constante en todas las filas en blanco que creé con su código anterior? Para ser más claro, necesito insertar un valor constante en todas las filas en blanco (esto ya se resolvió con su código anterior), luego necesito insertar un valor constante en todas las filas en blanco (este es mi problema). Gracias espero su amable respuesta.
Este comentario fue minimizado por el moderador en el sitio
Hola, ¿Quiere decir llenar filas en blanco con un valor específico? Si es así, puede que el siguiente artículo te ayude:https://www.extendoffice.com/documents/excel/772-excel-fill-blank-cells-with-0-or-specific-value.html
Por favor pruebalo.
Este comentario fue minimizado por el moderador en el sitio
¿Puedo obtener el código VBA para eliminar filas en función de valores duplicados en una columna seleccionada manteniendo todos los valores únicos?
Este comentario fue minimizado por el moderador en el sitio
Hola, Roy, si desea eliminar filas en función de valores duplicados, normalmente puede usar el Eliminar duplicados función en Excel para eliminar las filas. Por supuesto, si necesita un código VBA, utilice el siguiente código: (Primero, debe seleccionar el rango de datos que desea eliminar y luego ejecutar este código, las filas basadas en el los valores duplicados en la primera columna de su selección se eliminarán de inmediato). Sub Eliminar_filas_duplicadas()
Dim Rng como rango
Establecer Rng = Selección
Rng.RemoveDuplicates Columnas:=Array(1), Encabezado:=xlSí
End SubPor favor intente, ¡espero que pueda ayudarlo!
Este comentario fue minimizado por el moderador en el sitio
¡¡Esto es genial!! Muchas gracias
Este comentario fue minimizado por el moderador en el sitio
Muito obrigado, salvou meu trabalho, eu não tinha ideia de como fazer. Muito obrigado mesmo!
Este comentario fue minimizado por el moderador en el sitio
Hola,
De nada. Me alegro de que ayude Alguna pregunta, por favor sientase libre de contactarnos. Qué tengas un lindo día.
Atentamente,
Mandy
Este comentario fue minimizado por el moderador en el sitio
¿Puedes decirme cómo insertar una columna de esta manera? ¿Cuál es el código?
Este comentario fue minimizado por el moderador en el sitio
Hola amigo,
Puedes usar este código VBA:

Sub InsertColumnsAtIntervals()

'Updateby Extendoffice

Dim Rng As Range

Dim xInterval As Integer

Dim xColumns As Integer

Dim xColumnsCount 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)

xColumnsCount = WorkRng.Columns.Count

xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)

xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)

xNum1 = WorkRng.Column + xInterval

xNum2 = xColumns + xInterval

Set xWs = WorkRng.Parent

For i = 1 To Int(xColumnsCount / xInterval)

    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select

    Application.Selection.EntireColumn.Insert

    xNum1 = xNum1 + xNum2

Next

End Sub


Atentamente,
Mandy
Este comentario fue minimizado por el moderador en el sitio
Вот выручили так выручили!
Сидел, ломал голову как добавить строки по заданному количеству.
Ваш макрос мне очень помог.
5 clasificado de 5
Este comentario fue minimizado por el moderador en el sitio
Nombre Correo electrónico Teléfono Dirección
0 Nombre Correo electrónico Teléfono Dirección
dirección línea 2 Nombre Teléfono 0
Nombre Correo electrónico Teléfono Dirección
0 Nombre Correo electrónico Teléfono Dirección
línea de dirección 2 0


¿Cómo podría editar esto para comenzar una nueva fila en cada valor vacío o valor 0 sin que los números de teléfono con 0 comiencen una nueva fila?
Este comentario fue minimizado por el moderador en el sitio
Hola Jarrod

Lo siento, no puedo entender tu problema con claridad.
¿Podrías explicar tu problema más detalladamente? O puede insertar una captura de pantalla o un archivo aquí.
¡Gracias!
Este comentario fue minimizado por el moderador en el sitio
hola, hay algun codigo que me permita copiar los datos, pero que en la primera columna que son fechas puedan ser consecutivas.

EJEMPLO

en vez de que quede asi

01/10/2022 19.258.369-4 Juan Ramírez
01/10/2022 19.258.369-4 Juan Ramírez
01/10/2022 19.258.369-4 Juan Ramírez

que asi

01/10/2022 19.258.369-4 Juan Ramírez
02/10/2022 19.258.369-4 Juan Ramírez
03/10/2022 19.258.369-4 Juan Ramírez

gracias
Este comentario fue minimizado por el moderador en el sitio
hola, hay algun codigo que me permita copiar los datos, pero que en la primera columna que son fechas pueden ser consecutivas.

EJEMPLO

en vez de que quede asi

10/01/2022 19.258.369-4 Juan Ramírez
10/01/2022 19.258.369-4 Juan Ramírez
10/01/2022 19.258.369-4 Juan Ramírez

que asi

10/01/2022 19.258.369-4 Juan Ramírez
11/01/2022 19.258.369-4 Juan Ramírez
12/01/2022 19.258.369-4 Juan Ramírez

gracias
Este comentario fue minimizado por el moderador en el sitio
Maravilloso guión vba!
Tenía más de 5000 filas a las que necesito agregar nuevas filas en el medio. Todas las demás guías me dijeron que hiciera una columna de "ayuda". Me llevaría buena parte de mi vida agregar 1,2 copiar y pegar una y otra vez solo para agregar nuevas filas.
Entonces, ¡Gracias por esto!
5 clasificado de 5
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Siganos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL