用于删除宏复制期间未粘贴的行的宏代码＆amp;粘贴动作

Question

我正在尝试编写一个宏代码，它会删除底部的所有行，这些行在复制粘贴期间未粘贴。

我有一个网站列表，今天的数量为200，明天为180.

当我的宏执行复制粘贴时，它是昨天的200和今天的180，我希望它能够自动识别底部的20行需要删除，因为它们没有被粘贴。

有办法做到这一点吗？

现在我有了这个，但它只删除了最后3个网站

ActiveCell.Offset(8581, 0).Rows("1:3").EntireRow.Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp

Answer 1

我推断，在复制操作过程中，神奇的数字8581是以某种方式确定的。

dim n as long

n = 8581
ActiveCell.Offset(n, 0).Resize(rows.count - n - activecell.row, 1).EntireRow.Delete Shift:=xlUp