Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie fügt man jedem x-Zeichen bestimmte Zeichen in Zellen ein / ein?

Angenommen, ich habe eine Liste von Textzeichenfolgen, die Bindestriche oder andere Trennzeichen nach jeweils vier Zeichen in Zellen einfügen sollen, um das folgende Screenshot-Ergebnis zu erhalten. Es sind zu viele Zellen erforderlich, um das bestimmte Zeichen einzufügen. Gibt es eine schnelle Möglichkeit, in Excel alle vier Zeichen Bindestriche einzufügen?

Fügen Sie bestimmte Zeichen alle x Zeichen in Zelle mit VBA-Code ein

Fügen Sie mit Kutools for Excel bestimmte Zeichen für alle x Zeichen in die Zelle ein

doc füge jedes x Zeichen 1 ein


Fügen Sie ein bestimmtes Zeichen vor / nach / bestimmte Position der Textzeichenfolge hinzu:

Kutools for Excel Text hinzufügen Dienstprogramm kann Ihnen helfen, bestimmte Zeichen oder Buchstaben vor oder nach allen Zellen hinzuzufügen, zur gleichen Zeit kann es auch das Zeichen unter der bestimmten Position der Textfolgen einfügen.

doc füge jedes x Zeichen 11 ein

Kutools for Excel: mit mehr als 200 praktischen Excel-Add-Ins, die Sie in 60-Tagen kostenlos ausprobieren können. Download und kostenlose Testversion Jetzt!


Fügen Sie bestimmte Zeichen alle x Zeichen in Zelle mit VBA-Code ein


Sie können den folgenden VBA-Code anwenden, um nach jeweils vier Zeichen ein bestimmtes Zeichen in Zellen einzufügen:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel in Excel, und es öffnet die Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Einsatz > Modul, und fügen Sie den folgenden Code in die Modul Fenster.

VBA-Code: Fügen Sie bestimmte Zeichen alle x Zeichen in Zelle ein

Sub InsertCharacter()
'Updateby20150813
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. Dann drücken F5 Taste, um diesen Code auszuführen, und eine Eingabeaufforderung wird eingeblendet, um Sie daran zu erinnern, den Datenbereich auszuwählen, in den Sie bestimmte Zeichen in die Textzeichenfolgen einfügen möchten, siehe Screenshot:

doc füge jedes x Zeichen 2 ein

4. Und klicken Sie auf OKBitte geben Sie in die folgende Eingabeaufforderung die Nummer ein, nach der Sie jedes Zeichen eingeben möchten, siehe Screenshot:

doc füge jedes x Zeichen 3 ein

5. Klicken Sie weiter OKund geben Sie in der folgenden Eingabeaufforderung das gewünschte Zeichen ein, das Sie dem Text hinzufügen möchten, siehe Screenshot:

doc füge jedes x Zeichen 4 ein

6. Klicken Sie OK Wählen Sie eine Zelle aus, in der Sie das Ergebnis in der Eingabeaufforderung ausgeben möchten, siehe Screenshot:

doc füge jedes x Zeichen 5 ein

7. Endlich, klick OK, das bestimmte Zeichen wurde in jede Textzeichenfolge alle vier Zeichen eingefügt, siehe Screenshot:

doc füge jedes x Zeichen 6 ein


Fügen Sie mit Kutools for Excel bestimmte Zeichen für alle x Zeichen in die Zelle ein

Der obige Code ist vielleicht etwas schwierig für die meisten Excel-Anfänger, hier kann ich ein praktisches Tool vorstellen - Kutools for ExcelMit seinen Text hinzufügen Feature, können Sie schnell einen bestimmten Text oder ein Zeichen vor, nach oder den bestimmten Positionen des Zellenwerts hinzufügen.

Kutools for Excel : mit mehr als 300 praktischen Excel-Add-Ins, die Sie in 60-Tagen kostenlos ausprobieren können.

Wenn Sie installiert haben Kutools for Excel, mach bitte wie folgt:

1. Wählen Sie den Datenbereich aus, in den Sie ein bestimmtes Zeichen einfügen möchten.

2. Dann klick Kutoolen > SMS > Text hinzufügen, siehe Screenshot:

doc Einfügen jedes x Zeichen 7 7

3. In dem Text hinzufügen Geben Sie im Dialogfeld ein Zeichen an, das Sie in SMS Box, und wählen Sie dann Angeben von der Position Geben Sie im Textfeld die Positionen ein, hinter denen Sie das Zeichen einfügen möchten. Gleichzeitig können Sie das Ergebnis im rechten Fensterbereich in der Vorschau anzeigen, siehe Screenshot:

doc füge jedes x Zeichen 8 ein

Tipps: Hier tippe ich 4,8,12 in das Textfeld von Angeben die angeben, dass der spezifische Text nach den 4th-, 8th- und 12th-Zeichen der Textzeichenfolge eingefügt werden soll.

4. Dann klick Ok or Apply Schaltfläche wurde das angegebene Zeichen an bestimmten Positionen in die Zellenwerte eingefügt.

doc füge jedes x Zeichen 9 ein  2 doc füge jedes x Zeichen 10 ein

Klicken Sie hier, um weitere Details zu diesem Dienstprogramm zum Hinzufügen von Text zu erfahren.

Download und kostenlose Testversion Kutools für Excel Now!


Demo: Fügen Sie mit Kutools for Excel bestimmte Zeichen für alle x Zeichen in die Zelle ein

Kutools for Excel: mit mehr als 200 praktischen Excel-Add-Ins, die Sie in 60-Tagen kostenlos ausprobieren können. Download und kostenlose Testversion Jetzt!


Kutools for Excel löst die meisten Ihrer Probleme und steigert Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einlegen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formula Bar (Bearbeiten Sie mühelos mehrere Textzeilen und Formeln); Layout lesen (Leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt der Zellen teilen; Kombinieren Sie doppelte Zeilen / Spalten... Doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie "Duplizieren" oder "Eindeutig" Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufallsauswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen auf mehrere Blätter; Bullets einfügen, Kontrollkästchen und mehr ...
  • Extract Text, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen; Erstellen und Drucken von Paging-Zwischensummen; Zwischen Zelleninhalt und Kommentaren konvertieren...
  • Superfilter (Speichere und wende Filterschemata auf andere Blätter an); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Arbeitsmappen und Arbeitsblätter kombinieren; Zusammenführen von Tabellen basierend auf Schlüsselspalten; Daten in mehrere Blätter aufteilen; Stapelkonvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Kostenlose 30-Testversion für alle Funktionen.
Registerkarte Tab 201905

Registerkarte "Office" Bringt die Benutzeroberfläche mit Registerkarten in Office und vereinfacht Ihre Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50% und reduziert täglich Hunderte von Mausklicks für Sie!
officetab unten
Say something here...
symbols left.
You are guest ( Sign Up? )
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.
    John · 2 months 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