VBA触发Error 13类型不匹配错误，Range比较逻辑存疑

咱们来拆解一下你代码里的问题，以及为什么会触发这个错误：

错误的核心原因 #

虽然StatusValue和QuotationOpen都是Range类型，但直接用Range对象和字符串比较时，VBA会隐式调用Range的.Value属性。如果QuotationOpen对应的单元格（也就是第x行第3列）里的内容是错误值（比如#N/A、#VALUE!、#REF!这类），那么.Value返回的是一个错误变体类型，和字符串"Q3ING18"比较就会触发「类型不匹配」错误。

而StatusValue对应的单元格没有报错，大概率是因为该单元格的内容是正常的文本/数值，没有错误值，所以隐式比较能正常执行。

另外，你的代码里还有个冗余问题：StatusValue = Cells(x,4)和QuotationOpen = Cells(x,3)都是单个单元格的Range，你写的For Each c In StatusValue、For Each v In QuotationOpen完全没必要——单个单元格的循环只会执行一次，反而让代码逻辑变复杂。

修复后的代码 #

我帮你优化了代码，解决了类型不匹配问题，同时简化了冗余的循环：

Sub ContractDates()
    Dim lastrow As Long
    Dim x As Long
    
    ' 先指定工作表，避免ActiveSheet的问题
    With Sheets("Sheet2")
        lastrow = .Cells(.Rows.Count, 1).End(xlUp).Row
        
        For x = 2 To lastrow
            ' 直接取单元格的值，避免Range对象比较的隐式转换问题
            If .Cells(x, 4).Value = "DESIGN" Then
                ' 先判断单元格是否为错误值，再比较内容
                If Not IsError(.Cells(x, 3).Value) Then
                    If .Cells(x, 3).Value = "Q3ING18" Then
                        .Cells(x, 7).Value = "28/09/2018"
                        ' 建议用日期类型赋值，而不是字符串，避免格式问题
                        ' .Cells(x, 7).Value = DateSerial(2018, 9, 28)
                    End If
                End If
            End If
        Next x
    End With
End Sub

关键优化点 #

• 明确使用.Value属性：不再依赖VBA的隐式转换，直接比较单元格的实际值，逻辑更清晰。
• 增加错误值判断：用IsError()函数先检查单元格是否为错误值，避免类型不匹配。
• 移除冗余循环：单个单元格不需要For Each循环，简化代码结构。
• 使用With语句：指定工作表，避免因当前活动表变化导致的错误，同时让代码更简洁。
• 可选的日期赋值优化：如果需要写入日期，建议用DateSerial()生成真正的日期类型，而不是字符串，这样Excel能正确识别为日期格式。

额外排查建议 #

如果你想确认是不是错误值导致的问题，可以在出错的那一行之前加一句调试代码：

Debug.Print "Row " & x & ", Column 3 value: " & .Cells(x, 3).Value

然后打开VBA的「立即窗口」（快捷键Ctrl+G），查看出错行的单元格内容，就能确认是不是错误值了。

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