[已解决]关于选择区域清空的问题。请教高手

跑跑2014

Range("A2:m" & Range("d65536").End(xlUp).Row).ClearContents　　只想清空包括Ａ2和Ａ2以下有内容的行，现在如果Ｄ2为空，那么这段代码就把第一行也清空了，我这句代码如何改正可以完成我想要的结果。

Range("A2:m65536“).ClearContents　不行，只能这样写了，
，

最佳答案

月排行榜 / 总排行榜

dsmch

2014-3-15 18:45

1. Sub Macro2()
   
2. '数据最后一行
   
3. x = ActiveSheet.UsedRange.Find("*", SearchDirection:=xlPrevious).Row
   
4. Range("A2:m" & x).ClearContents
   
5. End Sub
   

复制代码

跳转到最佳答案楼层

风林火山

判断条件是什么？

ghostjiao

{:251:}打酱油，让我看下你的附件

冠军欧洲2010

改成这样也不行么？
Range("A2:m" & Range("A65536").End(xlUp).Row).ClearContents　　

qh8600

应该首先确定一下，a-m列最后一个非空单元格在什么列，
比如是a列 ,就把XXX替换成a,如果是b列,就把XXX替换成b
Range("XXX65536").End(xlUp).Row

dsmch

1. Sub Macro2()
   
2. '数据最后一行
   
3. x = ActiveSheet.UsedRange.Find("*", SearchDirection:=xlPrevious).Row
   
4. Range("A2:m" & x).ClearContents
   
5. End Sub
   

复制代码

风林火山

这样再试试

1. Range("A3:m" & Range("d65536").End(xlUp).Row).ClearContents

复制代码

fffox

个人感觉，还是这样方便：

1. Intersect(UsedRange, UsedRange.Offset(1, 0)).ClearContents
   

复制代码

对工作表的usedrange和usedrange区域向下一行的区域取交集，对交集清空就可实现目标

跑跑2014

fffox 发表于 2014-3-15 21:01
个人感觉，还是这样方便：对工作表的usedrange和usedrange区域向下一行的区域取交集，对交集清空就可实现目 ...

对这句话暂时还不懂，如果直接放在代码中，会报错，如果A2为空，用我那句话会把第一行也删除，现在的目的是A2如果为空，使用这句话后，不会删除第一行，前提是不想用判断if。

跑跑2014

dsmch 发表于 2014-3-15 18:45

试了下，没出现问题。谢谢。