How to vlookup and return matching value with cell comment?

When you apply the Vlookup function to return the matching value, it will only extract the value without the formatting, such as fill color, font or comment etc. But, sometimes, you may need to vlookup and return the matched value including comment as well to get the following screenshot result. How could you solve this job in Excel?

Vlookup and return matching value with cell comment by using VBA code


Vlookup and return matching value with cell comment by using VBA code

The below VBA code may help you to vlookup and return matched value with its comment, please do as follows:

1. Hold down the ALT + F11 keys to open the Microsoft Visual Basic for Applications window.

2. Click Insert > Module, then copy and paste the following code in the Module Window.

VBA code: Vlookup and return matching value with cell comment:

Function VlookupComment(LookVal As Variant, FTable As Range, FColumn As Long, FType As Long) As Variant
'Updateby Extendoffice
    Application.Volatile
    Dim xRet As Variant 'could be an error
    Dim xCell As Range
    xRet = Application.Match(LookVal, FTable.Columns(1), FType)
    If IsError(xRet) Then
        VlookupComment = "Not Found"
    Else
        Set xCell = FTable.Columns(FColumn).Cells(1)(xRet)
        VlookupComment = xCell.Value
        With Application.Caller
            If Not .Comment Is Nothing Then
                .Comment.Delete
            End If
            If Not xCell.Comment Is Nothing Then
                .AddComment xCell.Comment.Text
            End If
        End With
    End If
End Function

3. And then save the code and close the code window, enter this formula: =vlookupcomment(H2,A2:C10,3,FALSE) into a blank cell to locate the result, and press Enter key, the matched value as well as the comment is returned at once, see screenshot:

Note: In the above formula, H2 is the lookup value you want to return its corresponding value, A2:C10 is the data table you want to use, the number 3 is the column number which contains the matched value you want to return.


The Best Office Productivity Tools

Kutools for Excel Solves Most of Your Problems, and Increases Your Productivity by 80%

  • Reuse: Quickly insert complex formulas, charts and anything that you have used before; Encrypt Cells with password; Create Mailing List and send emails...
  • Super Formula Bar (easily edit multiple lines of text and formula); Reading Layout (easily read and edit large numbers of cells); Paste to Filtered Range...
  • Merge Cells/Rows/Columns without losing Data; Split Cells Content; Combine Duplicate Rows/Columns... Prevent Duplicate Cells; Compare Ranges...
  • Select Duplicate or Unique Rows; Select Blank Rows (all cells are empty); Super Find and Fuzzy Find in Many Workbooks; Random Select...
  • Exact Copy Multiple Cells without changing formula reference; Auto Create References to Multiple Sheets; Insert Bullets, Check Boxes and more...
  • Extract Text, Add Text, Remove by Position, Remove Space; Create and Print Paging Subtotals; Convert Between Cells Content and Comments...
  • Super Filter (save and apply filter schemes to other sheets); Advanced Sort by month/week/day, frequency and more; Special Filter by bold, italic...
  • Combine Workbooks and WorkSheets; Merge Tables based on key columns; Split Data into Multiple Sheets; Batch Convert xls, xlsx and PDF...
  • More than 300 powerful features. Supports Office/Excel 2007-2019 and 365. Supports all languages. Easy deploying in your enterprise or organization. Full features 30-day free trial. 60-day money back guarantee.
kte tab 201905

Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

  • Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
  • Open and create multiple documents in new tabs of the same window, rather than in new windows.
  • Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day!
officetab bottom
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Meheimer · 1 months ago
    My comment is too large for the default box size. Is there any way to increase the comment box size or possibly decrease the font size?

    • To post as a guest, your comment is unpublished.
      Meheimer · 1 months ago
      If anyone else needs this.


      Function VlookupComment(LookVal As Variant, FTable As Range, FColumn As Long, FType As Long) As Variant
      'Updateby Extendoffice
      Application.Volatile
      Dim xRet As Variant 'could be an error
      Dim xCell As Range
      xRet = Application.Match(LookVal, FTable.Columns(1), FType)
      If IsError(xRet) Then
      VlookupComment = "-"
      Else
      Set xCell = FTable.Columns(FColumn).Cells(1)(xRet)
      VlookupComment = xCell.Value
      With Application.Caller
      If Not .Comment Is Nothing Then
      .Comment.Delete
      End If
      If Not xCell.Comment Is Nothing Then
      .AddComment xCell.Comment.Text
      .Comment.Shape.ScaleWidth 2, msoFalse, msoScaleFromTopLeft
      .Comment.Shape.ScaleHeight 2.5, msoFalse, msoScaleFromTopLeft
      End If
      End With
      End If
      End Function

  • To post as a guest, your comment is unpublished.
    Shamim Taifur · 2 months ago
    Thanks, It's helpful & I have something to ask
    It returns with cell comment but the Image (Inserted using fill effects ) does not show

    Please , help me out of this Issue
    • To post as a guest, your comment is unpublished.
      skyyang · 2 months ago
      Shamim,
      Sorry for that there is no direct code for solving your problem, if anyone has the solution, please comment here.
  • To post as a guest, your comment is unpublished.
    Frank Man · 4 months ago
    Frank
    Hello,

    In case of spreadsheet protected, when I open my workbook the cell return the error #VALUE!

    How we can solve this problem?
    • To post as a guest, your comment is unpublished.
      skyyang · 2 months ago
      Hello, Frank,
      After inserting the code, you should save your workbook as Excel Macro-Enabled Workbook format, so that the code will not lose.
      Please try! Thank you!
  • To post as a guest, your comment is unpublished.
    vtsrtwr@gmail.com · 5 months ago
    Can we use cell in column B (order column) as comment for cell in column C (name). exc, comment for Helen is 80.
    thank you for your help.
  • To post as a guest, your comment is unpublished.
    dac8767 · 1 years ago
    Is there a way that the vlookup comment copies the formatting of the original comment? Some of my comments are very long, but the comment returned from vlookup is always the standard small size, so I can't read all the text
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hello, Carl,
      May be there isn't a direct way for solving your problem, but, you can drag the comment box larger manually. Or you can apply our Kutools for Excel's Autofit Comment feature, it can help you to adjust the comment box to fit the content.Thank you!
  • To post as a guest, your comment is unpublished.
    Josh · 2 years ago
    How would I do the same as an Hlookup instead of vlookup?

    I changed the code as follows:
    Function hlookupComment(LookVal As Variant, FTable As Range, Frow As Long, FType As Long) As Variant
    'Updateby Extendoffice
    Application.Volatile
    Dim xRet As Variant 'could be an error
    Dim xCell As Range
    xRet = Application.Match(LookVal, FTable.Rows(1), FType)
    If IsError(xRet) Then
    hlookupComment = "Not Found"
    Else
    Set xCell = FTable.Rows(Frow).Cells(1)(xRet)
    hlookupComment = xCell.Value
    With Application.Caller
    If Not .Comment Is Nothing Then
    .Comment.Delete
    End If
    If Not xCell.Comment Is Nothing Then
    .AddComment xCell.Comment.Text
    End If
    End With
    End If
    End Function