Note: The other languages of the website are Google-translated. Back to English
English English
  • Dokumenty
  • vynikat
  • Jak vložit / přidat mezeru za každých x znaků v buňkách?

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

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 aplikovat 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ší kancelářské nástroje produktivity

Kutools pro Excel vyřeší většinu vašich problémů a zvýší vaši produktivitu
80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než
    300
    výkonné funkce
    . Podporuje Office/Excel
    2007-2019 a 365
    . Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce
    30
    -denní zkušební verze zdarma. 60denní záruka vrácení peněz.
karta kte 201905

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 tím
    50%
    a každý den vám sníží stovky kliknutí myší!
officetab dno
Komentáře (0)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL