Jak szybko scalić sąsiednie wiersze z tymi samymi danymi w programie Excel?
Przypuśćmy, że masz arkusz z tymi samymi danymi w sąsiednich wierszach, a teraz chcesz scalić te same komórki w jedną komórkę, aby dane wyglądały schludnie i pięknie. Jak szybko i wygodnie scalić sąsiednie wiersze z tymi samymi danymi? Dzisiaj przedstawię Wam szybki sposób rozwiązania tego problemu.
Scal sąsiednie wiersze tych samych danych z kodem VBA
Oczywiście możesz łączyć te same dane z Scal i wyśrodkuj polecenie, ale jeśli trzeba scalić setki komórek, ta metoda będzie czasochłonna. Tak więc poniższy kod VBA może pomóc w łatwym scaleniu tych samych danych.
1. Przytrzymaj ALT + F11 klucze i otwiera plik Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujące makro w Modułokno.
Sub MergeSameCell()
'Updateby Extendoffice
Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xRows = WorkRng.Rows.Count
For Each Rng In WorkRng.Columns
For i = 1 To xRows - 1
For j = i + 1 To xRows
If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then
Exit For
End If
Next
WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge
i = j - 1
Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3. Następnie naciśnij F5 Aby uruchomić ten kod, na ekranie zostanie wyświetlone okno dialogowe umożliwiające wybranie zakresu do pracy. Zobacz zrzut ekranu:
4. Następnie kliknij OK, te same dane w kolumnie A zostaną scalone. Zobacz zrzut ekranu:
Scal sąsiednie wiersze tych samych danych za pomocą Kutools for Excel
Z Scal te same komórki użyteczność Kutools dla programu Excel, możesz szybko scalić te same wartości w wielu kolumnach jednym kliknięciem.
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 Excelmożesz wykonać następujące czynności:
1. Wybierz kolumny, które chcesz scalić sąsiednie wiersze z tymi samymi danymi.
2. Kliknij Kutools > Połącz i podziel > Scal te same komórkizobacz zrzut ekranu:
3. A następnie te same dane w wybranych kolumnach zostały scalone w jednej komórce. Zobacz zrzut ekranu:
Kliknij, aby pobrać Kutools dla programu Excel i bezpłatną wersję próbną teraz!
Aby dowiedzieć się więcej na ten temat, odwiedź to Scal te same komórki cecha.
Demo: Scal te same komórki w jedną komórkę lub rozłącz, aby wypełnić zduplikowane wartości:
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!