dò tìm thay cho hàm vlookup bằng VBA (2 người xem)

[phamkimhuy]

mình có tải file lên và mô tả trong file
mình muốn thay vì dùng hàm vlookup thì dùng VBa
mong cao thủ trợ giúp

 

[Cá ngừ F1]

Dùng thử phương thức Find
Nhập Mã, click "cập nhât". Tương tự bạn thử chế cho tìm Mã 2 xem sao

Sub TimKiem()
'On Error Resume Next
Dim i&, Ma(), KQ(), Rng As Range
Ma = Range(Sheets("Data").[B5], Sheets("Data").[B10000].End(3))
ReDim KQ(1 To UBound(Ma), 1 To 1)
For i = 1 To UBound(Ma)
Set Rng = Sheets("MA").[B3:B10000].Find(Ma(i, 1), , , 1)
If Not Rng Is Nothing Then
    k = k + 1
    KQ(k, 1) = Rng(, 2)
End If
Next
Sheets("Data").Range("C6").Resize(i - 1, 1) = KQ
End Sub

 

[phamkimhuy]

cảm ơn bạn nha
[