如何删除多余的行以填充行

Question

我想删除多余的行：

收件人：

我需要能够动态地执行此操作，因为我的最后一行发生了更改，所以我无法明确地执行以下操作：

Rows(44).EntireRow.Delete
Rows(45).EntireRow.Delete
Rows(46).EntireRow.Delete

Answer 1

尝试一下：

dim last as long
last = Range("B" & rows.count).End(XlUp).Row + 1
Rows(last & ":" & rows.count).Delete

last查找最后使用的行，此后delete语句将删除从那里到末尾的所有行