Przejdź do głównej zawartości

Jak szybko usunąć podziały wierszy w programie Excel?

Czasami, gdy kopiujesz niektóre dane ze strony internetowej lub oddzielasz wartości za pomocą Alt + Enter klucze, otrzymasz kilka podziałów linii lub powrotu karetki, jeśli chcesz szybko usunąć wiele podziałów linii w programie Excel, jak pokazano na poniższych zrzutach ekranu, możesz to zrobić w następujący sposób:

doc-remove-line-break1 -2 doc-remove-line-break2

Usuń wiele podziałów linii za pomocą funkcji Znajdź i zamień

Usuń wiele podziałów linii za pomocą kodu VBA

Usuń wiele podziałów linii za pomocą Kutools for Excel


strzałka niebieski prawy bąbelek Usuń wiele podziałów linii za pomocą funkcji Znajdź i zamień

Możesz szybko usunąć wiele podziałów wierszy za pomocą funkcji Znajdź i zamień w programie Excel, wykonaj to w następujący sposób:

1. Wybierz zakres, z którego chcesz usunąć wiele podziałów wierszy.

2. Kliknij Strona główna > Znaleźć zamiennik > zastąpić lub kliknij Ctrl + F skróty i a Znajdowanie i zamienianie pojawi się okno dialogowe.

3. Następnie w Znajdź co box, proszę przytrzymać ALT a następnie kliknij cyfry 010 z klawiatury numerycznej. Zostawić Zastąp pole puste lub wprowadź spację. Zobacz zrzut ekranu:

doc-remove-line-break3

4. A następnie kliknij Zamień wszystko przycisk, wszystkie podziały wierszy zostały usunięte. Zobacz zrzut ekranu:

doc-remove-line-break2


strzałka niebieski prawy bąbelek Usuń wiele podziałów linii za pomocą kodu VBA

Poniższy kod VBA może również pomóc w usunięciu wszystkich podziałów wierszy w arkuszu. Zrób tak:

1. Kliknij Deweloper > Visual Basic lub naciśnij Alt + F11 klawisze, aby otworzyć Okno Microsoft Visual Basic for Applications, następnie kliknij wstawka > Modułi wprowadź następujący kod:

Kod VBA: usuń wiele podziałów wierszy w arkuszu

Sub RemoveCarriage()
'Update 20131216
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)
For Each Rng In WorkRng
    Rng.Value = Replace(Rng.Value, Chr(10), "")
Next
End Sub

2. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a pojawi się okno zachęty, aby wybrać zakres, z którego chcesz usunąć podziały wierszy, zobacz zrzut ekranu:

doc-remove-line-break4

3. Następnie kliknij OK a wszystkie podziały wierszy w zaznaczeniu zostały usunięte.


strzałka niebieski prawy bąbelek Usuń wiele podziałów linii za pomocą Kutools for Excel

Może czasami zapomnisz, jak korzystać z funkcji Znajdź i zamień lub nie znasz kodu, aby usunąć wiele podziałów linii, w tej sytuacji Kutools dla programu Excel może pomóc w rozwiązaniu tego problemu.

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 teraz

Po zainstalowaniu Kutools dla programu Excel wykonaj następujące czynności:

1. Wybierz zakres, z którego chcesz usunąć powroty karetki.

2. Kliknij Kutools > Narzędzia tekstowe > Usuń znakizobacz zrzut ekranu:

doc-remove-line-break5

3, w Usuń znaki okno dialogowe, zaznacz Niedrukowane opcja i możesz zobaczyć wynik z Podgląd okienko, zobacz zrzut ekranu:

doc-remove-line-break6

4. A następnie kliknij OK or Aplikuj. Wszystkie podziały wierszy zostaną usunięte z wybranych komórek.

Kliknij, aby dowiedzieć się więcej o tej funkcji usuwania znaków.


Podobne artykuły:

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

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...

Opis


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!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Obrigado pela dica! Funcionou muito bem aqui!
This comment was minimized by the moderator on the site
Thank You so much yaar. I found it very useful for my day to day office works.
This comment was minimized by the moderator on the site
Thank you very much. it is really superb
This comment was minimized by the moderator on the site
Thank you werry helpfull for my and my MYSQL CSV import :-)
This comment was minimized by the moderator on the site
THANK YOU!!! I have been battling blank lines in cell for too long. You solved the problem...thank you so much
This comment was minimized by the moderator on the site
I am very inexperienced when it comes to macros/VBA code. How would I tweak the code you provided above and which I have pasted below to search for 2 consecutive carriage returns and replace with just one carriage return? Sub RemoveCarriage() 'Update 20131216 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) For Each Rng In WorkRng Rng.Value = Replace(Rng.Value, Chr(10), "") Next End Sub Also, how would I locate and delete single carriage returns that have no text after them in a cell. Thank you for any assistance.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations