大家好！清空定VBA，请大神帮忙，非常感谢！

weifengcz

大家好！清空定VBA，请大神帮忙，非常感谢！ 修改VBA清空.zip (39.74 KB, 下载次数: 8)

2024-9-19 13:08 上传

点击文件名下载附件

饮冰e士

Sub test()
  Range("A1:A10000").ClearContents
End Sub

ynzsvt

1. Sub ss()
   
2. [a1:a10000].Clear
   
3. End Sub

复制代码

cyq4896

Sub test()
    Range("a1:a10000") = ""
End Sub

cyq4896

试一试...

smuuwl

Range("a1:a10000").ClearContents

ykcbf1100

才1万行，肯定是秒清啊。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.9.19
   
2.     With Sheets("Sheet1")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         .[a1].Resize(r, 1).ClearContents
   
5.     End With
   
6. End Sub
   

复制代码

usedrange

[a1].Resize(10000, 1).ClearContents
试试这个，删除制定单元格的内容