VBA求和两列触发类型不匹配错误，请求定位问题原因

嘿，我来帮你搞定这个头疼的类型不匹配问题！先看你的代码和描述，你怀疑空白单元格是对的，但问题可能不是“真正的空白”，还有代码里也有个小细节需要修正。

先修正代码的基础问题 #

你已经定义了ws指向"Recon"工作表，但后面引用Range的时候没加ws.前缀——这会导致代码默认操作当前活动工作表，如果运行时你没在"Recon"表上，就会出问题（虽然这不一定是这次类型错误的直接原因，但先把它改规范：

Sub SumCols()
    Dim ws As Worksheet
    Dim LastRow As Long ' 最好显式声明变量类型
    Dim i As Long
    
    Set ws = Sheets("Recon")
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    For i = 2 To LastRow
        ' 一定要加上ws.限定工作表
        ws.Range("E" & i).Value = ws.Range("C" & i).Value + ws.Range("D" & i).Value
    Next i
End Sub

为什么还是出现类型不匹配？ #

你说“检查显示无空白单元格，实际却能看到空白”——这说明那些“空白”单元格根本不是真的Empty，大概率是以下情况：

• 单元格里有不可见字符：比如空格、制表符、换行符，肉眼看起来空白，但实际有内容
• 单元格是公式返回的空字符串：比如=""，单元格显示空白，但实际值是长度为0的文本
• C/D列有文本格式的数字：单元格看起来是数字，但格式是文本，直接相加会触发类型不匹配

终极解决方案：兼容所有情况的求和代码 #

这里给你两种可靠的写法，任选一种就行：

方法1：用Val函数强制转换数值

Val会自动把文本、空白转换成0，彻底避免类型不匹配：

Sub SumCols()
    Dim ws As Worksheet
    Dim LastRow As Long
    Dim i As Long
    
    Set ws = Sheets("Recon")
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    For i = 2 To LastRow
        ws.Range("E" & i).Value = Val(ws.Range("C" & i).Value) + Val(ws.Range("D" & i).Value)
    Next i
End Sub

方法2：用Excel内置的Sum函数（更省心）

Excel的SUM函数本身就会忽略文本、空白和错误值，直接用WorksheetFunction.Sum调用它：

Sub SumCols()
    Dim ws As Worksheet
    Dim LastRow As Long
    Dim i As Long
    
    Set ws = Sheets("Recon")
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    For i = 2 To LastRow
        ' 直接对C和D列的当前行单元格求和
        ws.Range("E" & i).Value = WorksheetFunction.Sum(ws.Range("C" & i, "D" & i))
    Next i
End Sub

怎么验证那些“假空白”单元格？ #

如果你想找出问题单元格，可以用这两个小技巧：

• 选中C、D列，按Ctrl+G打开定位窗口，选择「定位条件」→「常量」，只勾选「文本」，确定后所有看起来空白但实际是文本的单元格会被选中
• 在空白单元格输入公式=LEN(C2)，如果返回值大于0，说明C2里有不可见字符

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