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
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):
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):
5. Klicken Sie weiter OKGeben Sie im folgenden Eingabeaufforderungsfeld das bestimmte Zeichen ein, das Sie dem Text hinzufügen möchten (siehe Screenshot).
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):
7. Endlich, klick OK, das bestimmte Zeichen wurde alle vier Zeichen in jede Textzeichenfolge eingefügt, siehe Screenshot:
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 Kutoolen > 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):
Tips: 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 Jetzt bewerben Schaltfläche, wurde das angegebene Zeichen an bestimmten Positionen in die Zellenwerte eingefügt.
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
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
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 jeden Tag Hunderte von Mausklicks für Sie!