Jak automatycznie numerować scalone komórki w programie Excel?
Jak możemy wypełnić numery seryjne na liście scalonych komórek o różnym rozmiarze w programie Excel? Najpierw musimy przeciągnąć uchwyt autouzupełniania, aby wypełnić scalone komórki, ale w tym przypadku otrzymamy następujący komunikat ostrzegawczy i nie możemy wypełnić scalonych komórek.
Ponieważ uchwyt wypełniania nie obsługuje scalonych komórek, mogę tutaj omówić kilka innych sztuczek, aby rozwiązać ten problem.
Automatyczne numerowanie / wypełnianie scalonych komórek kodem VBA
Automatyczne numerowanie / wypełnianie scalonych komórek kodem VBA
Poniższy kod VBA może pomóc w szybkim numerowaniu wybranych scalonych komórek. Wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.
2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.
Kod VBA: automatycznie scalone numery komórek
Sub NumberCellsAndMergedCells()
'Update 20141028
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xIndex = 1
Set Rng = WorkRng.Range("A1")
Do While Not Intersect(Rng, WorkRng) Is Nothing
Rng.Value = xIndex
xIndex = xIndex + 1
Set Rng = Rng.MergeArea.Offset(1)
Loop
End Sub
3. Następnie naciśnij F5 klucz do uruchomienia tego kodu i pojawi się okienko zachęty umożliwiające wybranie scalonych komórek, które chcesz wypełnić, patrz zrzut ekranu:
4. Po wybraniu scalonych komórek i kliknij OK, teraz wybrane połączone komórki zostały wypełnione kolejnymi numerami, zobacz zrzut ekranu:
Podobne artykuły:
Jak automatycznie numerować lub przenumerować po filtrze w programie Excel?
Jak szybko scalić sąsiednie wiersze z tymi samymi danymi w programie Excel?
Jak rozdzielić komórki i wypełnić zduplikowanymi wartościami w programie 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!