Excel 宏：如果字符“XX”在字符串中间，则在该点拆分字符串

Question

我正在尝试根据在字符串中查找特定字符将一列分为两列。

具体来说，如果 ColumnA 包含字符串“XX”，则将 ColumnD 中“XX”之前的所有内容复制，并将“XX”和之后的所有内容复制到 ColumnF。

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

Answer 1

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