VBA中Range对象选取单元格出现偏差的原因及解决方法

首先，你遇到的问题核心在于**Range.Cells方法的列参数是相对于当前Range对象的相对位置，而非工作表的绝对列号**。

你的代码里rnge指向的是Range("sheet1!$B$2:$B$3")，这是一个1列2行的独立区域：

• 对于这个区域本身来说，它的内部列索引是从1开始的（B列在这个区域里是第1列）
• 但rnge.Column返回的是工作表层面的绝对列号，也就是2（对应B列的系统列号）

所以当你写rnge.Cells(i, rnge.Column)时，相当于在rnge这个只有1列的区域里，去取第i行、第2列的单元格——Excel会自动扩展到相邻的C列来满足这个超出范围的引用，最终就选中了C2和C3。

另外补充个小细节：默认情况下VBA里的Select会覆盖之前的选中状态，正常循环结束后只会选中最后一个单元格（C3），如果你的实际结果是同时选中C2和C3，大概率是手动配合了Ctrl键或者代码里有其他未展示的多选逻辑，但核心的列索引错误是问题根源。

这里有几种简单的修正方式，按需选择：

方法1：使用相对列索引（推荐） #

既然rnge是单列区域，直接用相对列号1来引用它内部的列：

Function test()
    Dim rnge As Range
    Set rnge = Range("sheet1!$B$2:$B$3")
    For i = 1 To rnge.Count
        ' 用相对列1，对应rnge里的第一列（也就是B列）
        rnge.Cells(i, 1).Select
        ' 如果需要多选，可以用Union组合选中区域：
        ' If i = 1 Then
        '     rnge.Cells(i, 1).Select
        ' Else
        '     Union(Selection, rnge.Cells(i, 1)).Select
        ' End If
    Next i
End Function

方法2：直接引用Cells的顺序索引（更简洁） #

因为rnge是连续的单列区域，rnge.Cells(i)会直接对应区域里的第i个单元格，不需要额外指定列：

Function test()
    Dim rnge As Range
    Set rnge = Range("sheet1!$B$2:$B$3")
    For i = 1 To rnge.Count
        rnge.Cells(i).Select
        ' 多选逻辑同样可以用Union实现
    Next i
End Function

方法3：直接选中整个区域（如果不需要循环操作） #

如果你的需求只是选中B2:B3，完全不需要循环，一步到位更高效：

Function test()
    Dim rnge As Range
    Set rnge = Range("sheet1!$B$2:$B$3")
    rnge.Select
End Function

这样就能准确选中你预期的B2和B3单元格了。

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