清空指定范围数据

kandhong88

老师：
      我请教的问题是：用VBA清空指定区域数据
数据区域为AD5:WRM224，共计16000列数据，现在想要将该区域数据清空，我用的VBA为：
   sum清空()
       range("ad5:wrm224").select
       selection.clearcontents
   end sub

这个VBA代码运行起来，20多分钟也清空不了数据区域。请老师给予高效代码。

不知道为什么

2句写成一句试试

taller

估计是公式重算或者系统事件引起的，试试

1. Sub Çå¿Õ()
   
2.     Application.Calculation = xlManual
   
3.     Application.EnableEvents = False
   
4.     Range("ad5:wrm224").ClearContents
   
5.     Application.Calculation = xlAutomatic
   
6.     Application.EnableEvents = True
   
7. End Sub
   

复制代码

kandhong88

不知道为什么 发表于 2020-3-15 14:28
2句写成一句试试

老师：
     我把代码写成下列形式，还是不行，运行速度太慢了。
sum清空()
       range("ad5:wrm224").clearcontents
   end sub

不知道为什么

kandhong88 发表于 2020-3-15 14:45
老师：
     我把代码写成下列形式，还是不行，运行速度太慢了。
sum清空()

那是不是该区域有关联大量的公式，涉及到重新计算？
没有附件 就猜猜了