Xin chào các anh chị trên GPE
- Căn cứ Topic "Thắc mắc về VBA tìm kiếm thay Vlookup" của tác giả: gianghoxaotra
Tôi xin phép lấy File dữ liệu của tác giả để mở Topic này.
Tôi có dùng phương thức Find trong VBA để tìm kiếm thay cho Vlookup trên bảng tính. Tuy nhiên code chạy ì ạch (mất gần 2 phút, dùng DIC thì rẹt phát xong). Vậy em hỏi các anh/chị có biết nguyên nhân và giải pháp khắc phục.
Em xin cảm ơn.
- Căn cứ Topic "Thắc mắc về VBA tìm kiếm thay Vlookup" của tác giả: gianghoxaotra
Tôi xin phép lấy File dữ liệu của tác giả để mở Topic này.
Tôi có dùng phương thức Find trong VBA để tìm kiếm thay cho Vlookup trên bảng tính. Tuy nhiên code chạy ì ạch (mất gần 2 phút, dùng DIC thì rẹt phát xong). Vậy em hỏi các anh/chị có biết nguyên nhân và giải pháp khắc phục.
Mã:
Sub Find_Test()
Dim i&, Rng As Range, Arr(), KQ(), t As Double
t = Timer
Arr = Range(Sheet7.[AK2], [AK100000].End(3))
ReDim KQ(1 To UBound(Arr), 1 To 1)
For i = 1 To UBound(Arr)
Set Rng = Sheet9.[A:A].Find(Arr(i, 1), , , 1)
If Not Rng Is Nothing Then
KQ(i, 1) = Rng.Offset(, 1)
End If
Next
Sheet7.[AP2].Resize(i - 1, 1) = KQ
MsgBox Timer - t
End Sub
Em xin cảm ơn.