VBA : 使用变量删除行

Question

我想删除从 2 到 z (z > 2) 的行。我写了 2 种方法，但都没有用。我搜索了答案但没有找到解决方案。

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

提前致谢。

Answer 1

您可以使用这一简单的一行来删除您需要的任意数量的行。

Rows("2:" & Z).Delete

Answer 2

您需要指定要 select 具有 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

VBA : Delete rows using variables