Note: The other languages of the website are Google-translated. Back to English
Einloggen  \/ 
x
or
x
Registrieren  \/ 
x

or

Wie füge ich alle x Zeichen ein bestimmtes Zeichen in Zellen hinzu / füge es ein?

Angenommen, ich habe eine Liste von Textzeichenfolgen, in die ich nach jeweils vier Zeichen Bindestriche oder andere Trennzeichen in Zellen einfügen möchte, um das folgende Screenshot-Ergebnis zu erhalten. Es werden zu viele Zellen benötigt, um ein bestimmtes Zeichen einzufügen. Gibt es eine schnelle Möglichkeit, Striche alle vier Zeichen in Excel einzufügen?

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

Fügen Sie mit x Kutools for Excel alle x Zeichen ein bestimmtes Zeichen in die Zelle ein

doc füge jedes x-Zeichen ein 1


Fügen Sie alle x Zeichen ein bestimmtes Zeichen in die 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. Gehen Sie dazu wie folgt vor:

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

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

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

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. Dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, den Datenbereich auszuwählen, in den Sie ein bestimmtes Zeichen in die Textzeichenfolgen einfügen möchten (siehe Abbildung):

doc füge jedes x-Zeichen ein 2

4. Und klicken Sie auf OKGeben Sie im folgenden Eingabeaufforderungsfeld die Nummer ein, nach der Sie nacheinander ein bestimmtes Zeichen einfügen möchten (siehe Screenshot):

doc füge jedes x-Zeichen ein 3

5. Klicken Sie weiter OKGeben Sie im folgenden Eingabeaufforderungsfeld das bestimmte Zeichen ein, das Sie dem Text hinzufügen möchten (siehe Screenshot).

doc füge jedes x-Zeichen ein 4

6. Klicken Sie OK Klicken Sie auf die Schaltfläche und wählen Sie eine Zelle aus, in der Sie das Ergebnis im Eingabeaufforderungsfeld ausgeben möchten (siehe Abbildung):

doc füge jedes x-Zeichen ein 5

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

doc füge jedes x-Zeichen ein 6


Fügen Sie mit x Kutools for Excel alle x Zeichen ein bestimmtes Zeichen in die Zelle ein

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

Kutools for Excel : Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen. 

Wenn Sie installiert haben Kutools for ExcelBitte gehen Sie wie folgt vor:

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

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

3. In dem Text hinzufügen Geben Sie im Dialogfeld ein Zeichen an, das Sie in das Feld einfügen möchten Text Box, und wählen Sie dann Geben Sie von der Position aus an Geben Sie im Textfeld im Abschnitt die Positionen ein, an denen Sie das Zeichen einfügen möchten. Anschließend können Sie im rechten Bereich eine Vorschau des Ergebnisses anzeigen (siehe Abbildung):

doc füge jedes x-Zeichen ein 8

Ratschläge: Hier tippe ich 4,8,12 in das Textfeld von Angeben die angeben, dass der spezifische Text nach dem 4., 8. und 12. 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 ein 9 2 doc füge jedes x-Zeichen ein 10

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

Laden Sie Kutools for Excel jetzt herunter und testen Sie es kostenlos!


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

Kutools for Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie es innerhalb von 30 Tagen ohne Einschränkung testen. Jetzt herunterladen und kostenlos testen!

Die besten Tools für die Office-Produktivität

Kutools für Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formula Bar (leicht mehrere Textzeilen und Formeln bearbeiten); 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 geteilter Zellen; 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; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung 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. Vollständige Funktionen 30 Tage kostenlose Testversion. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die 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
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 · 19 days 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 · 1 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