Excel - Ein Makro zum x-maligen Kopieren von Zeilen

Makros können in Excel Office-Software zum x- maligen Kopieren von Zeilen verwendet werden . Wiederholte Aufgaben wie das manuelle Kopieren von Daten aus Zeilen sind nicht möglich, wenn die Anzahl der Datensätze in einem Excel-Arbeitsblatt zu hoch ist. Selbst für kleinere Arbeitsblätter ist es ratsam, Makros für Aufgaben zu verwenden, z. B. das x-fache Kopieren von Zeilen in einem Arbeitsblatt. Makros führen die Aufgabe automatisch mit minimalem menschlichem Eingriff aus, wodurch die Wahrscheinlichkeit von Fehlern verringert wird. Vorab geschriebene Makros können von verschiedenen Online-Ressourcen heruntergeladen und geändert werden, um die gewünschten Aufgaben auszuführen. Programmierkenntnisse können erforderlich sein.

Problem

Ich möchte die erste Zeile in meiner Tabelle nehmen, sie "X" -mal kopieren und dann die nächste Zeile bis zum Ende der Zeilen "X" -mal kopieren.

Probe

 ColA ColB ColC TextA TextA1 TextA2 TextB TextB1 TextB2 TextC TextC1 TextC2 Ergebnisse (zum Beispiel dreimal) ColA ColB ColC TextA TextA1 TextA2 TextA TextA1 TextA2 TextA TextA1 TextA2 TextB TextB1 TextB2 TextB2 TextB1 TextC TextB2 TextB2 TextB2 TextC

Lösung

Dies ist das Makro:

 Untertest () Bemaßung als Bereich, c als Bereich Bemaßung1 als Bereich, c1 als Bereich Bemaßung als Bereich, j als Ganzzahl, k als Ganzzahl-Arbeitsblätter ("sheet2"). Zellen. Mit Arbeitsblättern löschen ("sheet1") festlegen rng = Bereich (.Range ("A2"), .Range ("A2"). Ende (xlDown)) j = WorksheetFunction.CountA (.Rows ("1: 1")) 'msgbox j Für jedes c In rng Set rng1 = Range (c.Offset (0, 1), .Cells (c.Row, Columns.Count) .End (xlToLeft)) 'msgbox rng1.Address For Each c1 In rng1 Set dest = Worksheets ("sheet2"). Cells (Rows.Count, "a"). End (xlUp) .Offset (1, 0) 'msgbox dest.Address If c1 = "" Then 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

Eine andere Methode -pivot table of database.-

ref: wlakenbach blog

//spreadsheetpage.com / ...