Excel - Rozdělit data do několika řádků

Problém

Rád bych rozdělil řadu dat do několika řádků stejných dat v MS Excel. Například mám položku se standardní velikostí balení 100ks na krabici. Zákazník zadá objednávku na 1 000 ks. Chtěl bych, aby se tato objednávka opakovala desetkrát v pracovním listu, přičemž každá řádka má 100 ks jako množství krabice.

Řešení

Nejprve vyberte celý řádek, který chcete opakovat.

Spusťte následující kód:

 Sub RepeatRow () Dim iRow jako celé číslo Dim x jako celé číslo Dim y jako celé číslo iRow = ActiveCell.Row x = InputBox ("Počet, kolikrát chcete zobrazit vybraný řádek:") y = 1 Do řádků (iRow). .Insert Shift: = xlDown y = y + 1 Loop Do y = x Application.CutCopyMode = False End Sub 

• Spuštění kódu vám umožní zadat, kolikrát chcete řádek opakovat.
• Ve vašem případě vyberte řádek se 100ks v něm, spusťte kód, vstup 10 a uvidíte, že váš jeden řádek se změnil na 10 řádků.

Díky Trowa za tento tip.