Přejít k hlavnímu obsahu

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 Podat žádost 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ší nástroje pro produktivitu v kanceláři

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...

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 snižuje stovky kliknutí myší každý den!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
buenas noches
necesito que me coloque el caracter cada 6, 7, 8 de un solo clic como le modifico para poder colocar mas criterios
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations