Thay thế hàm VLookup (2 người xem)

[duhero]

Tình hình là e có dữ liệu lên đến hàng triệu row dùng hàm VLookup thì load khá lâu mặc dù máy e Core i3 ram 16GB mà load ì ạch. Xin hỏi các cao thủ phương pháp nào thay thế hàm Vlookup cho nó nhanh ko ạ?

 

[Quang_Hải]

Tình hình là e có dữ liệu lên đến hàng triệu row dùng hàm VLookup thì load khá lâu mặc dù máy e Core i3 ram 16GB mà load ì ạch. Xin hỏi các cao thủ phương pháp nào thay thế hàm Vlookup cho nó nhanh ko ạ?

Trong VBA có hàm Find chuyên dùng thay thế cho hàm VLookup

 

[duhero]

Em muốn tham chiếu từ cột D sheet all sang cột E sheet2, (dựa vào cột mã số) bác xem giúp em với được không ạ?

Private Sub Worksheet_Change(ByVal Target As Range)
Dim d, I, Vung, Ws
Set d = CreateObject("scripting.dictionary")
Set Ws = Sheets("all")
Vung = Ws.Range(Ws.[C2], Ws.[C10000].End(xlUp)).Resize(, 4)
If Not Intersect(Target, Range("C4:C1000")) Is Nothing Then
If Target.Count = 1 Then
For I = 1 To UBound(Vung)
d.Add Vung(I, 1), Array(Vung(I, 2), Vung(I, 3), Vung(I, 4))
Next I
If d.exists(UCase(Target.Value)) Then
Target.Offset(, 2) = d.Item(UCase(Target.Value))(1)


End If
End If
End If
End Sub