Sửa code cho hàm Vlookup

[Phương Phương mito]

Kính gửi ANh chị
Em có File chứa code cho hàm Vlookup (Kết quả muốn ra như ở cột K tại Sheet Ketqua). Tuy nhiên code báo lỗi (Lý do theo em hiểu là do bảng gắn với nó ở dạng Pivotable lên nó bị lỗi, yêu cầu của em là bắt buộc vùng B3:J22 tại sheet ketqua là dạng Pivotable ạ, em chưa biết sửa thế nào ạ). Anh chị giúp em sửa với ạ. Em cảm ơn ạ.

 

[Maika8008]

Kính gửi ANh chị
Em có File chứa code cho hàm Vlookup (Kết quả muốn ra như ở cột K tại Sheet Ketqua). Tuy nhiên code báo lỗi (Lý do theo em hiểu là do bảng gắn với nó ở dạng Pivotable lên nó bị lỗi, yêu cầu của em là bắt buộc vùng B3:J22 tại sheet ketqua là dạng Pivotable ạ, em chưa biết sửa thế nào ạ). Anh chị giúp em sửa với ạ. Em cảm ơn ạ.

Bạn dán mảng kết quả chồng lên vùng kết quả Pivot thì sao không lỗi được? Dán ra chỗ khác chứ, ví dụ N5

 

[Phương Phương mito]

Thực tế, sheet Ketqua của em là Pivot ra từ Sheet Data anh ạ. Và yêu cầu thực tế là thế và cái cột K là cột em thêm tiếp vào vùng kết quả B:J (Pivotable)

 

[HieuCD]

Kính gửi ANh chị
Em có File chứa code cho hàm Vlookup (Kết quả muốn ra như ở cột K tại Sheet Ketqua). Tuy nhiên code báo lỗi (Lý do theo em hiểu là do bảng gắn với nó ở dạng Pivotable lên nó bị lỗi, yêu cầu của em là bắt buộc vùng B3:J22 tại sheet ketqua là dạng Pivotable ạ, em chưa biết sửa thế nào ạ). Anh chị giúp em sửa với ạ. Em cảm ơn ạ.

Chỉ cần tạo 1 cột mới

Sub Do_Tim()
Dim Dic As Object, Ma(), sArr(), Res(), i As Long, sRow As Long

Set Dic = CreateObject("scripting.dictionary")
With Sheet2
   Ma = .Range("A2", .Range("A" & Rows.Count).End(3)).Resize(, 3).Value
End With
For i = 1 To UBound(Ma)
   Dic(Ma(i, 1)) = Ma(i, 3)
Next
With Sheet3
   sArr = .Range("B5:B21").Value
End With
sRow = UBound(sArr)
ReDim Res(1 To sRow, 1 To 1)
For i = 1 To sRow
   If Dic.exists(sArr(i, 1)) Then
      Res(i, 1) = Dic.Item(sArr(i, 1))
   End If
Next
Sheet3.[K5].Resize(sRow) = Res
End Sub