求一个VBA宏

来源：百度知道编辑：UC知道时间：2024/05/29 23:26:36

自A9行开始，以下所有行的数据清空
你那个只清了第一列的，我要清9至9以下的1到8列
————————————————————————
回2楼，谢谢你，但是我想知道只清1到8列的，8以后的不清。。

这个用手动更快更直接啊！！
你下面有多少行数据啊？
sub doclear()
i=9
do while cells(i,1)<>""
range(cells(i,1),cells(i,8))=""
i=i+1
loop
end sub
可以了

不止一列吧？
Sub Clear()
Rows("9:9").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
End Sub