Note: The other languages of the website are Google-translated. Back to English
Přihlásit se  \/ 
x
or
x
Registrace  \/ 
x

or

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

Předpokládejme, že mám seznam textových řetězců, které chci vložit pomlčky nebo jiné oddělovače po každých čtyřech znacích do buněk, abych získal následující výsledek obrazovky. K vložení určitého znaku je potřeba příliš mnoho buněk, existují nějaké rychlé způsoby, jak vložit pomlčky každé čtyři znaky v aplikaci Excel?

Vložte určitý znak každých x znaků do buňky pomocí kódu VBA

Vložte určitý znak každých x znaků do buňky pomocí Kutools pro Excel

doc vložte každý znak x 1


Vložte určitý znak každých x znaků do buňky pomocí kódu VBA

Následující kód VBA můžete použít k vložení konkrétního znaku po každých čtyřech znacích do buněk, postupujte takto:

1. Podržte ALT + F11 klíče v aplikaci Excel a otevře Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Vložte každý znak do buňky každých x znaků

Sub InsertCharacter()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim xRow As Integer
Dim xChar As String
Dim index As Integer
Dim arr As Variant
Dim xValue As String
Dim outValue As String
Dim xNum As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("Number of characters :", xTitleId, Type:=1)
xChar = Application.InputBox("Specify a character :", xTitleId, Type:=2)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xNum = 1
For Each Rng In InputRng
    xValue = Rng.Value
    outValue = ""
    For index = 1 To VBA.Len(xValue)
        If index Mod xRow = 0 And index <> VBA.Len(xValue) Then
            outValue = outValue + VBA.Mid(xValue, index, 1) + xChar
        Else
            outValue = outValue + VBA.Mid(xValue, index, 1)
        End If
    Next
    OutRng.Cells(xNum, 1).Value = outValue
    xNum = xNum + 1
Next
End Sub

3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se výzva, která vám připomene, abyste vybrali rozsah dat, do kterého chcete vložit určitý znak do textových řetězců, viz screenshot:

doc vložte každý znak x 2

4, A klikněte na tlačítko OK, v následujícím řádku s výzvou zadejte číslo, za které chcete každý znak vložit určitý znak, viz screenshot:

doc vložte každý znak x 3

5. Pokračujte kliknutím OK, a do pole následovaného řádku zadejte určitý znak, který chcete přidat do textu, viz screenshot:

doc vložte každý znak x 4

6, klikněte OK Tlačítko a vyberte jednu buňku, do které chcete výsledek odeslat do pole výzvy, viz screenshot:

doc vložte každý znak x 5

7. Konečně klikněte na tlačítko OK, určitý znak byl vložen do každého textového řetězce každé čtyři znaky, viz screenshot:

doc vložte každý znak x 6


Vložte určitý znak každých x znaků do buňky pomocí Kutools pro Excel

Výše uvedený kód může být pro většinu začátečníků aplikace Excel poněkud obtížný, zde mohu představit užitečný nástroj - Kutools pro Excel, S jeho doplnit text funkce, můžete rychle přidat konkrétní text nebo znak před, za nebo na určité pozice hodnoty buňky.

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

Pokud jste nainstalovali Kutools pro Excel, postupujte následovně:

1. Vyberte rozsah dat, do kterého chcete vložit konkrétní znak.

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

3. V doplnit text V dialogovém okně zadejte znak, který chcete vložit do souboru text a poté vyberte Určete z pozice Oddíl, do textového pole, zadejte pozice, za které chcete vložit znak, současně můžete zobrazit náhled výsledku v pravém podokně, viz screenshot:

doc vložte každý znak x 8

Tipy: Tady zadám 4,8,12 do textového pole Specifikovat které označují vložení konkrétního textu za 4., 8. a 12. znak textového řetězce.

4. Pak klikněte na tlačítko Ok or aplikovat tlačítko, byl zadaný znak vložen do hodnot buňky na konkrétních pozicích.

doc vložte každý znak x 9 2 doc vložte každý znak x 10

Klepnutím zobrazíte další podrobnosti o tomto nástroji Přidat text.

Stáhněte si zdarma zkušební verzi Kutools pro Excel!


Demonstrace: Vkládejte určité znaky každých x znaků do buňky pomocí Kutools pro Excel

Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Stáhněte si a vyzkoušejte zdarma hned teď!

Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 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ých funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 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 o 50% a omezuje stovky kliknutí myší každý den!
officetab dno
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    anaid83 · 2 months ago
    Creo que en vez de macros, es más fácil (aunque más largo):
    1. Separar en columnas la columna A (Pestaña Datos - botón texto en columnas) y separar por Ancho fijo. Así podrás poner un separador cada 4 caracteres.
    2. Elige destino desde B2 (si lo dejas predeterminado, pisará la columna A y no podrás ver el texto original).
    3. Ahora viene lo bueno, ya que son 4 series de 4caracteres cada uno, en la columna G o H (considerando que los valores de 4 caracteres estén desde las columnas B a la F), colocarás la siguiente fórmula: =CONCATENAR(B2;"-";C2;"-";D2;"-";E2;"-";F2). Ahora copia esa celda al resto de valores por insertar el símbolo -.
    4. Finalmente, copia toda la columna de resultados y pégala en una columna vacía pero como valor de texto (Inicio-Pegar-Valores... o con las teclas ALT+O+V+V) y listo, ya tienes tus seriales listos para pegar donde quieras sin necesidad de macros.
  • To post as a guest, your comment is unpublished.
    Wuilf · 1 years ago
    Muy buena esta macro, una pregunta curiosa al momento de ejecutarla los caracteres los aplica de izquierda a derecha, puede cambiarse ese orden que de derecha a izquierda? En caso de ser posible como es el proceso? Gracias.
  • To post as a guest, your comment is unpublished.
    John · 2 years ago
    buenas noches
    necesito que me coloque el caracter cada 6, 7, 8 de un solo clic como le modifico para poder colocar mas criterios