Excel VBA中如何修剪（Trim）InputBox获取的用户输入内容？

你可以通过两种方式实现类似Excel中CLEAN(TRIM(UserInput))的清理效果：

方法一：调用Excel工作表内置函数 #

VBA允许直接调用Excel的工作表函数，代码如下：

Dim UserInput As String
UserInput = InputBox("Paste in your input, plz:")
' 同时清理首尾空格、中间多余空格，以及非打印字符
UserInput = WorksheetFunction.Clean(WorksheetFunction.Trim(UserInput))

• Trim函数：移除字符串首尾的空格，并将中间连续的多个空格替换为单个空格
• Clean函数：移除字符串中的所有非打印字符（如换行符、制表符、回车符等不可见字符）

方法二：纯VBA自定义实现（不依赖工作表函数） #

如果不想依赖Excel的工作表函数，可以自己编写自定义函数完成清理：

' 自定义清理函数
Function CleanTrim(ByVal inputStr As String) As String
    ' 移除常见非打印字符
    inputStr = Replace(inputStr, vbTab, "")
    inputStr = Replace(inputStr, vbNewLine, "")
    inputStr = Replace(inputStr, vbCr, "")
    
    ' 清理空格：先去首尾空格，再替换中间多空格为单个
    inputStr = Trim(inputStr)
    Do While InStr(inputStr, "  ") > 0
        inputStr = Replace(inputStr, "  ", " ")
    Loop
    
    CleanTrim = inputStr
End Function

' 使用示例
Sub ProcessInput()
    Dim UserInput As String
    UserInput = InputBox("Paste in your input, plz:")
    
    ' 仅当用户输入有效时执行清理
    If UserInput <> "" Then
        UserInput = CleanTrim(UserInput)
        ' 这里添加后续处理逻辑
    End If
End Sub

额外提示 #

注意处理用户点击取消或输入为空的情况，避免后续代码因空值报错，上述示例中已经加入了简单的判断逻辑。

内容的提问来源于stack exchange，提问作者HelpMeCode