Excel - Una macro para copiar filas X número de veces

Las macros se pueden usar en el software Excel Office para copiar filas por x varias veces . Las tareas repetitivas, como copiar datos de filas manualmente, no son factibles si el número de registros en una hoja de cálculo de Excel es demasiado alto. Incluso para hojas de cálculo más pequeñas, es recomendable utilizar macros para tareas como copiar filas para X veces en una hoja de cálculo. Las macros realizan la tarea automáticamente con una intervención humana mínima, lo que reduce las posibilidades de errores. Las macros escritas previamente pueden descargarse de varios recursos en línea y modificarse para realizar las tareas deseadas. Puede requerirse algún conocimiento de la programación.

Problema

Me gustaría tomar la primera fila en mi hoja de cálculo, copiarla "X" la cantidad de veces, luego tomar la siguiente fila, copiarla la misma "X" cantidad de veces, hasta el final de las filas.

Muestra

 ColA ColB ColC TextoA TextoA1 TextoA2 TextoB TextoB1 TextoB2 TextoC TextoC1 TextoC2 Resultados (por ejemplo, 3 veces)

Solución

Esta es la macro:

 Prueba secundaria () Dim rng As Range, c As Range Dim rng1 As Range, c1 As Range Dim dest As Range, j As Integer, k As Integer Worksheets ("sheet2"). Cells.Clear With Work Shesheets ("sheet1") Set rng = Rango (.Range ("A2"), .Range ("A2"). End (xlDown)) j = WorksheetFunction.CountA (.Rows ("1: 1")) 'msgbox j Para cada c cn set rng1 = Rango (c.Offset (0, 1), .Cells (c.Row, Columns.Count) .End (xlToLeft)) 'msgbox rng1.Address para cada c1 En rng1 Set dest = Worksheets ("sheet2"). Cells (Rows.Count, "a"). End (xlUp) .Offset (1, 0) 'msgbox dest.Address Si c1 = "" Entonces GoTo line1 dest.Offset (0, 0) = c dest.Offset (0, 1) = .Cells (1, c1.Column) 'dest.Offset (0, 2) = c1 line1: Next c1 Next c End With End Sub

Otro método -pivot tabla de base de datos.-

ref: wlakenbach blog

//spreadsheetpage.com / ...