Excel VBA代码中在文本后加空格时，If条件为何显示<>？

核心原因 #

VBA的字符串比较是精确匹配机制，末尾的空格会被视为有效字符。比如你要匹配的目标文本是"测试"，但实际单元格里的内容是"测试 "（末尾多了空格），两者在VBA眼里是完全不同的字符串，自然会触发<>（不等于）的判断分支。

针对KoppelStelle子程序的解决方法 #

假设你的KoppelStelle子程序里有类似这样的判断逻辑：

Sub KoppelStelle()
    Dim targetText As String
    targetText = Range("A1").Value
    
    If targetText = "KPL001" Then
        ' 匹配成功逻辑
    ElseIf targetText = "KPL002" Then
        ' 另一匹配逻辑
    Else
        MsgBox "不匹配：" & targetText & " <> 预设值"
    End If
End Sub

可以用以下几种方式解决：

• 方法一：去除两端空格后再比较
  用VBA内置的Trim()函数，自动去除字符串首尾的空格，中间的空格会保留。修改后的代码如下：

Sub KoppelStelle()
    Dim targetText As String
    targetText = Trim(Range("A1").Value) ' 先清理首尾空格
    
    If targetText = "KPL001" Then
        ' 匹配成功逻辑
    ElseIf targetText = "KPL002" Then
        ' 另一匹配逻辑
    Else
        MsgBox "不匹配：" & targetText & " <> 预设值"
    End If
End Sub

如果需要连中间的空格也一并清除，可以用Replace(targetText, " ", "")代替Trim()。

• 方法二：使用模糊匹配运算符Like
  如果你确定只是末尾可能有空格，可以用Like来匹配包含末尾空格的情况，比如：

If targetText Like "KPL001*" Then
    ' 匹配KPL001及后面带任意字符（包括空格）的内容
End If

不过这种方式可能会匹配到其他无关内容，不如Trim()精准。

• 方法三：提前清理数据源
  在数据录入或导入时，直接用Excel的TRIM工作表函数批量处理单元格内容，或者在VBA初始化数据时就完成清理，避免后续判断出错。

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