Mọi người giúp em hàm Vlookup với

[trungqucb]

Em muốn lấy tên chủ rừng từ cột C vào cột G điều kiện là cột E và F trùng với cột A và B
Mọi người giúp em với em mới dùng Excel ạ

 

[snow25]

Em muốn lấy tên chủ rừng từ cột C vào cột G điều kiện là cột E và F trùng với cột A và B
Mọi người giúp em với em mới dùng Excel ạ
View attachment 207993

vậy bạn dùng hàm VLookup bình thường nhưng ghép điều kiện vào với nhau là được.chắc mình nghĩ tạo thêm cột phụ à.

 

[Loc Uyen]

Em muốn lấy tên chủ rừng từ cột C vào cột G điều kiện là cột E và F trùng với cột A và B
Mọi người giúp em với em mới dùng Excel ạ
View attachment 207993

Bạn tham khảo hàm Lookup(2,1/....) trong bài #8 Link này nhé!

 

[Nguyễn Hồng Quang]

Bạn nghiên cứu Dùng index kết hợp với match cho dễ hiểu.

 

[phihndhsp]

Em muốn lấy tên chủ rừng từ cột C vào cột G điều kiện là cột E và F trùng với cột A và B
Mọi người giúp em với em mới dùng Excel ạ
View attachment 207993

Gởi file lên đi, dạng bài này có cả tá cách làm

 

[trungqucb]

đây b ơi ở trong sheet 1 nha b

Gởi file lên đi, dạng bài này có cả tá cách làm

 

[Loc Uyen]

đây b ơi ở trong sheet 1 nha b

Cái file gửi lên không có sheet 1 nơi bạn ơi,
Với lại dữ liệu trên 10000 dòng thế này nên nhờ mấy anh viết code cho lẹ. hì

 

[trungqucb]

Cái file gửi lên không có sheet 1 nơi bạn ơi,
Với lại dữ liệu trên 10000 dòng thế này nên nhà mấy anh viết code cho lẹ. hì

em vừa sửa lại rồi a giúp em với

 

[Loc Uyen]

em vừa sửa lại rồi a giúp em với

Công thức ô G2, kéo xuống nhé!
=LOOKUP(2,1/($A$2:$A$12623=E2)/($B$2:$B$12623=F2),$C$2:$C$12623)
Trong khi chờ mấy anh viết code

 

[snow25]

Em muốn lấy tên chủ rừng từ cột C vào cột G điều kiện là cột E và F trùng với cột A và B
Mọi người giúp em với em mới dùng Excel ạ
View attachment 207993

Sub vlookup()
   Dim i As Long, j As Long
   Dim arr, arr1, arr2
   Dim dic As Object
   Dim dk As String
   Set dic = CreateObject("scripting.dictionary")
   With Sheet3
       arr = .Range("a2:c" & .Range("a" & Rows.Count).End(xlUp).Row).Value
       arr1 = .Range("e2:g" & .Range("e" & Rows.Count).End(xlUp).Row).Value
       For i = 1 To UBound(arr, 1)
       dk = arr(i, 1) & "#" & arr(i, 2)
           If dic.exists(dk) = 0 Then
               dic.Item(dk) = Array(arr(i, 3))
           End If
       Next i
       For i = 1 To UBound(arr1, 1)
           dk = arr1(i, 1) & "#" & arr1(i, 2)
           If dic.exists(dk) Then
              arr1(i, 3) = dic.Item(dk)(0)
           Else
              arr(i, 3) = "khong tim thay"
           End If
       Next i
   .Range("e2").Resize(UBound(arr1, 1), 3).Value = arr1
   End With
End Sub

bạn lắp code này vào chạy xem thế nào nhé

 

[Loc Uyen]

Sub vlookup()
   Dim i As Long, j As Long
   Dim arr, arr1, arr2
   Dim dic As Object
   Dim dk As String
   Set dic = CreateObject("scripting.dictionary")
   With Sheet3
       arr = .Range("a2:c" & .Range("a" & Rows.Count).End(xlUp).Row).Value
       arr1 = .Range("e2:g" & .Range("e" & Rows.Count).End(xlUp).Row).Value
       For i = 1 To UBound(arr, 1)
       dk = arr(i, 1) & "#" & arr(i, 2)
           If dic.exists(dk) = 0 Then
               dic.Item(dk) = Array(arr(i, 3))
           End If
       Next i
       For i = 1 To UBound(arr1, 1)
           dk = arr1(i, 1) & "#" & arr1(i, 2)
           If dic.exists(dk) Then
              arr1(i, 3) = dic.Item(dk)(0)
           Else
              arr(i, 3) = "khong tim thay"
           End If
       Next i
   .Range("e2").Resize(UBound(arr1, 1), 3).Value = arr1
   End With
End Sub

bạn lắp code này vào chạy xem thế nào nhé

Em mới tập đọc code cho em hỏi cái này tí ạ, hihi, tại sao khi khai báo có khai báo mảng Arr2 nhưng bên dưới em lại không thấy dùng tới ạ?Em cám ơn.

 

[snow25]

Em mới tập đọc code cho em hỏi cái này tí ạ, hihi, tại sao khi khai báo có khai báo mảng Arr2 nhưng bên dưới em lại không thấy dùng tới ạ?Em cám ơn.

à khai báo định dùng nhưng khi làm nghĩ lại ko cần nên thôi ,không muốn xóa bạn à

 

[Loc Uyen]

à khai báo định dùng nhưng khi làm nghĩ lại ko cần nên thôi ,không muốn xóa bạn à

À ra vậy, hihi

 

[trungqucb]

em làm được rồi cảm ơn các bác nhiều lắm ạ

 

[trungqucb]

anh snow25 ơi giúp em với em làm file khác lắp code vào nhưng không chạy được
link file Excel: http://upfile.vn/IsGCu5ZCMqBC/themtenchurung-xlsx.html