VBA,Excel中怎样剪切指定单元格中最后一个空格前的所有内容?

Question

比如Cells(2,1)中有内容"track width norm f1",我要将"track width norm"剪切到另一个单元格Cells(2,2)中?
或者删除最后一个空格后的所有内容?不要公式,只要VBA语句
感谢!

Answer 1

dim tmp as string
tmp=cells(2,1).value
cells(2,2).value=Left(tmp, InStrRev(tmp, " ") - 1)
cells(2,1).value=Right(tmp,Len(tmp)-InstrRev(tmp," "))

 以上代码实现了最后一个空格前的字符“剪切”至另一单元格的效果。

执行后Cells(2,1)中内容为："f1" Cells(2,2)中内容为："track width norm"

Answer 2

Cells(2, 2) = StrReverse(Right(StrReverse(Cells(2, 1)), Len(Cells(2, 1)) - InStr(1, StrReverse(Cells(2, 1)), " ")))

Answer 3

Sub Test()
Cells(2, 2).Value = myEg(Cells(2, 1).Value)
End Sub
Function myEg(myStr As String) As String
Dim I As Integer, L As Integer
L = Len(myStr)
For I = 1 To L
If Mid(myStr, L - I, 1) = " " Then
myEg = Left(myStr, L - I - 1)
Exit For
End If
Next
End Function

Answer 4

Sub try()
For i = Len(Cells(2, 1)) To 1 Step -1
If Mid(Cells(2, 1), i, 1) = " " Then
Cells(2, 2) = Left(Cells(2, 1), i - 1)
Exit For
End If
Next
End Sub

Answer 5

dim x
x="track width norm f1"
spx=spit(x," ")
cells(2,2)=replace(x,spx(ubound(spx)),"")