¿Cómo repetir filas un número específico de veces en función de otra columna en Excel?
¿Alguna vez ha intentado repetir una fila en función de otro valor de columna como se muestra a continuación? En este artículo, presentaré el método para resolver este trabajo en Excel.
Repita filas basadas en otro valor de columna con VBA
Repita filas basadas en otro valor de columna de Kutools para Excel
Repita filas con un tiempo fijo por Kutools para Excel
Repita filas basadas en otro valor de columna con VBA
Aquí tengo un código que puede repetir rápidamente las filas en función de los valores de la última columna.
1. Prensa Alt + F11 claves para habilitar Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic en recuadro > Módulo, luego copie el siguiente código y péguelo en el nuevo Módulo guión.
VBA: repite filas según el valor de otra columna
Sub CopyRow()
'UpdatebyExtendoffice20181011
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 number value", "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. Prensa F5 , aparece un cuadro de diálogo, seleccione la lista de números en la que se repetirán las filas.
4. Haga clic en Aceptar, las filas se han repetido en función del valor de la columna seleccionada.
Repita filas basadas en otro valor de columna de Kutools para Excel
Si no es bueno usando VBA, puede intentar Kutools for Excel, Filas / columnas duplicadas según el valor de la celda característica, que solo necesita dos pasos.
| Kutools for Excel, con más de 300 funciones prácticas, facilita su trabajo. |
1. Hacer clic en Kutools > recuadro > Filas / columnas duplicadas según el valor de la celda.
2. En el cuadro de diálogo emergente, elija Copiar e insertar filas opción en el Tipo de Propiedad sección, luego elija el rango que desea repetir para Insertar sonóe cuadro de texto, y elija la columna que decide los tiempos de repetición al Tiempos de repetición caja de texto. Hacer clic Ok.
Entonces las filas serán repetidas por la columna seleccionada.
Repita filas con un tiempo fijo por Kutools para Excel
Si desea repetir filas con un tiempo fijo sin insertar filas una por una, puede intentar usar el Insertar filas y columnas en blanco y Llenar celdas en blanco utilidades de Kutools for Excel para manejar rápidamente este trabajo.
Después de instalar Kutools para Excel, haga lo siguiente:（¡Descarga gratis Kutools para Excel ahora!)
1. Seleccione el rango de datos que desea repetir filas, haga clic en Kutools > recuadro > Insertar filas y columnas en blanco. Entonces en el Insertar filas y columnas en blanco diálogo, comprobar Filas en blanco opción, luego escriba 1 dentro Intervalo of cuadro de texto y escriba el número en el que desea repetir las filas filas caja de texto.
2. Hacer clic en Ok, las filas en blanco se han insertado debajo de cada fila.
3. Mantenga el rango seleccionado, haga clic en Kutools > recuadro > Llenar celdas en blanco. En la Llenar celdas en blanco diálogo, comprobar Basado en Valores y Plumón .
4. Hacer clic en Ok. Ahora las celdas en blanco se han llenado con el valor anterior.
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!
