Teilen Sie Zellen in mehrere Zeilen mit Vb-Code

Question

Wie ich bin neu zu Vb Excel. Kann mir jemand vorschlagen, wie ich Zellen mit Vb Code in mehrere Zeilen aufteilen kann? Ich habe wenig Code ausprobiert, aber nicht funktioniert.

Beispieldaten:

Answer 1

Hier ist ein Beispiel für den Einstieg.

Dieser Code wird die aktive Zelle nehmen Sie markiert haben und die Zeichenfolge durch Leerzeichen zu brechen, es über mehrere Spalten in der Zeile erweitern 1.

Beispiel:

1. Zelle A5 enthält „Hallo Welt Test“
2. Highlight Zelle A5
3. Rufen Sie die Unter

4. der Code wird ausgeführt, und Sie werden jetzt "Hallo" in A1, "World" in A2 haben, und "Test" in

   A3

   Sub Example() 
       Dim txt As String 
       Dim i As Integer 
       Dim fullname As Variant 
   
       txt = ActiveCell.Value 
       fullname = Split(txt, " ") 
       For i = 0 To UBound(fullname) 
        Cells(1, i + 1).Value = fullname(i) 
        MsgBox fullname(i) 
       Next i 
   End Sub