Note: The other languages of the website are Google-translated. Back to English

Jak usunąć wszystkie puste linie lub tylko pierwszą linię w komórce w programie Excel?

Możesz otrzymać skoroszyt z wieloma liniami mieszającymi się ze spacjami w komórkach. Jak usunąć te puste linie w komórkach? A co powiesz na usunięcie tylko pierwszej linii? Ten artykuł pomoże Ci uporać się z tym krok po kroku.

Usuń wszystkie puste linie w komórkach z kodem VBA
Usuń tylko pierwszą linię w komórkach z kodem VBA


Usuń wszystkie puste linie w komórkach z kodem VBA

Jak pokazano na poniższym zrzucie ekranu, aby usunąć wszystkie puste linie w komórkach, możesz uruchomić następujący kod VBA, aby to zrobić.

1. wciśnij inny + F11 klawisze na klawiaturze, a następnie otwiera się Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy kod VBA do pliku Moduł okno.

Kod VBA: Usuń wszystkie puste linie w komórkach

Sub DoubleReturn()
Dim xRng As Range, xCell As Range
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
  For I = 1 To Len(xCell) - Len(WorksheetFunction.Substitute(xCell, Chr(10), ""))
   xCell = Replace(xCell, Chr(10) + Chr(10), Chr(10))
  Next
Next
End Sub

3. wciśnij F5 klucz do uruchomienia kodu. Następnie wybierz komórki z pustymi liniami, które usuniesz w Kutools dla programu Excel Okno dialogowe. I na koniec kliknij OK przycisk.

Następnie możesz zobaczyć, że wszystkie puste linie są usuwane z określonych komórek, jak pokazano na poniższym zrzucie ekranu. Teksty nadal znajdują się w różnych wierszach.


Usuń tylko pierwszą linię w komórkach z kodem VBA

Jak pokazano na poniższym zrzucie ekranu, aby usunąć pierwszą linię w komórce A2 i A3, może pomóc poniższy kod VBA.

1. wciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy kod VBA do pliku Moduł okno.

Kod VBA: Usuń tylko pierwszą linię w komórkach

Option Explicit
Sub RemoveFirstLine(ByRef Target As Range)
    Dim xCell As Range
    For Each xCell In Target.Cells
        xCell.Value = Right(xCell.Value, Len(xCell.Value) - InStr(1, xCell.Value, vbLf))
    Next
End Sub

Sub StartRemove()
Dim xRng As Range
   On Error Resume Next
   Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
   If xRng Is Nothing Then Exit Sub
   On Error Resume Next
   RemoveFirstLine xRng
End Sub

3. wciśnij F5 klucz do uruchomienia kodu. W wyskakującym okienku Kutools dla programu Excel W oknie dialogowym wybierz komórki, które chcesz usunąć tylko pierwszy wiersz, a następnie kliknij OK przycisk.

Następnie możesz zobaczyć, że wszystkie pierwsze linie są usuwane z określonych komórek, jak pokazano poniżej.


Powiązany artykuł:


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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!
officetab dół
Sortuj komentarze według
Komentarze (8)
Znamionowy 5 z 5 · 1 oceny
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć,
to działa świetnie. Jak mogę dostosować kod, aby usunąć tylko wiersze, nie zaczynające się od znaków numerycznych?

Dzięki i najlepiej,
Jacek
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Jack,
Przepraszamy, nie mogę ci jeszcze w tym pomóc. Dziękuję za Twój komentarz.
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy wiesz, jak to dostosować, aby usunąć ostatnią linię zamiast pierwszej? TIA
Ten komentarz został zminimalizowany przez moderatora na stronie
Jeg forstår desværre ikke et kvæk af ovenstående. Findes der ikke en nem og ligetil måde at fjerne tomme linier i Exell? Niesamowity kod i tajemnica!

Z poważaniem,
Lene
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć,
Jeśli nie chcesz zachować oryginalnych tekstów w różnych wierszach w komórkach, możesz zastosować następujące metody, aby to zrobić.
1. Użyj funkcji Znajdź i zamień:
Naciśnij klawisze Ctrl + H. W otwartym oknie dialogowym Znajdź i zamień kliknij, aby aktywować pole Znajdź. Przytrzymaj klawisz Alt podczas wpisywania 010 na klawiaturze numerycznej. Pozostaw puste pole Zamień na, kliknij przycisk Zamień wszystko. Ale wszystkie teksty są skoncentrowane na tym samym wierszu.
2. Użyj następującej formuły w kolumnie pomocniczej:
=SUBSTITUTE(A1, CONCATENATE(CHAR(13),CHAR(10),CHAR(13),CHAR(10)),CONCATENATE(CHAR(13),CHAR(10)))
gdzie A1 to komórka, którą chcesz przetworzyć.
Ten komentarz został zminimalizowany przez moderatora na stronie
To jest mój pierwszy VBA, doszedłem dopiero do twojego pierwszego kroku i jak dotąd rozwiązał mój problem. Wydrukowałem twoje instrukcje do wykorzystania w przyszłości. Jak na razie jestem zakręcony. Wspaniałe instrukcje też, dziękuję za twoje umiejętności jakościowe i ich wyszczególnienie.
Znamionowy 5 z 5
Ten komentarz został zminimalizowany przez moderatora na stronie
To działa, usunąłem wszystkie moje linie, ale jedynym problemem jest to, że uruchomienie pojedynczej komórki zajmuje dużo czasu i mam ze sobą duże dane, aby to zrobić i myślę, że zajmie to zbyt dużo czasu
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Tanveer Khan,
Kod działa z normalną prędkością po mojej stronie. Czy możesz mi powiedzieć, której wersji Excela używasz?
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL