您可以使用正则表达式:

You can do this with regular expressions:

Option Explicit
Function trimWhiteSpace(s As String) As String
    Dim RE As Object

Set RE = CreateObject("vbscript.regexp")
With RE
    .Global = True
    .MultiLine = True
    .Pattern = "^\s*(\S.*\S)\s*"
    trimWhiteSpace = .Replace(s, "$1")
End With
End Function

正则表达式的解释

^\s*(\S.*\S)\s*

选项:区分大小写；^ $匹配行间的中断

Options: Case sensitive; ^$ match at line breaks

• 在行的开头(在字符串的开头或换行后)声明位置字符)(换行符，换行符，行分隔符，段落分隔符) ^
• 匹配单个字符，即空白字符"(ASCII空格，制表符，换行符，回车，垂直制表符，换页) \ s *
  • 在零次至无限次之间进行尽可能多的次数，并根据需要进行回馈(贪婪) *
  • 匹配不是空白字符"的单个字符(ASCII空间，制表符，行提要，回车，垂直制表符，换页) \ S
  • 匹配不是换行符(换行符)的任何单个字符.*
    • 在零次至无限次之间进行尽可能多的次数，并根据需要进行回馈(贪婪) *
    • 在零次至无限次之间进行尽可能多的次数，并根据需要进行回馈(贪婪) *

    $ 1

    • 插入通过捕获组号1而最后匹配的文本 $ 1

    使用 RegexBuddy

    另一方面，如果您要避免使用正则表达式，并且您唯一的前导/结尾空白"字符是 space ， tab 和换行，和，如果唯一的内部"空格字符是空格，则可以使用:

    On the other hand, if you want to avoid regular expressions, and if your only leading/trailing "white-space" characters are space, tab and linefeed, AND if the only "internal" white space characters are the space, you could use:

    Function trimWhiteSpace(s As String) As String
        trimWhiteSpace = Trim(Replace(Replace([a1], vbLf, ""), vbTab, ""))
    End Function
    

    请注意，VBA Trim函数(与工作表函数不同)仅删除前导和尾随空格，并使内部空间保持不变.但是，如果您需要保留字符串中的 tab ，这将无法正常工作.

    Note that the VBA Trim function (unlike the worksheet function), only removes leading and trailing spaces, and leaves internal spaces unchanged. But this won't work if you have tab's within the string that need to be preserved.

    以上任何一种都可以合并到您的宏中.

    Either of the above can be incorporated into your macro.