VBA UserForm多行字符串匹配异常：判定结果始终显示错误

1. 优先排查字符串隐藏字符差异 #

你的场景是匹配选项字符串，单元格存储内容和OptionButton的Caption大概率存在肉眼不可见的差异，常见为首尾空格、换行符（vbCrLf/vbLf/vbCr）、制表符，需要先对两个比较值做清洗：

• 用Trim()清除首尾空格
• 用Replace()清除所有换行、制表符

2. 修正代码逻辑漏洞 #

你当前代码存在2个可优化的逻辑点：

• 给Column赋值时，需要确认"Right ans"列存储的确实是数值型的列偏移量，建议先加校验判断值是否为合法正整数，避免偏移错误取到非正确答案的单元格内容
• 取单元格值时显式调用.Value，避免VBA默认取到单元格其他属性导致取值错误

3. 统一字符串比较规则 #

VBA默认字符串比较为二进制模式，大小写不同会判定为不匹配，如果你的题目不需要区分大小写，可以用StrComp函数指定忽略大小写比较，或者在模块顶部添加Option Compare Text全局设置文本比较模式。

修改后的参考代码 #

Private Sub OptionButton1_Click()
    rowNum = Selection.Row - Selection.ListObject.Range.Row
    DeclareVars
    
    ' 先校验Right ans列的偏移值是否合法
    Dim Column As Long
    Column = examtable.ListColumns("Right ans").DataBodyRange(rowNum).Value
    If Column < 1 Or Column > examtable.ListColumns.Count Then
        MsgBox "正确答案列偏移值非法，请检查表结构", vbExclamation
        Exit Sub
    End If
    
    ' 取值后清洗字符串
    Dim CorrectAns As String, OptionCap As String
    CorrectAns = examtable.ListColumns("Right ans").DataBodyRange(rowNum).Offset(0, Column).Value
    CorrectAns = Trim(Replace(Replace(Replace(CorrectAns, vbCrLf, ""), vbCr, ""), vbLf, ""))
    OptionCap = Trim(Replace(Replace(Replace(OptionButton1.Caption, vbCrLf, ""), vbCr, ""), vbLf, ""))
    
    RightWrong.Visible = True
    ' 忽略大小写比较
    If StrComp(OptionCap, CorrectAns, vbTextCompare) = 0 Then
        RightWrong.BackColor = &HFF00&
        RightWrong.Caption = "Right"
    Else
        ' 调试用，遇到不匹配时输出两个值到立即窗口排查差异
        Debug.Print "选项值：" & OptionCap, "正确值：" & CorrectAns
        RightWrong.BackColor = &HFF&
        RightWrong.Caption = "Wrong"
    End If
End Sub

如果修改后还是匹配失败，可以打开VBA编辑器的立即窗口（快捷键Ctrl+G），查看不匹配时输出的两个字符串的实际内容，定位差异点即可。

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