如何从excel中分离出最后三个数字和一个string

我有：

第1栏

Here is line one abc 1 3 100 Here is another line jkmr 5-20 230 3 Other line three rjleer 44 10 22 

并想把它变成：

到目前为止，我有这样的：

 =RIGHT(A1,LEN(C1)-FIND("*",SUBSTITUTE(A1," ","*",LEN(A1)-LEN(SUBSTITUTE(A1," ",""))-3))) 

分开最后四个string。 然后我可以把它们分开。 但是我怎样才能从文本中删除最后四个string呢？

Answer 1

这似乎给你想要的结果：

 Sub BreakUp() Dim N As Long, i As Long, k As Long, j As Long N = Cells(Rows.Count, "A").End(xlUp).Row For i = 1 To N k = 0 arr = Split(Cells(i, 1).Value, " ") For j = 6 To 3 Step -1 Cells(i, j).Value = arr(UBound(arr) - k) k = k + 1 Next j For j = 0 To UBound(arr) - 4 Cells(i, 2).Value = Cells(i, 2).Value & " " & arr(j) Next j Next i End Sub