VBA : Delete rows using variables

Question

我想删除从 2 到 z (z > 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