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

 Jak wstawić / dodać spację po każdych x znakach w komórkach?

Jeśli masz wiele ciągów tekstowych na liście arkusza roboczego, teraz chcesz wstawić spację po każdych 3 lub x znakach w komórkach, jak pokazano na zrzucie ekranu. Jak możesz szybko i łatwo rozwiązać ten problem w programie Excel?

doc dodaj spację po x znakach 1

Wstaw / Dodaj spację po każdych x znakach w komórkach z kodem VBA

Wstaw / Dodaj spację po każdych x znakach w komórkach za pomocą Kutools for Excel


strzałka niebieski prawy bąbelek Wstaw / Dodaj spację po każdych x znakach w komórkach z kodem VBA

Stosując następujący kod VBA, możesz szybko wstawić spację po każdych n znakach dla wielu komórek naraz, wykonaj następujące czynności:

1. 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: wstaw spację po każdych x znakach:

Sub addspace()
'updateby Extendoffice
    Dim i As Long
    Dim xCell As Range
    Dim xRg As Range
    Dim xTxt As String
    Dim xStr As String
    Dim xUpdate As Boolean
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xStr = xCell.Text
        xTxt = ""
        For i = 1 To Len(xStr) Step 4
            If xTxt = "" Then
                xTxt = Mid(xStr, i, 4)
            Else
                xTxt = Trim(xTxt) & " " & Mid(xStr, i, 4)
            End If
        Next
        xCell = xTxt
    Next
    Application.ScreenUpdating = xUpdate
End Sub

3. Następnie naciśnij F5 klucz do uruchomienia tego kodu, aw polu zachęty wybierz komórki, do których chcesz wstawić spację, zobacz zrzut ekranu:

doc dodaj spację po x znakach 2

4. A następnie kliknij OK przycisk, a spacje zostały wstawione do zawartości komórki po każdych czterech znakach, patrz zrzuty ekranu:

doc dodaj spację po x znakach 3 2 doc dodaj spację po x znakach 4

Uwagi: W powyższym kodzie możesz zmienić numer 4 do innej liczby, aby wstawić spację po. Możesz także zmienić przestrzeń separatora na inny separator w tej regule xTxt = Trim (xTxt) & „” & Mid (xStr, i, 4) powyższego kodu.


strzałka niebieski prawy bąbelek Wstaw / Dodaj spację po każdych x znakach w komórkach za pomocą Kutools for Excel

Kutools dla programu Excel'S Dodaj tekst Funkcja może również pomóc w szybkim i łatwym rozwiązaniu tego problemu.

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 :( Bezpłatne pobieranie Kutools dla programu Excel teraz! )

1. Wybierz ciągi tekstowe, w których chcesz wstawić spację.

2. Następnie kliknij Kutools > Tekst > Dodaj tekstzobacz zrzut ekranu:

3, w Dodaj tekst W oknie dialogowym naciśnij raz spację do Tekst i wybierz Sprecyzować opcja pod Pozycja, a następnie wpisz pozycje, które chcesz wstawić spację, zobacz zrzut ekranu:

doc dodaj spację po x znakach 6

4. A następnie kliknij Ok or Zastosuj przycisk, otrzymasz wynik, że spacje zostały wstawione po każdych czterech znakach, jak potrzebujesz.

Wskazówki: Liczba pozycji w polu tekstowym Określanie powinna być oddzielona przecinkami.

Bezpłatne pobieranie Kutools dla programu Excel teraz!


Podobne artykuły:

Jak dodać / wstawić określony znak co x znaków do komórek?


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 (0)
Brak ocen. Oceń jako pierwszy!
Nie ma tu jeszcze żadnych komentarzy

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