Aplikacje MS Office są zaprojektowane bardzo inteligentnie i nie mówię tego tylko dlatego, że znacznie ułatwiają mi pracę. Mówię to, ponieważ to prawda. Kilka dni temu napisaliśmy post na temat wstawiania filmów z YouTube’a w Office 2013 i zauważyliśmy, że opcja była nieobecna w MS Excel po prostu dlatego, że nie była tam potrzebna. To jest rodzaj inteligencji, o którym mówię; wiedząc, jakie funkcje są potrzebne w określonym typie aplikacji. Dzięki temu nic nieistotnego nie trafi do ostatecznej oferty. To powiedziawszy, byłem zaskoczony, gdy stwierdziłem, że tam, gdzie Excel pozwala wstawić więcej wierszy do arkusza roboczego, nie pozwala wybrać liczby wierszy, które chcesz dodać. Masz inne obejścia, aby to osiągnąć, takie jak wybranie liczby wierszy, które chcesz dodać z istniejących, a następnie użycie funkcji wstawiania. Lub możesz powtórzyć krok wstawiania wiersza dla dowolnej liczby wierszy. Jest to powtarzalne, ale jeśli chcesz poświęcić pięć minut, to małe makro może zająć się pracą za Ciebie.
Ponieważ wymaga to makra, musisz zapisać plik jako plik Excel z włączoną obsługą makr. Aby to zrobić, kliknij menu rozwijane „Zapisz jako typ” w oknie Zapisz jako i wybierz „Skoroszyt z włączoną obsługą programu Excel Marco (* xlsm)”.
Następnie nadszedł czas, aby napisać makro. Przejdź do zakładki Widok i kliknij Makra, aby utworzyć nowe. Nadaj mu dowolną nazwę i kliknij „Utwórz”. Następujące okno otworzy się automatycznie.
Istotne są tutaj wiersze „Sub” i „End Sub”. Wiersz podrzędny będzie zawierał nazwę makra, podczas gdy koniec podrzędny oznacza koniec poleceń w tym makrze. Ponieważ właśnie go utworzyłeś, między tymi liniami nie powinno być nic, jak na powyższym zrzucie ekranu. Wklej następujące elementy między tymi dwoma wierszami.
Dim CurrentSheet As Object
' Loop through all selected sheets.
For Each CurrentSheet In ActiveWindow.SelectedSheets
' Insert 5 rows at top of each sheet.
CurrentSheet.Range("a1:a5").EntireRow.Insert
Next CurrentSheet
Ten kod wstawi pięć wierszy od samej góry. Jest oznaczony w kodzie jako A1: A5. Aby edytować go zgodnie ze swoimi potrzebami, musisz edytować ten zakres. Pierwsza wartość służy jako odniesienie do miejsca, w którym zostaną wstawione wiersze. Jeśli zmienisz go na A100, wiersze zostaną wstawione po pierwszych dziewięćdziesięciu dziewięciu wierszach. Po ustawieniu punktu odniesienia należy wprowadzić liczbę rzędów.
Numery wierszy są definiowane przez zakres komórek A1: A5. Ten zakres spowoduje wstawienie 5 wierszy. Aby znaleźć prawidłowy zakres dla liczby wierszy, na przykład chcesz wstawić 25 wierszy z A99, dodasz 25 do punktu odniesienia, tak aby był to A99 i minus jedna komórka. Tj. A100 + 99 – 1 = A198. Dodajesz wiersze, a nie kolumny, więc zmieni się tylko liczba, a nie litera kolumny. Makro musi być aktualizowane za każdym razem, gdy trzeba wstawiać wiersze, ale to tylko mała edycja i działa naprawdę dobrze, więc jest warte poświęconego czasu.
Makro za pośrednictwem pomocy technicznej firmy Microsoft