Aplikacje MS Office są bardzo zaprojektowaneinteligentnie i nie mówię tego tylko dlatego, że sprawiają, że moja praca jest nieskończenie łatwiejsza. Mówię to, ponieważ to prawda. Kilka dni temu napisaliśmy post na temat wstawiania filmów z YouTube'a w pakiecie Office 2013 i zauważyliśmy, że opcja nie była dostępna w MS Excel tylko dlatego, że nie była tam potrzebna. O tym rodzaju inteligencji mówię; wiedząc, które funkcje są potrzebne w konkretnym typie aplikacji. Daje pewność, że nic nieistotnego nie wejdzie do ostatecznej oferty. Powiedziałem, że zdziwiłem się, gdy Excel pozwala wstawić więcej wierszy do arkusza, nie pozwala wybrać liczby wierszy, które chcesz dodać. Istnieją inne sposoby obejścia tego problemu, 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 powtarzalny, ale jeśli chcesz poświęcić pięć minut, to małe Makro może zająć się twoją pracą.
Ponieważ wymaga to Makra, będziesz musiałzapisz plik jako plik Excel z obsługą makr. Aby to zrobić, kliknij menu rozwijane „Zapisz jako typ” w oknie Zapisz jako i wybierz „Skoroszyt programu Excel Marco z włączoną obsługą (* xlsm).
Następnie nadszedł czas, aby napisać makro. Przejdź do zakładki Widok i kliknij Makra, aby utworzyć nową. Nazwij go, jak chcesz i kliknij „Utwórz”. Następujące okno otworzy się automatycznie.
Istotne są tutaj „Sub” i „End Sub”linie. Wiersz podrzędny będzie zawierał nazwę twojego makra, podczas gdy podrzędny koniec oznacza koniec komend w tym makrze. Ponieważ właśnie go utworzyłeś, między wierszami nie powinno być nic jak na powyższym zrzucie ekranu. Wklej następujące między tymi dwiema liniami.
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 samego początku. Jest oznaczony w kodzie jako A1: A5. Aby edytować go zgodnie z własnymi potrzebami, musisz edytować ten zakres. Pierwsza wartość służy jako odniesienie do miejsca wstawienia wierszy. 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ę wierszy.
Numery wierszy są zdefiniowane przez zakres komórek A1: A5. Ten zakres wstawi 5 wierszy. Aby znaleźć prawidłowy zakres 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 od niego. To znaczy. 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 wstawić wiersze enmass, ale jest to tylko niewielka edycja i działa naprawdę dobrze, więc warto poświęcić czas.
Makro za pośrednictwem Microsoft Support
Komentarze