Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 6079|回复: 2

[已解决]相同VBA代码计算很耗时

[复制链接]
发表于 2021-7-6 13:26 | 显示全部楼层 |阅读模式
3学分
本帖最后由 beachum 于 2021-7-6 13:38 编辑

请大神帮帮忙!同样的vba代码,为什么在计算C列到H列有数据的表格时,非常耗时;而C列到H列没有数据的计算时间很短!
附件中有.xlsm 文件,以及运计算前和计算后的样本。
谢谢!
最佳答案
2021-7-6 13:26
加上蓝色那两句   


Application.Calculation = xlManual
For i = 10 To [b1].End(4).Row
   Cells(i, 10) = "=average(r[-9]c[-8]:rc[-8])"
Next
Application.Calculation = xlAutomatic
wb.Close 1

祝順心,南無阿彌陀佛!


新建文件夹 (1) 计算后.zip

260.1 KB, 下载次数: 5

新建文件夹 (1).zip

149.48 KB, 下载次数: 3

新建文件夹 (2).zip

756.73 KB, 下载次数: 3

新建文件夹 (2) 计算后.zip

857.58 KB, 下载次数: 2

最佳答案

查看完整内容

加上蓝色那两句 Application.Calculation = xlManual For i = 10 To .End(4).Row Cells(i, 10) = "=average(r[-9]c[-8]:rc[-8])" Next Application.Calculation = xlAutomatic wb.Close 1 祝順心,南無阿彌陀佛!
发表于 2021-7-6 13:26 | 显示全部楼层    本楼为最佳答案   
加上蓝色那两句   


Application.Calculation = xlManual
For i = 10 To [b1].End(4).Row
   Cells(i, 10) = "=average(r[-9]c[-8]:rc[-8])"
Next
Application.Calculation = xlAutomatic
wb.Close 1

祝順心,南無阿彌陀佛!


评分

参与人数 1学分 +2 收起 理由
beachum + 2 学习了

查看全部评分

回复

使用道具 举报

 楼主| 发表于 2021-7-8 12:59 | 显示全部楼层
cutecpu 发表于 2021-7-6 13:26
加上蓝色那两句     

非常感谢您的帮助!

评分

参与人数 1学分 +2 收起 理由
cutecpu + 2 不客气。祝顺心,南无阿弥陀佛!

查看全部评分

回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-16 09:28 , Processed in 0.167321 second(s), 15 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表