[已解决]怎么删行？

sdfsdfs

怎么让上下数据间隔5行？

最佳答案

月排行榜 / 总排行榜

zjdh

2013-9-24 22:08

Sub TEST()
  W1 = Range("A1").End(4).Row
  W2 = Range("A" & W1).End(4).Row
  If W2 - W1 > 6 Then Rows(W1 + 6 & ":" & W2 - 1).Delete
End Sub

跳转到最佳答案楼层

danio112

何为上下？

sdfsdfs

danio112 发表于 2013-9-24 21:31
何为上下？

1-20行数据为上，实际上不一定是20行

上清宫主

r1 = [a1].End(xlDown).Row + 1
If r1 >= [a65536].End(xlUp).Row Then Exit Sub '没有空就退出
r2 = Cells(r1, 1).End(xlDown).Row - 1
If r2 - r1 > 4 Then Range(r1 + 5 & ":" & r2).Delete  '空超过5行就删
If r2 - r1 < 4 Then Range(r1 & ":" & r1).Resize(4 - r2 + r1).Insert '空不足5行就加

zjdh

Sub TEST()
  W1 = Range("A1").End(4).Row
  W2 = Range("A" & W1).End(4).Row
  If W2 - W1 > 6 Then Rows(W1 + 6 & ":" & W2 - 1).Delete
End Sub

sdfsdfs

写的都不错，评哪个为最佳？