范围VBA内的ActiveCell.Address

Question

我想删除Cell＆＃34; A1＆＃34;中的所有行。到＆＃34; ActiveCell.Address＆＃34;

试过这段代码：

Range(" A1:ActiveCell.Address").Delete Shift:=xlUp

但是我收到了这个错误（运行时错误1004）。

是否可以在某个范围内引用ActiveCell的地址？

如果是的话，还有替代方案吗？

我的代码不正确吗？

先谢谢。

Answer 1

在您的代码中，您不会评估ActiveCell.Address，因为您已将其放入字符串中。试试：

Range("A1:" & ActiveCell.Address).Delete Shift:=xlUp

此外，这只会删除A1和ActiveCell之间的单元格。要删除行，请使用：

Range("A1:" & ActiveCell.Address).EntireRow.Delete Shift:=xlUp

Answer 2

你甚至不需要这个地址：

Range("A1", ActiveCell).Delete Shift:=xlUp

就足够了。