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
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:
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:
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:
6, klikněte OK Tlačítko a vyberte jednu buňku, do které chcete výsledek odeslat do pole výzvy, viz screenshot:
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:
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:
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.
 |
 |
 |
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
Nejlepší nástroje pro produktivitu v kanceláři
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...
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!
