1

任何人都可以看到这段代码有什么问题。我收到“需要对象”错误:

Dim r As Range
Set r = Sheet2.ChartObjects("myChart").BottomRightCell.Address

看起来很简单,但它不会工作。我需要能够做到:

r.row 和 r.column

4

1 回答 1

2

ARange不是Address- 那是String. BottomRightCell返回一个Range

Dim r As Range
Set r = Sheet2.ChartObjects("myChart").BottomRightCell

add = r.Address
row = r.Row
col = r.Column
于 2012-07-20T09:59:53.580 回答