Excel: przykładowe makro do wstawiania wielu wierszy
Program Microsoft Excel obsługuje wiele funkcji, które umożliwiają użytkownikom tworzenie arkuszy całkowicie dostosowanych do ich potrzeb. Wśród tych funkcji jest możliwość tworzenia makra, które umożliwia użytkownikom wykonywanie obliczeń i manipulowanie danymi bez konieczności powtarzania ruchów.
Wstaw wiele wierszy do arkusza programu Excel
Zadanie Excel
Poniższa wskazówka umożliwi wstawienie wielu wierszy między istniejącymi wierszami w arkuszu kalkulacyjnym Excel. To makro umożliwi wstawienie określonej ilości pustych wierszy do arkusza kalkulacyjnego i może zostać zmodyfikowane zgodnie z potrzebami.Przed makro:
Tytuł1Tytuł2
Tytuł3
Tytuł4
Po makro:
Tytuł1
Tytuł2
Tytuł3
Tytuł4
Przykładowe makro
Oto kod makra potrzebny do wykonania powyższego zadania:Sub test ()Dim j As Long, r As Range
j = InputBox („wpisz liczbę wierszy, które mają zostać usunięte”)
Ustaw r = zakres („A2”)
Robić
Zakres (r.Offset (1, 0), r.Offset (j, 0)). EntireRow.Insert
Set r = Cells (r.Row + j + 1, 1)
MsgBox r.Address
Jeśli r.Offset (1, 0) = "" Następnie wyjdź
Pętla
Napis końcowy