Excel - Podziel dane na kilka wierszy

Kwestia

Chciałbym podzielić wiersz danych na kilka wierszy tych samych danych w MS Excel. Na przykład mam przedmiot o standardowej wielkości opakowania 100 sztuk w pudełku. Mój klient składa zamówienie na 1000 sztuk. Chciałbym, aby ten element zamówienia był powtórzony 10 razy w arkuszu, przy czym każdy wiersz powinien zawierać 100 sztuk jako ilość skrzynek.

Rozwiązanie

Najpierw wybierz cały wiersz, który chcesz powtórzyć.

Uruchom następujący kod:

 Sub RepeatRow () Przyciemnij iRow jako liczbę całkowitą Dim x Jako liczbę całkowitą Dim y Jako liczbę całkowitą iRow = ActiveCell.Row x = InputBox („Liczba wyświetleń wybranego wiersza:”) y = 1 Do wierszy (iRow). .Wstaw Shift: = xlDown y = y + 1 Loop Until y = x Application.CutCopyMode = False End Sub 

• Uruchomienie kodu pozwoli Ci wprowadzić liczbę powtórzeń wiersza.
• W twoim przypadku wybierz wiersz zawierający 100 sztuk, uruchom kod, wprowadź 10, a zobaczysz, że twój jeden rząd zmienił się w 10 wierszy.

Podziękowania dla Trowy za tę wskazówkę.