Jak wstawić wiersz po co 5 rzędzie przez VBA?

Anonim

W tym artykule dowiemy się, jak wstawiać wiersz po każdych 5NS wiersz przez VBA w programie Microsoft Excel.

Weźmy przykład i zrozum:

Mamy dane w zakresie A1:F31, w którym kolumna A zawiera nazwę, kolumna B zawiera adres ulicy, kolumna C miasto, kolumna D zawiera region, kolumna E zawiera nazwę kraju, a kolumna F zawiera numer telefonu.

Chcemy wstawiać wiersz po co piątym wierszu w danych, wykonaj poniższe kroki i kod:

  • Otwórz stronę VBE, aby nacisnąć klawisz Alt + F11
  • Włóż moduł, aby napisać kod
  • Napisz poniższy kod:
Sub InsertIT() x = 2 'Początkowy wiersz Wykonaj zakres("A" & x, "F" & x).Wstaw x = x + 5 Pętla, gdy x < 50 End Sub 

Wyjaśnienie kodu:

Najpierw zdefiniowaliśmy numer wiersza, z którego chcemy wstawić wiersz. Następnie zdefiniowaliśmy zakres do wstawienia danych. A następnie zdefiniowaliśmy liczbę, aby wstawić wiersz po liczbie wierszy. A potem do którego wiersza zostaną wstawione wiersze.

Aby uruchomić kod, naciśnij klawisz F5 na klawiaturze.

  • Wiersze zostaną wstawione do 50NS wiersz w danych

W ten sposób możemy wstawić wiersz po określonym numerze, który możemy zdefiniować w makrze.

Jeśli podobały Ci się nasze blogi, podziel się nimi ze znajomymi na Facebooku. A także możesz śledzić nas na Twitterze i Facebooku.

Chcielibyśmy usłyszeć od Ciebie, daj nam znać, jak możemy ulepszyć, uzupełnić lub unowocześnić naszą pracę i uczynić ją lepszą dla Ciebie. Napisz do nas na stronie e-mail