尝试MsgBox单元格引用地址时运行时错误“424”

我正在尝试返回单元格引用地址作为一个string。

1 Sub Test() 2 minLoc = Worksheets("Skills").Range("C2") 3 Dim Loc As String 4 Loc = minLoc.Address(RowAbsolute:=False, ColumnAbsolute:=False) 5 MsgBox (Loc) 6 End Sub 

错误“运行时错误”424“：”出现在第4行。

Answer 1

将minLoc更改为一个范围并进行设置。 就像你写的那样，VBA使用它作为string。 该string将没有.Address属性。

 Sub Test() Dim minLoc As Range Set minLoc = Worksheets("Skills").Range("C2") Dim Loc As String Loc = minLoc.Address(RowAbsolute:=False, ColumnAbsolute:=False) MsgBox (Loc) End Sub