Wenn Sie Probleme haben, den Text basierend auf dem jeweiligen Zeichen in zwei oder mehr separate Spalten aufzuteilen, sollten Sie diesen Artikel lesen.

In diesem Artikel erfahren Sie, wie Sie den Namen mithilfe von VBA in Microsoft Excel in drei Zellen aufteilen.

Nehmen wir ein Beispiel, um zu verstehen, wo und wie wir den Namen teilen können. Wir haben eine Liste von Namen im Format „Vorname Initial LastName“ in Spalte A. Wir möchten die gesamte Spalte in drei Spalten aufteilen, wobei eine alle Vornamen enthält, die zweite Initial und die dritte alle Nachnamen enthält .

image 1

Wir werden den VBA-Code schreiben, um den Namen zu teilen. Führen Sie die folgenden Schritte aus: – 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. Einfügen eines Moduls Gehen Sie dann zum Menü Einfügen und klicken Sie auf Verfahren, um das Verfahren zum Starten des Makros zu erhalten. erwähnter Code: –

Public Sub SplitName()

X = Cells(Rows.Count, 1).End(xlUp).Row

For A = 1 To X

B = InStr(Cells(A, 1), " ")

C = InStrRev(Cells(A, 1), " ")

Cells(A, 2) = Left(Cells(A, 1), B)

Cells(A, 3) = Mid(Cells(A, 1), B, C - B)

Cells(A, 4) = Right(Cells(A, 1), Len(Cells(A, 1)) - C)

Next A

End Sub

img1

Code Erläuterung: – 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

image 3

Fazit: Auf diese Weise können wir die Namen mithilfe von VBA in Microsoft Excel in drei Spalten aufteilen.

image 48

Wenn Ihnen unsere Blogs gefallen haben, teilen Sie sie Ihren Freunden auf Facebook mit. Und Sie können uns auch auf Twitter folgen. _ _Wir würden gerne von Ihnen hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern, ergänzen oder innovieren und für Sie verbessern können. Schreiben Sie uns unter [email protected]