Jak wypełnić numery sekwencji, pomijać ukryte wiersze w programie Excel?
Przypuśćmy, że masz zakres danych filtru, który chcesz wypełnić numery sekwencji w przefiltrowanej pustej komórce, jak pokazano na zrzucie ekranu. W takim przypadku przeciągnięcie uchwytu wypełniania ogólnie nie wypełni komórek poprawnie, w tym artykule omówię kilka dobrych sztuczek do rozwiązania tego zadania w programie Excel.
Wypełnij numery sekwencji, pomijaj ukryte wiersze ze wzorem
Wypełnij numery sekwencji, pomijaj ukryte wiersze z kodem VBA
Wypełnij numery sekwencji, pomiń ukryte wiersze za pomocą Kutools for Excel
Wypełnij numery sekwencji, pomijaj ukryte wiersze ze wzorem
Aby wpisać numery sekwencji tylko do widocznych komórek, pomocna może być prosta formuła, wykonaj następujące czynności:
1. Wprowadź tę formułę: = SUMA CZĘŚCIOWA (103; B $ 3: B3 $)(B3 jest widoczną komórką odpowiadającą komórce, od której chcesz rozpocząć wypełnianie numeru sekwencyjnego) do pierwszej komórki, w której chcesz wypełnić numery sekwencji, w tym przypadku A3, a następnie naciśnij Wchodzę klucz, otrzymasz numer 1, patrz zrzut ekranu:
2. Następnie wybierz komórkę A3 i przeciągnij uchwyt wypełniania w dół do komórek, które chcesz wypełnić numery sekwencji, patrz zrzut ekranu:
Wypełnij numery sekwencji, pomijaj ukryte wiersze z kodem VBA
Poniższy kod VBA może również pomóc w wypełnieniu numerów sekwencji tylko w widocznych komórkach, wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: Wypełnij numery sekwencji, pomiń ukryte wiersze:
Sub FillValue()
'updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
Dim xVal As Long
Dim I As Long
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = xRg.SpecialCells(xlVisible)
Debug.Print xRg.Address
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
xVal = xVal + 1
xCell = xVal
Next
End Sub
3. Następnie naciśnij F5 klucz do uruchomienia tego kodu i pojawia się okienko zachęty przypominające o wybraniu zakresu danych, który chcesz wypełnić, patrz zrzut ekranu:
4. A następnie kliknij OK przycisk, numery sekwencji zostały wypełnione tylko w widocznych komórkach.
Wypełnij numery sekwencji, pomiń ukryte wiersze za pomocą Kutools for Excel
Powyższe dwie metody mogą pomóc tylko wypełnić numery sekwencji w widocznych komórkach, jeśli chcesz wypełnić sekwencję jako AA-0001-BB, AA-0002-BB, AA-0003-BB…, powyższe metody nie będą działać. Ale proszę się nie martwić, Kutools dla programu Excel'S Wstaw numer kolejny narzędzie może pomóc w szybkim i łatwym zakończeniu.
Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni. |
Po zainstalowaniu Kutools dla programu Excelwykonaj następujące czynności:
1. Wybierz komórki, w których chcesz wypełnić ciągi sekwencji.
2. Kliknij Kutools > wstawka > Wstaw numer kolejny, W Wstaw numer kolejny okno dialogowe, kliknij Nowości przycisk, zobacz zrzuty ekranu:
3. W rozwiniętym oknie dialogowym określ potrzebne ustawienia w lewej dolnej sekcji, w tym samym czasie możesz wyświetlić podgląd sekwencji w prawym dolnym panelu, patrz zrzut ekranu:
4. Po zakończeniu ustawień kliknij Dodaj przycisk, aby zapisać ten nowy element w powyższym polu listy, zobacz zrzut ekranu:
6. Następnie wybierz utworzony element i kliknij Wypełnij zakres przycisk, ciągi sekwencji zostały wypełnione tylko w widocznych komórkach, patrz zrzut ekranu:
Pobierz i bezpłatną wersję próbną Kutools dla programu Excel teraz!
Demo: Wypełnij numery sekwencji, pomiń ukryte wiersze za pomocą Kutools for 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!