VBA将单元格值转换为Double类型报类型不匹配错误如何解决

错误通常由以下原因触发：

• a = [C13]的简写形式返回的是Range对象，未显式指定Value属性时，部分场景下VBA会将Range对象直接赋值给变体变量a，CDbl()无法对对象执行类型转换
• C13单元格内容虽然视觉上为0.5，但实际包含前后空格、非打印不可见字符，或单元格被设置为文本格式，导致内容无法被识别为合法数值

修复方案 #

修正后的完整代码 #

Sub ali()
    Dim a As Variant
    Dim b As Double
    ' 显式读取单元格值，同时去除不可见字符与前后空格
    a = Application.Clean(Trim(Range("C13").Value))
    ' 提前校验数值合法性，避免转换报错
    If IsNumeric(a) Then
        b = CDbl(a)
        MsgBox b
    Else
        MsgBox "C13单元格内容非合法数值，当前内容为：" & a
    End If
End Sub

额外排查步骤 #

• 选中C13单元格，检查编辑栏内容是否存在多余的前后空格或特殊字符，删除冗余内容
• 右键C13单元格→「设置单元格格式」→确认格式为「常规」或「数值」，排除文本格式的影响

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