Vlookup lấy luôn comment của ô tìm được (1 người xem)

[choioi]

Mình cần lấy dữ liệu comment khi vlookup , mình đã xem các diễn dàn nhưng hình như chỉ xài được khi dùng VBA , mà mình thì gà mờ vụ VBA , nhờ các cao thủ giúp với .

Sheet 1 : chứa dữ liệu quê quán, có comment thuộc miền tây, miền trung..
Sheet 2 : là Sheet vlookup mình muốn lấy dữ liệu và có luôn comment

 

[choioi]

Mình đã tìm được cách làm thành công , dùng 2 hàm.

1 Sheet để tách comment , 1 sheet gán comment vào dữ liệu lại. Mình gửi kèm file đã làm thành công, hy vọng có cao thủ nào có thể làm ngắn gọn hơn!

 

[ndu96081631]

Mình đã tìm được cách làm thành công , dùng 2 hàm.

1 Sheet để tách comment , 1 sheet gán comment vào dữ liệu lại. Mình gửi kèm file đã làm thành công, hy vọng có cao thủ nào có thể làm ngắn gọn hơn!

Bạn dùng hàm này sẽ vừa VLOOUP vừa lấy luôn comment

Function ComLookup(Lookup_Value, Table_Range As Range, Col_Index As Long)
  Dim rFind As Range, rRes As Range, rSel As Range
  'On Error Resume Next
  Application.Volatile
  ComLookup = CVErr(xlErrNA)
  Set rSel = Application.ThisCell
  If Not rSel.Comment Is Nothing Then rSel.Comment.Delete
  Set rFind = Table_Range.Resize(, 1).Find(Lookup_Value, , xlValues, xlWhole)
  If Not IsEmpty(Lookup_Value) Then
    If Not rFind Is Nothing Then
      Set rRes = rFind(, Col_Index)
      ComLookup = rRes.Value
      If Not rRes.Comment Is Nothing Then rSel.AddComment rRes.Comment.Text
    End If
  End If
End Function

Áp dụng tại Sheet2: =ComLookup(A1,Sheet1!$A$1:$B$6,2)
Thử xem

 

[choioi]

Bạn dùng hàm này sẽ vừa VLOOUP vừa lấy luôn comment

Function ComLookup(Lookup_Value, Table_Range As Range, Col_Index As Long)
  Dim rFind As Range, rRes As Range, rSel As Range
  'On Error Resume Next
  Application.Volatile
  ComLookup = CVErr(xlErrNA)
  Set rSel = Application.ThisCell
  If Not rSel.Comment Is Nothing Then rSel.Comment.Delete
  Set rFind = Table_Range.Resize(, 1).Find(Lookup_Value, , xlValues, xlWhole)
  If Not IsEmpty(Lookup_Value) Then
    If Not rFind Is Nothing Then
      Set rRes = rFind(, Col_Index)
      ComLookup = rRes.Value
      If Not rRes.Comment Is Nothing Then rSel.AddComment rRes.Comment.Text
    End If
  End If
End Function

Áp dụng tại Sheet2: =ComLookup(A1,Sheet1!$A$1:$B$6,2)
Thử xem

Tuyệt vời . cảm ơn ndu96081631