如何在For/Next循环中获取Excel单元格值？排查VBA代码报错

错误原因 #

你在For Each循环里的逻辑存在错误——Man_cell本身就是遍历到的单个单元格对象，并非行号。你用Range("A" & Man_cell)相当于把单元格的内容当成行号拼接引用，一旦单元格内容不是有效行号（比如是文本），就会触发报错。

修正后的代码 #

Sub getcellvalue()
    Dim Man_Rows As Integer
    Man_Rows = Sheets("Managers").Cells(Rows.Count, "A").End(xlUp).Row

    Dim Man_Name As Variant
    Dim Man_cell As Range ' 改为Range类型更准确，避免类型混淆
    
    For Each Man_cell In Sheets("Managers").Range("A1:A" & Man_Rows)
        ' 直接从单元格对象读取值
        Man_Name = Man_cell.Value
        
        ' 此处编写你的业务逻辑
        ' 示例：Debug.Print Man_Name
    Next Man_cell
End Sub

额外优化建议 #

• 数据量较大时，可将整列数据读取到数组中处理，效率会显著提升：

Sub getcellvalue_fast()
    Dim Man_Rows As Integer
    Dim Man_Data As Variant
    Dim i As Integer
    
    Man_Rows = Sheets("Managers").Cells(Rows.Count, "A").End(xlUp).Row
    ' 将目标区域数据一次性读取到数组
    Man_Data = Sheets("Managers").Range("A1:A" & Man_Rows).Value
    
    ' 遍历数组获取值
    For i = 1 To UBound(Man_Data)
        Dim Man_Name As Variant
        Man_Name = Man_Data(i, 1)
        
        ' 此处编写你的业务逻辑
        ' 示例：Debug.Print Man_Name
    Next i
End Sub

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