Excel-Makro: Wenn sich die Zeichen „XX“ in der Mitte einer Zeichenfolge befinden, teilen Sie die Zeichenfolge an diesem Punkt auf - Excel, VBA, For-Loop, Split

Ich versuche, eine Spalte in zwei Spalten zu unterteilen, indem ich bestimmte Zeichen in der Zeichenfolge finde.

Insbesondere wenn Spalte A die Zeichenfolge "XX" enthält, kopieren Sie alle Zeichen vor "XX" in Spalte D und kopieren Sie "XX" und alle weiteren Zeichen nach Spalte F.

Sub splitit()
Dim i As Long, l As Long
l = Cells(Rows.Count, 1).End(xlUp).Row
For i = l To 1 Step -1
If InStr(Cells(i, 1).Value, celltxt, " XX ") Then
Cells(i, 4).Value = Left(Cells(i, 1).Value, Find(" XX ", Cells(i, 1).Value) - 1)
Cells(i, 6).Value = " XX " & Mid(Cells(i, 1).Value, Find(" XX ", Cells(i, 1).Value) + 1, Len(Cells(i, 1).Value))
End if
Next i
End Sub

Antworten:

Sub splitit()
Dim i As Long, l As Long,
Dim x as variant
l = Cells(Rows.Count, 1).End(xlUp).Row
For i = l To 1 Step -1
If InStr(Cells(i, 1).Value, celltxt, "XX") <> 0 Then
x = split(cells(i,1),"XX")
cells(i,4) = x(0)
cells(i,6) = " XX " & x(1)
End if
Next i
End Sub