Excel - Rozdelenie dát do niekoľkých riadkov

Problém

Rad údajov by som chcel rozdeliť do viacerých riadkov rovnakých dát v MS Excel. Napríklad, mám položku so štandardnou veľkosťou balenia 100ks na krabicu. Objednávateľ zadá objednávku na 1 000 ks. Chcel by som, aby táto položka bola opakovaná 10-krát v pracovnom hárku, pričom každý riadok má 100ks ako množstvo krabice.

Riešenie

Najprv vyberte celý riadok, ktorý chcete opakovať.

Spustite nasledujúci kód:

 Sub RepeatRow () Dim iRow As Integer Dim x Ako celé číslo Dim y Ako Integer iRow = ActiveCell.Row x = InputBox ("Počet, koľkokrát chcete zobraziť vybraný riadok:") y = 1 Do riadkov (iRow). .Insert Shift: = xlDown y = y + 1 Slučka Do y = x Application.CutCopyMode = False End Sub 

• Spustenie kódu vám umožní zadať počet opakovaní.
• Vo vašom prípade vyberte riadok s 100pcs v ňom, spustite kód, vstup 10 a uvidíte, že jeden riadok sa zmenil na 10 riadkov.

Vďaka Trowa za tento tip.