Note: The other languages of the website are Google-translated. Back to English
Zaloguj Się  \/ 
x
or
x
Rejestruję się  \/ 
x

or

Jak zamienić wiele spacji na jedną spację z komórek w programie Excel?

doc zamień wiele spacji 1

Przypuśćmy, że mam listę ciągów tekstowych, która zawiera wiele spacji, teraz muszę zastąpić te spacje pojedynczą spacją między ciągami tekstowymi, aby oddzielić słowa, jak pokazano na zrzucie ekranu. Jak mogę zamienić wiele spacji na jedną bez usuwania ich pojedynczo?

Zastąp wiele spacji pojedynczą spacją za pomocą formuły

Zastąp wiele spacji pojedynczą spacją, używając kodu VBA

Zastąp wiele spacji pojedynczą spacją za pomocą Kutools for Excel


Zastąp wiele spacji pojedynczą spacją za pomocą formuły

W programie Excel normalna funkcja Znajdź i zamień może nie działać dobrze, aby rozwiązać ten problem, więc możemy zastosować prostą formułę, aby sobie z tym poradzić. Zrób tak:

1. Wprowadź tę formułę: = TRIM (SUBSTITUTE (A2; ZNAK (32); „”)) w pustą komórkę oprócz wartości komórki, patrz zrzut ekranu:

doc zamień wiele spacji 2

2. Następnie naciśnij wchodzić , aby uzyskać wynik, i wybierz komórkę B2, a następnie przeciągnij uchwyt wypełniania do komórek zakresu, w których chcesz zastosować tę formułę, a wszystkie dodatkowe spacje zostały usunięte z ciągów tekstowych i tylko jedna spacja zostanie zachowana między tekst. Zobacz zrzut ekranu:

doc zamień wiele spacji 3


Zastąp wiele spacji pojedynczą spacją, używając kodu VBA

Jeśli interesuje Cię kod VBA, mogę utworzyć kod, który zastąpi wiele spacji pojedynczym, wykonaj następujące czynności:

1. Proszę, przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. Następnie kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.

Kod VBA: Zastąp wiele spacji pojedynczą spacją

Sub replace_multiplespaces()
'Updateby Extendoffice
Dim x As Range
Dim Workx As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set Workx = Application.Selection
Set Workx = Application.InputBox("Range", xTitleId, Workx.Address, Type:=8)
    For Each x In Workx
        x = WorksheetFunction.Trim(x)
    Next x
End Sub

3. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a pojawi się okno zachęty przypominające o wyborze zakresu danych, z którego chcesz usunąć dodatkowe spacje, patrz zrzut ekranu:

doc zamień wiele spacji 4

4. A następnie kliknij OK przycisk, wszystkie nadmiarowe spacje zostały zastąpione pojedynczą spacją w tekście.


Zastąp wiele spacji pojedynczą spacją za pomocą Kutools for Excel

Jeśli masz inne rodzaje spacji, które należy usunąć, takie jak usunięcie spacji wiodących, spacji końcowych, wszystkich spacji tekstu, polecę potężne narzędzie -Kutools dla programu Excel, z jego Usuń spacje narzędzie, możesz usunąć dowolne spacje, takie jak spacje wiodące, spacje końcowe, wszystkie spacje ...

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 zakres danych, z którego chcesz usunąć dodatkowe spacje.

2, Kliknij Kutools > Tekst > Usuń spacjezobacz zrzut ekranu:

3, w Usuń spacje okno dialogowe, wybierz Wszystkie nadmiarowe przestrzenie z Typ przestrzeni i możesz wyświetlić wynik z pliku Podgląd okienko, patrz zrzut ekranu:

doc zamień wiele spacji 6

4. A następnie kliknij Ok or Użyj kodu przycisk, wszystkie dodatkowe spacje zostały usunięte z komórki i pozostawiają tylko jedną spację między tekstem.

Kliknij, aby dowiedzieć się więcej o tej funkcji Usuń spacje.

Kliknij, aby pobrać Kutools dla programu Excel i bezpłatną wersję próbną teraz!


Demo: Zastąp wiele spacji pojedynczą spacją za pomocą Kutools for Excel

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 i bezpłatną wersję próbną teraz!

Najlepsze narzędzia biurowe

Kutools for Excel rozwiązuje większość twoich problemów i zwiększa wydajność 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-2019 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowy bezpłatny okres próbny. 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 zmniejsza setki kliknięć myszą każdego dnia!
officetab dół
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Alan Elston · 4 years ago
    Hi
    Thanks for a useful Blog. It helped me get the answer I was looking for.
    _................

    I was just wondering if this is acceptable and correct for removing Replace Multiple Spaces With Single Space From Cells:

    Taking your example,

    Formal to be dragged down:
    =Trim(A2)
    ( I do not understand why you have SUBSTITUTE(A2,CHAR(32)," ") instead of just A2 ??? )
    It appear to give the correct results.

    _.....
    Here is one way I would do it using VBA
    Sub TrimRange()
    Let Range("B2:B9").Value = Evaluate("=If({1},TRIM(" & Range("A2:A9").Address & "))")
    End Sub

    Alan
    • To post as a guest, your comment is unpublished.
      Alan Elston · 4 years ago
      I should have checked the Microsoft Doco: https://support.office.com/en-us/article/TRIM-function-410388fa-c5df-49c6-b16c-9e5630b479f9
      ".....The TRIM function was designed to trim the 7-bit ASCII space character (value 32) from text. In the Unicode character set, there is an additional space character ....." etc - hence the need to make sure the TRIM is working on Char 32 for any spaces...