Jak numerować wiersze po automatycznym wstawieniu lub usunięciu wierszy w programie Excel?
Przypuśćmy, że mam ponumerowane wiersze od 1 do 20 w kolumnie, teraz, kiedy wstawiam lub usuwam wiersz z zakresu danych, chcę, aby lista numerów mogła być automatycznie przenumerowana. Czy to zadanie można wykonać w programie Excel?
Numerowanie wierszy po automatycznym wstawieniu lub usunięciu wierszy za pomocą formuł
Liczba wierszy po automatycznym wstawieniu lub usunięciu wierszy za pomocą kodu VBA
Numerowanie wierszy po automatycznym wstawieniu lub usunięciu wierszy za pomocą formuł
W rzeczywistości funkcja Wiersz w programie Excel może pomóc w automatycznej zmianie numeracji wierszy po wstawieniu lub usunięciu wierszy, wykonaj następujące czynności:
1. Wprowadź tę formułę: = WIERSZ () - 1 do komórki A2, a następnie przeciągnij uchwyt wypełniania w dół do komórek, które chcesz ponumerować wiersze, patrz zrzut ekranu:
Note: Jeśli lista numerów zaczyna się od pierwszej komórki, możesz zmienić formułę na = WIERSZ (), możesz dodawać lub odejmować od wzoru, jeśli liczby nie zgadzają się z rzeczywistym wierszem, na przykład = WIERSZ () - 3, = WIERSZ () + 10...
2. Następnie utwórz tabelę dla tego zakresu danych, wybierz zakres danych i kliknij wstawka > Stół, a następnie w Utwórz tabelę okno dialogowe, zaznacz Moja tabela ma nagłówki jeśli w Twoim zakresie są nagłówki, zobacz zrzut ekranu:
3. A następnie kliknij OK, tabela została utworzona od razu, a teraz, kiedy wstawisz lub usuniesz wiersze w zakresie tabeli, numery wierszy są zawsze aktualizowane automatycznie, patrz zrzut ekranu:
Liczba wierszy po automatycznym wstawieniu lub usunięciu wierszy za pomocą kodu VBA
Oprócz powyższej metody formuły możesz również zakończyć ją kodem VBA.
1. Przejdź do arkusza roboczego, w którym chcesz automatycznie wstawiać numery sekwencji.
2. Kliknij prawym przyciskiem myszy kartę arkusza i wybierz Wyświetl kod z menu kontekstowego w wyskakującym pliku Microsoft Visual Basic for Applications należy skopiować i wkleić następujący kod do pustego okna modułu.
Kod VBA: Automatyczna liczba wierszy po wstawieniu lub usunięciu wierszy:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160612
Dim I As Integer
I = 1
Application.EnableEvents = False
For I = 1 To 20
Range("A" & I).Value = I
Next
Range("A21").Value = ""
Application.EnableEvents = True
End Sub
3. Następnie zapisz i zamknij ten kod, po wprowadzeniu pierwszej cyfry 1 do komórki A1 numery sekwencji od 1 do 20 zostaną wypełnione automatycznie. Jeśli wstawisz lub usuniesz wiersze z zakresu, numer serii zostanie od razu automatycznie przenumerowany.
Note: W powyższym kodzie litera A wskazuje literę kolumny, którą chcesz wypełnić numer kolejny, 1 Do 20 to wiersze, które chcesz ponumerować, a A21 to odwołanie do komórki obok ostatniej numerowanej komórki. Możesz je zmieniać według potrzeb.
Wstaw punktory lub listę numeracji do kolumny komórek
Kutools dla programu Excel's Wstaw Bullet i jansert Numeracja funkcje mogą pomóc w szybkim wstawianiu listy wypunktowanej i numerowanej do kolumny komórek. Kliknij, aby pobrać Kutools dla programu Excel!
Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do programu Excel, które można wypróbować bez ograniczeń w ciągu 30 dni. Pobierz i bezpłatną wersję próbną teraz!
Demo: numerowanie wierszy po automatycznym wstawieniu lub usunięciu wierszy w arkuszu programu Excel
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
