VBA大量单元格clearcontents速度慢

动鱼教学

如下图所示，代码运行大概要6秒 ，Excel2016
边界行29999，其中几千行的空格都是有内容的
(已关闭screenupdating和enableevents)

请问各路大神，大量单元格的内容清空/格式更改速度是否还存在提升的空间?
不胜感激

约定的童话

换计算机吧

qline302

使用with...end with语句会帮助些许。行和列找规律配For语句循环执行也会有些提速帮助.

taller

1.ClearContents并不清除单元格格式，所有无需再次设置Font格式
2. 不知道待清除列是否连续，如果可以一次性清除，可以提升效率
3. 如果工作表有大量公式，清除单元格会触发重算，使用如下结构可以提升效率

1.     Application.Calculation = xlCalculationManual
   
2.     range(...).ClearContents
   
3.     range(...).Font..
   
4.     Application.Calculation = xlCalculationAutomatic

复制代码