如何不用For Each遍历单元格？VBA索引循环赋值代码报错求解决

嘿，我来帮你搞定这个代码运行失败的问题！你的这段代码没法运行，大概率是因为第6列（F列）的某些单元格内容不符合Long类型的要求——毕竟Long在VBA里只能存储-2,147,483,648到2,147,483,647之间的整数，要是单元格里是空值、文本、带小数的数字，或者数值超出这个范围，直接赋值就会触发类型不匹配的错误。

不用改用For Each，给你几个能让代码正常运行的方案：

方案1：添加错误处理，跳过无效数据 #

如果只是想忽略那些无法转换为Long的单元格，继续循环处理其他有效数据，可以加入简单的错误处理逻辑：

Sub cellsTest()
    Dim i As Long
    Dim price As Long
    For i = 1 To 100
        On Error Resume Next ' 临时开启错误忽略
        price = Cells(i, 6).Value
        If Err.Number = 0 Then ' 没有错误才弹出结果
            MsgBox price
        Else
            Err.Clear ' 清除错误状态，避免影响下一次循环
        End If
        On Error GoTo 0 ' 关闭错误忽略，恢复正常错误检测
    Next i
End Sub

方案2：提前验证数据，明确处理异常情况 #

要是想知道具体哪一行出了问题，或者对不同异常做针对性提示，可以先判断单元格内容是否符合Long的要求：

Sub cellsTest()
    Dim i As Long
    Dim price As Long
    Dim cellValue As Variant
    For i = 1 To 100
        cellValue = Cells(i, 6).Value
        ' 先判断是否是有效数值，再检查是否在Long的范围内
        If IsNumeric(cellValue) Then
            If cellValue >= -2147483648 And cellValue <= 2147483647 Then
                price = CLng(cellValue)
                MsgBox price
            Else
                MsgBox "第" & i & "行的数值超出Long类型的范围啦！"
            End If
        Else
            MsgBox "第" & i & "行的内容不是有效数值哦~"
        End If
    Next i
End Sub

方案3：改用Variant接收，按需转换 #

如果你不需要严格一开始就用Long存储，可以先用Variant类型接收单元格值，之后根据需求再转换为Long，这样兼容性更好：

Sub cellsTest()
    Dim i As Long
    Dim price As Variant
    For i = 1 To 100
        price = Cells(i, 6).Value
        ' 按需判断并转换
        If IsNumeric(price) Then
            MsgBox CLng(price) ' 需要的时候再转成Long
        Else
            MsgBox "这个单元格的内容不是数值哦"
        End If
    Next i
End Sub

总结一下，原来的代码失败核心原因就是单元格数据类型和Long变量不兼容，只要针对性处理这些异常情况，就能用你喜欢的For循环正常运行啦！

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