level 2
level 2
level 8
把所有数据都放数组里就不会卡死了，几万v几万的话得好一会儿呢
2024年07月19日 09点07分
3
不知道搞蛙，可以不可以教一下。我手动我一般手动操作vlookup公式匹配捯是不卡的。几秒就ok了。
2024年07月19日 09点07分
level 8
顺便问一下楼下大佬，这种情况数组之间循环比对快，还是用index函数快？
2024年07月19日 09点07分
4
index操作单元格，数据大肯定慢咯
2024年07月19日 19点07分
回复 贴吧用户_QGDQN8V :是用index操作数组
2024年07月20日 10点07分
level 4
我乱写的，没有数据我也不知道写得对不对
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
2024年07月19日 09点07分
5
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
蟹蟹，我一会上机试下，可能我思路不太对，我想不用在vba实现匹配，原先想的是用vba根据数据的行数循环插入vlookup公式，，让vlookup公式帮我实现匹配![[哈哈]](/static/emoticons/u54c8u54c8.png)
2024年07月19日 10点07分
level 5
这样写 是很慢 其实你可以看看excel 自填充的代码 他根本不需要用循环。循环这个东西别轻易用 数据多了会超级卡
2024年07月19日 11点07分
6
我记得是 autofilter destination lastr
2024年07月19日 11点07分
@哈根达斯1224MH 是，我把循环删了，用向下填充一点都不卡，okk![[玫瑰]](/static/emoticons/u73abu7470.png)
2024年07月19日 13点07分
level 7
level 6
level 1
level 1
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
2024年07月20日 10点07分
10
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
