怎么表示删除不特定最后一行非空行之后的1000行？

小草看日出

打印学生考试条码时，总会出现最后的空行被打印软件识别为有内容而出现空条码，删除最后一行非空行之后的大约300行空行，就不会出现这个现象了，于是想在代码中加一句，删除每个文件每个工作表最后一行非空行之后的1000行，我用.Rows("(nRow + 1) :1000").Delete之后总是提示类型不匹配，不知怎么修改?请大神指导，谢谢。

nRow = .Range("a9999").End(xlUp).Row

.Rows("(nRow + 1) :1000").Delete

tanglf188

nRow = .Range("a9999").End(xlUp).Row

.Rows(nRow + 1 &":1000").Delete

大灰狼1976

.Rows(nRow + 1 & ":1000").Delete

shiruiqiang

要不逐行删，要不range(cells(nRow + 1,1),cells(nRow + 1000,100)).delete

小草看日出

tanglf188 发表于 2023-6-15 16:46
nRow = .Range("a9999").End(xlUp).Row

.Rows(nRow + 1 &":1000").Delete

谢谢指导，修改后能正常运行了。

小草看日出

大灰狼1976 发表于 2023-6-15 17:05
.Rows(nRow + 1 & ":1000").Delete

谢谢指导，这样修改后能正常运行了。

taller

LFH2578

.Rows(nRow + 1 &":1000").Delete

注意：当nRow+1>1000时，会进行反向删除两者的差数行数。
.Rows(nRow + 1 &":nRow+1000").Delete 才确保向下删除

小草看日出

LFH2578 发表于 2023-6-16 19:48
.Rows(nRow + 1 &":1000").Delete

注意：当nRow+1>1000时，会进行反向删除两者的差数行数。

谢谢提醒。