Excel VBA基于单元格值执行循环出现类型不匹配错误如何解决

错误诱因 #

出现该错误的核心原因是你读取的myArray(rw,7)值不满足数值变量的赋值要求，常见触发场景有三类：

• Sheet3的当前数据区域（CurrentRegion）总列数不足7列，访问myArray(rw,7)时读取的是不存在的下标内容，触发类型不匹配
• 对应行第7列的单元格存储的是错误值（如#N/A、#VALUE!、#DIV/0!等），无法直接赋值给数值变量或做类型转换
• 对应行第7列的单元格内容是空值、非数字格式的文本（如中文、字母、标点），无法被识别为有效数字

解决方法 #

修改代码时优先做合法性校验，排除异常值再执行后续逻辑，优化后的代码如下：

Sub readDataWriteToNewSheet()
    Debug.Print "Starting....."
    Dim myArray As Variant, rw As Long, paymentsToMake As Variant, i As Long
    
    Sheet5.Cells(1, 1).CurrentRegion.ClearContents
    myArray = Sheet3.Cells(1, 1).CurrentRegion
    
    ' 提前校验数据列数是否符合要求，避免下标越界
    If UBound(myArray, 2) < 7 Then
        MsgBox "Sheet3当前数据区域不足7列，请检查数据范围", vbCritical
        Exit Sub
    End If
    
    For rw = 1 To UBound(myArray)
        paymentsToMake = myArray(rw, 7)
        
        ' 依次校验：非错误值→是有效数字→数值大于1，全部满足再执行循环
        If Not IsError(paymentsToMake) Then
            If IsNumeric(paymentsToMake) Then
                If CLng(paymentsToMake) > 1 Then
                    For i = 1 To CLng(paymentsToMake)
                        Debug.Print "Hello"
                    Next
                End If
            End If
        End If
    Next
End Sub

补充说明 #

转换类型时建议使用CLng而非CInt：CInt的有效取值范围仅为-32768~32767，若循环次数超过该上限会触发溢出错误，CLng的取值范围更大，更适配计数场景。

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