ActiveCell.Address在範圍內VBA

Question

我想刪除其中的所有單元格「A1」的行以「ActiveCell.Address」

嘗試這種代碼：

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 

就足夠了。