Přejít k hlavnímu obsahu

 Jak vložit / přidat mezeru za každých x znaků v buňkách?

Autor: Xiaoyang Naposledy změněno: 2020-07-24

Pokud máte v seznamu listu více textových řetězců, nyní chcete vložit prostor za každé 3 nebo x znaků do buněk, jak je znázorněno na následujícím obrázku. Jak byste mohli tento problém rychle a snadno vyřešit v aplikaci Excel?

doc přidat mezeru za x znaků 1

Vložte / přidejte mezeru za každých x znaků v buňkách pomocí kódu VBA

Vložte / přidejte mezeru za každých x znaků v buňkách pomocí Kutools pro Excel


šipka modrá pravá bublina Vložte / přidejte mezeru za každých x znaků v buňkách pomocí kódu VBA

Použitím následujícího kódu VBA můžete rychle vložit mezeru za každých n znaků pro více buněk najednou, postupujte takto:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. Pak klikněte na tlačítko Vložit > Modula vložte následující kód do Modul okno.

Kód VBA: Vložte mezeru za každých x znaků:

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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a v poli výzvy vyberte buňky, do kterých chcete vložit místo, viz screenshot:

doc přidat mezeru za x znaků 2

4. A pak klikněte na tlačítko OK tlačítko a mezery byly vloženy do obsahu buňky po každých čtyřech znacích, viz screenshoty:

doc přidat mezeru za x znaků 3 2 doc přidat mezeru za x znaků 4

Poznámka: Ve výše uvedeném kódu můžete změnit číslo 4 na jiné číslo a vložit mezeru za. V tomto pravidle můžete také změnit prostor oddělovače na jiné oddělovače xTxt = Oříznout (xTxt) & "" & Střední (xStr, i, 4) výše uvedeného kódu.


šipka modrá pravá bublina Vložte / přidejte mezeru za každých x znaků v buňkách pomocí Kutools pro Excel

Kutools pro ExcelJe doplnit text Tato funkce vám také pomůže rychle a snadno vyřešit tento problém.

Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů

Po instalaci Kutools pro Excel, postupujte následovně :( Stažení zdarma Kutools pro Excel nyní! )

1. Vyberte textové řetězce, do kterých chcete vložit mezeru.

2. Pak klikněte na tlačítko Kutools > Text > doplnit text, viz screenshot:

3. V doplnit text dialogové okno, stiskněte mezerník jednou do Text pole a vyberte Specifikovat možnost podle Pozice, potom zadejte pozice, do kterých chcete vložit mezeru, viz screenshot:

doc přidat mezeru za x znaků 6

4. A pak klikněte na tlačítko Ok or Přihláška tlačítko, získáte výsledek, že mezery byly vloženy za každé čtyři znaky, jak potřebujete.

Tipy: Počet pozic v textovém poli Specify by měl být oddělen čárkami.

Stažení zdarma Kutools pro Excel nyní!


Související článek:

Jak přidat / vložit určitý znak každých x znaků do buněk?

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Popis


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations