设置范围返回错误的地址

时间:2018-07-19 14:17:08

标签: excel vba

该代码根据活动单元格的位置设置范围。此范围将部分用于创建饼图。

Item.Address is $Z$6
ActiveCell.Address is $Z$5
Item.Offset(1, 0).Address is $Z$7
Item.End(xlDown).Offset(-1, 0).Address is $Z$13

我希望下面的代码返回地址$ Z $ 7:$ Z $ 13

Set DataRange = ActiveCell.Range(Item.Offset(1, 0), Item.End(xlDown).Offset(-1, 0))

但是它返回$ AY $ 11:$ AY $ 17的地址

此调用之前的类似逻辑有效

ActiveSheet.Range(ActiveCell.Offset(2, -1), ActiveCell.Offset(2, -1).End(xlDown).Offset(-1, 0)).Address is $Y$7:$Y$13

1 个答案:

答案 0 :(得分:0)

typo-ActiveCell.Range应该是Activesheet.Range