Zwei Datenspalten in Eine Spalte ist Sequenz

Question

Ich habe zwei Spalten A & B Ich muss sie in einer sequenziellen Reihenfolge anhängen und erhält das Ergebnis wie Spalte A erste Zelle gefolgt von Spalte B erste Zelle gefolgt von Spalte A zweite Zelle, die durch die Spalte B zweiten Zelle

Spalte A Jones android 1234FG thepark

Spalte B JONES gefolgt ANDROID 1234SS PARK

Ergebnis Jones JONES android ANDROID 1234FG 1234SS thepark PARK

raten bitte alle Formeln oder VBA-Code die angegebene Ergebnis zu erzielen.

Answer 1

finden Sie den Code unten

Sub test() 
    Dim i As Long, j As Long 
    Dim output As String 
    Dim text1 As String 
    Dim text2 As String 
    Dim text1split1 
    Dim text1split2 
    Dim lastrow As Long 
    lastrow = Range("A" & Rows.Count).End(xlUp).Row 
    For i = 1 To lastrow 
     text1 = Range("A" & i).Value 
     text2 = Range("B" & i).Value 
     text1split1 = Split(text1, " ") 
     text1split2 = Split(text2, " ") 
     For j = 0 To UBound(text1split1) 
      If output <> "" Then 
       output = output & " " & text1split1(j) & " " & text1split2(j) 
      Else 
       output = text1split1(j) & " " & text1split2(j) 
      End If 
     Next j 
     Range("C" & i).Value = output 
    Next i 
End Sub