[已解决]代码求简化

fcdd

i = Range("P65536").End(3).Offset(200, -14).Row
Range("C13:C" & i).ClearContents 'C列清除
请大侠出手简化代码

最佳答案

月排行榜 / 总排行榜

xdragon

2013-10-11 16:01

1. Range("C13:C" & Range("P65536").End(3).Offset(200, -14).Row).ClearContents

复制代码

这个貌似不是清除C列单元格内容吧，具体你没原始文件不是特别清楚

如果是删除C列所有内容的，使用下面的代码吧

1. Columns(3).ClearContents

复制代码

跳转到最佳答案楼层

xdragon

1. Range("C13:C" & Range("P65536").End(3).Offset(200, -14).Row).ClearContents

复制代码

这个貌似不是清除C列单元格内容吧，具体你没原始文件不是特别清楚

如果是删除C列所有内容的，使用下面的代码吧

1. Columns(3).ClearContents

复制代码

那么的帅

i=Range("P65536").End(3).Offset(200, -14).Row '找到P列非空单元格，再向上200行，向左14列的行号，
可修改为  i = Range("P65536").End(3).Row  '取到P列非空单元格行号，即可,把行号向上，改到下面的语句，至于列向左，因为列如何偏移，与得到的行号无关，所以可以不用对列进行调整
Range("C13:C" & i - 200).ClearContents 'C列清除

修改后代码

1. i = Range("P65536").End(3).Row
   
2. Range("C13:C" & i - 200).ClearContents

复制代码

如果变成一句代码为

1. Range("C13:C" & Range("P65536").End(3).Row - 200).ClearContents

复制代码