VBA：使用变量删除行

Question

我想删除从2到z（z＆gt; 2）的行。我写了2个方法，但都没有用。我搜索了答案，但没有找到解决方案。

'.Rows("2:" & z).Select  
.Range(Cells(2, 1), Cells(z, 10)).Select  
Selection.Delete Shift:=xlUp

提前谢谢。

Answer 1

您需要指定要选择EntireRow的行，因为您的范围只有几个单元格：

.Range(.Cells(2, 1), .Cells(z, 10)).EntireRow.Delete Shift:=xlUp

如果您直接使用Rows，则更简洁：

.Range(.Rows(2), .Rows(z)).Delete Shift:=xlUp

或者

.Rows("2:" & z).Delete Shift:=xlUp

Answer 2

您可以使用此简单的一行删除所需的任意行数。

Rows("2:" & Z).Delete