FOR NEXT语句卡死怎么办？

twj007 · 发表于 2022-12-9 14:41

FOR NEXT语句卡死怎么办？

我有一个工作簿，可能其中使用VBA和公式都比较多，文档10多M了，现在想加入一个功能是把其中一个工作表数据更新的功能，数据有1万多接近2万行，所以我VBA语句用FOR NEXT语句把1至20000行先清空，再写入新的数据。但只是清空几条语句运行都导致工作簿卡死不动了。请问各大神应该咋办？
谢谢！

leirongqin · 发表于 2022-12-9 14:55

为什么要用FOR？ClearContents直接清空区域不行？

高个子 · 发表于 2022-12-9 15:03

那就把那些公式全部用代码解决，这样会好一点

twj007 · 发表于 2022-12-9 15:04

leirongqin 发表于 2022-12-9 14:55
为什么要用FOR？ClearContents直接清空区域不行？

一言惊醒。那问题来了，我目的是更新啊，还是要把新的内容写进去的啊，这时也就只能用FOR NEXT循环语句了吧？

leimingsen · 发表于 2022-12-9 15:08

twj007 发表于 2022-12-9 15:04
一言惊醒。那问题来了，我目的是更新啊，还是要把新的内容写进去的啊，这时也就只能用FOR NEXT循环语句了 ...

可以把数据先装入数组里，再一次性写入工作表中

leimingsen · 发表于 2022-12-9 15:09

twj007 发表于 2022-12-9 15:04
一言惊醒。那问题来了，我目的是更新啊，还是要把新的内容写进去的啊，这时也就只能用FOR NEXT循环语句了 ...

cao47112 · 发表于 2022-12-9 15:19

twj007 发表于 2022-12-9 15:04
一言惊醒。那问题来了，我目的是更新啊，还是要把新的内容写进去的啊，这时也就只能用FOR NEXT循环语句了 ...

用超大数组中转一下呢，然后粘贴

twj007 · 发表于 2022-12-9 15:23

cao47112 发表于 2022-12-9 15:19
用超大数组中转一下呢，然后粘贴

具体用什么语句？我其实比较小白。谢谢！

leirongqin · 发表于 2022-12-9 15:32

twj007 发表于 2022-12-9 15:04
一言惊醒。那问题来了，我目的是更新啊，还是要把新的内容写进去的啊，这时也就只能用FOR NEXT循环语句了 ...

Application.DisplayAlerts = False'关闭警告
Application.ScreenUpdating = False'关闭屏幕刷新
Application.Calculation = xlManual'关闭自动计算

把这些关了，然后运行循环语句，也是一个解决的办法。数据量比较大的话，建议用字典

Application.Calculation = xlAutomatic'开启自动计算
Application.DisplayAlerts = True'开启警告
Application.ScreenUpdating = True'开启屏幕刷新

zxsea_7426 · 发表于 2022-12-9 16:17

公式多本身就是卡的原因，而且文件还比较大，说明公式不会少，像我原来文件2～3MB的文件自动计算一次就需要花10～15分钟(当然原来是看电脑)，所以我才转到VBA来的

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

[求助] FOR NEXT语句卡死怎么办？