VBA宏根据J9指定单元格地址添加形状时触发Run-time error '424'错误

你遇到的错误根源是：Cell2只是从J9单元格取出的地址字符串（比如"$CW$178"），并不是真正的Range单元格对象，所以调用.Left和.Top这些单元格专属属性时，VBA会提示缺少对象。

修正后的代码如下：

Sub button0_Click()
    Dim targetCell As Range
    ' 将J9中的地址字符串转换为实际的单元格对象
    Set targetCell = Range(Range("J9").Value)
    ' 在目标单元格的左上角位置添加圆形形状
    Set shpOval = Shapes.AddShape(msoShapeOval, targetCell.Left, targetCell.Top, 50, 50)
End Sub

关键说明：

• 必须用Range(地址字符串)的方式，把文本格式的单元格地址转换成可操作的Range对象，这样才能读取它的位置属性
• 显式声明变量类型（比如Dim targetCell As Range）是更规范的写法，能避免很多类型相关的错误

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