Przejdź do głównej zawartości

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 Wchodzę , 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 Aplikuj 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

🤖 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 (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
I should have checked the Microsoft Doco: https://support.office.com/en-us/article/TRIM-function-410388fa-c5df-49c6-b16c-9e5630b479f9<br />".....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...
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations