最简单的方法是使用替换功能。
例如:
Dim yourString As String
Dim newString As String
yourString = "- Hello how are you"
newString = Replace(yourString, "-", "something else")
MsgBox newString 'returns "something else Hello how are you"
Run Code Online (Sandbox Code Playgroud)
如果它始终是第一个字符并且每个字符串的字符都不同,则可以执行以下操作:
Dim yourString, subString, replacementString, newString As String
yourString = "- Hello how are you"
subString = Right(yourString, Len(yourString) - 1)
replacementString = "something else"
newString = replacementString + subString
MsgBox newString 'returns "something else Hello how are you"
Run Code Online (Sandbox Code Playgroud)
如果您要替换为单个字符,则Mid$在 LHS 上使用比附加到操作要快得多RIGHT$:
(将其发布为您的问题中没有足够的细节 - 可能对其他人有用)
Dim strNew As String
strNew = "- Hello how are you"
Mid$(strNew, 1, 1) = "x"
Debug.Print strNew
Run Code Online (Sandbox Code Playgroud)