Wenn Sie Schwierigkeiten haben, den Text basierend auf dem bestimmten Zeichen in zwei oder mehr separate Spalten aufzuteilen, sollten Sie diesen Artikel lesen.
In diesem Artikel erfahren Sie, wie Sie den Namen mit VBA in Microsoft Excel in 3 Zellen aufteilen.
Nehmen wir ein Beispiel, um zu verstehen, wo und wie wir den Namen aufteilen können.
Wir haben eine Liste von Namen im Format "FirstName Initial LastName" in Spalte A. Wir möchten die gesamte Spalte in drei Spalten aufteilen, eine mit allen Vornamen, die zweite mit Initial und die dritte mit allen Nachnamen .
Wir werden den VBA-Code schreiben, um den Namen aufzuteilen. Folgen Sie den unten angegebenen Schritten:
Um den Namen in 3 Zellen aufzuteilen, verwenden wir VBA. Sehen Sie sich das folgende Verfahren und den folgenden Code an, und Sie werden es leicht verstehen:
- Öffnen Sie die VBA-Seite und drücken Sie Alt+F11
- Ein Modul einfügen
- Gehen Sie dann zum Menü Einfügen und klicken Sie auf Prozedur, wo Sie die Prozedur zum Starten des Makros erhalten
- Schreiben Sie den unten genannten Code:-
Public Sub SplitName() X = Cells(Rows.Count, 1).End(xlUp).Row For A = 1 To XB = InStr(Cells(A, 1), " ") C = InStrRev(Cells(A, 1 ), " ") Zellen(A, 2) = Links(Zellen(A, 1), B) Zellen(A, 3) = Mitte(Zellen(A, 1), B, C - B) Zellen(A, 4 ) = Right(Cells(A, 1), Len(Cells(A, 1)) - C) Next A End Sub
Code-Erklärung:- Zuerst haben wir den Makronamen angegeben, dann haben wir x verwendet, um den Datenbereich zu definieren, und dann haben wir A, B und C verwendet, um zu definieren, wie Werte aus den Zellen ausgewählt werden sollen.
- Drücken Sie die Taste F5, um das Makro in Excel auszuführen
- Wenn Sie das Makro ausführen, werden die Namen in drei Spalten aufgeteilt
Abschluss: Auf diese Weise können wir die Namen mit VBA in Microsoft Excel in 3 Spalten aufteilen.
Wenn Ihnen unsere Blogs gefallen haben, teilen Sie sie mit Ihren Freunden auf Facebook. Und Sie können uns auch auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern, ergänzen oder erneuern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site