[VBA] 擷取字串中〈特定字符以前的字串〉

Function Find(rText, rSign) As String

    For i = 1 To Len(rText) Step 1
        If Mid(rText, i, 1) <> rSign Then
            Find = Find & Mid(rText, i, 1)
        Else
            Exit For
        End If
    Next
 
End Function


使用說明 -----------

輸入端：

rText => 原字串
rSign => 特定字符

輸出端：

Find => 處理後傳回的字串