刚学vba，用个for表格直接卡死了，求大佬帮忙看看

这个lastr在2万左右。
主要是在第6列第3行单元格，插了个vlookup公式。
然后运行后就猛转圈，转了好久，有时候把表格卡无响应了。是不是写的有问题。

把所有数据都放数组里就不会卡死了，几万v几万的话得好一会儿呢

顺便问一下楼下大佬，这种情况数组之间循环比对快，还是用index函数快？

我乱写的，没有数据我也不知道写得对不对
Sub test()
Workbooks.Open ("E:\工作文件夹\记录\无效IOSS号.xlsx")
Set sht = Workbooks("无效IOSS号.xlsx").Sheets("Sheet1")
arr = sht.Range("A1:A" & [a65536].End(3).Row)
Workbooks("无效IOSS号.xlsx").Close False
Set sht1 = ActiveSheet
arr1 = sht1.Range("E1:F" & [E65536].End(3).Row)
For i = 3 To UBound(arr1)
For j = 1 To UBound(arr)
If arr1(i, 1) = arr(j, 1) Then
arr1(i, 2) = arr(j, 1)
Exit For
End If
Next
Next
sht1.Range("E1:F" & [E65536].End(3).Row) = arr1
End Sub

这样写是很慢其实你可以看看excel 自填充的代码他根本不需要用循环。循环这个东西别轻易用数据多了会超级卡

你是在单元格填充了公式
每填充一个单元格，所有公式都会重新计算一次
如果非要写入公式
可以在循环前加上Application.Calculation = xlManual 关闭自动计算
循环后加上Application.Calculation = xlAutomatic恢复自动计算

都用vba了就不需要插入公式了

哥们，这种小需求直接让豆包帮你写

Sub test()
dim wb as worksheet
dim wsA as worksheet,wsB as worksheet
dim RowA
application.EnableEvents = false
application.ScreenUpdating = false
set wb = Workbooks.Open ("E:\工作文件夹\记录\无效IOSS号.xlsx")
Set wsa = thisWorkbook.Sheets("Sheet1")
set wsb = activesheet
RowA=wsb.range("E" & wsb.rows.count).end(xlup).row
with wsb
.range("F3“).Formula = "VLookUP(E3,'" & wb.fullpath & "'[" & wsa.name & "!]$A:$A,1,0)"
.range("F3").autofill .range("F3:F" & rowa)
end with
wb.close false
application.EnableEvents = True
application.ScreenUpdating = True
End Sub

for里面加一个doevents，速度不会变快，但是应该不会卡死了

为什么不用python

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

18回复贴，共1页

<<返回vba吧

分享到:

日	一	二	三	四	五	六