Przejdź do głównej zawartości

 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

Note: 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 Aplikuj przycisk, otrzymasz wynik, że spacje zostały wstawione po każdych czterech znakach, jak potrzebujesz.

Tips: 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

🤖 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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations