从1到p删除多行

我试图删除从2到第2页的多行。

通常，如果你想删除2到1234行，你可以这样做：

Rows("2:1234").EntireRow.Delete 

所以我想我应该尝试一下：

 dim p as long, p = (Range("N2").Value) Rows("2:p").EntireRow.Delete 

但是我有一个错误。 （ types不匹配 ）

任何人有一个想法该怎么做？

当然，我也可以这样删除行

 for i = 2 to p Rows(2).EntireRow.Delete next i 

但我认为这需要更多的时间 – 告诉我，如果我错了。

Answer 1

p是一个variables。 当你把它放在引号内时，它被视为一个string。 这是你正在尝试？

 Dim p As Long p = Range("N2").Value Rows("2:" & p).EntireRow.Delete