[已解决]求助：删除最后两行代码

清华

求助用vba代码：把B列最后2行值删除，把D列最后3行值删除，把F列最后两行值删除，

最佳答案

月排行榜 / 总排行榜

gdsgzhrsh

2012-11-27 15:04

这个不难吧，就相当于删除最后几个单元格的值
Sub aa()
With Sheet1
.Range("B1048576").End(3).ClearContents
.Range("B1048576").End(3).ClearContents
.Range("D1048576").End(3).ClearContents
.Range("D1048576").End(3).ClearContents
.Range("D1048576").End(3).ClearContents
.Range("F1048576").End(3).ClearContents
.Range("F1048576").End(3).ClearContents
End With
End Sub

跳转到最佳答案楼层

gdsgzhrsh

这个不难吧，就相当于删除最后几个单元格的值
Sub aa()
With Sheet1
.Range("B1048576").End(3).ClearContents
.Range("B1048576").End(3).ClearContents
.Range("D1048576").End(3).ClearContents
.Range("D1048576").End(3).ClearContents
.Range("D1048576").End(3).ClearContents
.Range("F1048576").End(3).ClearContents
.Range("F1048576").End(3).ClearContents
End With
End Sub

清华

gdsgzhrsh 发表于 2012-11-27 15:04
这个不难吧，就相当于删除最后几个单元格的值

兄弟呀　已经给我难的头大了

gdsgzhrsh

看楼上更新的附件，已经帮你弄出来了，看看是不是你想要的

gdsgzhrsh

我弄的是连续喝不连续行都行的，只删除最后的几行

清华

gdsgzhrsh 发表于 2012-11-27 15:16
我弄的是连续喝不连续行都行的，只删除最后的几行

兄弟呀　俺要的是不连续的删除

gdsgzhrsh

清华 发表于 2012-11-27 15:25
兄弟呀　俺要的是不连续的删除

合你胃口了吧？连不连续都可以的