Excel VBA 移除字串

可以用這個函數(function)，它不但可在VBA中使用，也可當Worksheet Function來用：








Public Function RTrimStr(ByRef stSource As String, ByRef stTarget As String) As String
If InStr(stSource, stTarget) > 0 Then
RTrimStr = Left(stSource, InStr(stSource, stTarget) - 1)
Else
RTrimStr = stSource
End If
End Function






使用範例







VBA：

[A1] = RTrimStr([A1], ".ab")

Worksheet Function:

=RTRIMSTR(A1, ".ab")

建議用 Val 或 Replace

Function valx(numstr As String) As Double
valx = Val(numstr)
End Function

Function valy(numstr As String, str As String) As String
valy = Replace(numstr, str, "")
End Function

如希望傳回值是數字, 宣告為 Double,
若傳回文本, 則宣告為 String
任君選擇