Excel VBA问题：Range对象未返回实际区域而是单元格值

你的代码里Set rng = Worksheets("Sheet1").Range("A17")已经正确将A17单元格的Range对象赋值给rng变量了，之所以MsgBox弹出的是单元格值，是因为VBA的特性：当你在需要返回值的上下文（比如MsgBox的参数）中直接使用Range对象时，它会自动调用Range的默认属性Value，所以你看到的是单元格内容，而非对象本身。

验证rng是Range对象的方法 #

如果要确认rng确实指向了Range对象，可以显示它的单元格地址：

Sub test()
    Dim rng As Range
    Set rng = Worksheets("Sheet1").Range("A17")
    MsgBox rng.Address ' 弹出$A$17，证明rng是Range对象
End Sub

正确传递Range对象到其他过程 #

你可以直接把rng变量传递给其他子过程或函数，只要接收方的参数类型定义为Range即可，示例如下：

Sub test()
    Dim rng As Range
    Set rng = Worksheets("Sheet1").Range("A17")
    ' 将Range对象传递给子过程
    HandleRange rng
End Sub

Sub HandleRange(inputRng As Range)
    ' 在这里可以直接操作传入的Range对象
    inputRng.Interior.Color = vbYellow ' 给单元格上色
    MsgBox "当前操作的单元格：" & inputRng.Address
End Sub

额外提示 #

如果想查看变量的类型，可以用TypeName(rng)，执行MsgBox TypeName(rng)会弹出"Range"，进一步确认变量类型。

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