[已解决]求助 条件删除的代码

苗春雨

求助 删除代码.zip (12.22 KB, 下载次数: 6)

2012-10-12 16:28 上传

点击文件名下载附件 求助  条件删除的代码，见附件

最佳答案

月排行榜 / 总排行榜

zjdh

2012-10-12 17:43

Sub 以单元格数字制指定范围复制删除()
    Z = Range("b6")    '行数
    Range("A10:l10").Copy Range("A11:l" & 10 + Z)    '复制区域
    With ActiveSheet
          .Range(.Cells(11 + Z, 1), .Cells(65536, 12)).Clear
    End With
End Sub

跳转到最佳答案楼层

展翅

不是做好了吗？

原数据有N行，输入2执行后就保留了2行，多余的已经删掉了。

苗春雨

不是的。还有剩余的没删掉。原来做的是以F列有数据就删除，不是以指定单元格为依据。请给修改一下。谢谢

zjdh

Sub 以单元格数字制指定范围复制删除()
    Z = Range("b6")    '行数
    Range("A10:l10").Copy Range("A11:l" & 10 + Z)    '复制区域
    With ActiveSheet
          .Range(.Cells(11 + Z, 1), .Cells(65536, 12)).Clear
    End With
End Sub