Application.GoTo Reference:=SheetData.Range("A" & SheetData.ChartObjects(1).TopLeftCell.Column), Scroll:=True
Application.GoTo Reference:=sheetdata.Range("A1"), Scroll:=True
With ActiveSheet.Shapes(1).TopLeftCell
R = .Row
C = .Column
End With
07-29
1万+
![](https://csdnimg.cn/release/blogv2/dist/pc/img/readCountWhite.png)