excel复制的数组公式太多，数据庞大，运行耗时

zhaotong0506 · 发表于 2018-9-20 16:02

如附件，一共3个sheet文件，ALL，记录的是文件的信息，issue记录的是文件下发的时间，reply记录的是文件的回复状态及时间。
sheet中的蓝色的列都是我为了统计自己加的列，如B/C列记录的是文件号，实际下发的文件文件号只有一个号，有业主号记录业主号，没有业主号则记录内部号，因此我D列设的公式是如果有业主号则返回业主号，没有业主号则返回内部号。文件等级包含R/A/I/N四个等级，在issue中H列设置了公式，R/A/I三个等级如果遇到版本号是字母的则ALL中版本描述为对应的IFR/IFA/IFI；如果是数字，则版本描述为IFC。R/A/I这三个等级的文件需要一直追踪到结束。文件等级为N的版本描述全部为IFC，文件只需要追踪到0版。
文件太大，我进行了部分删除。实际上有5000多条记录，我运行一次计算都需要6个多小时，实在是太慢了，百度告诉我VBA可以解决，可是我完全不懂，求助大家帮我解决下，非常感谢，非常感谢，非常感谢。

opiona · 发表于 2018-9-22 09:49

将数组公式实现的功能全部改写为：VBA实现，需要时刷新即可

microyip · 发表于 2018-9-22 10:38

代码没什么问题啊，不知道你说的“漏”是什么概念
建议：

Sheets("录入").Range("B6:D17") = ""

复制代码

改成清空语句比较好

Sheets("录入").Range("B6:D17").ClearContents

复制代码

zhaotong0506 · 发表于 2018-9-25 17:11

opiona 发表于 2018-9-22 09:49
将数组公式实现的功能全部改写为：VBA实现，需要时刷新即可

VBA完全不懂啊，能帮我写一下吗？

		自动登录	找回密码
密码			免费注册

[求助] excel复制的数组公式太多，数据庞大，运行耗时