Bring Note contents into cells 2

[DanAuber]

In Excel, I have a column several thousand rows long with notes on some of the cells. I want to create another column next to this column which bring the text from the notes into the cells (so I can then quickly isolate all the cells with notes and sort by them).

Does anyone have a macro/way to do this ?

Thanks for any help

Dan

 

[combo]

You can use custom function, for instance:

Function GetComment(InputCell As Range) As String
If Not InputCell.Comment Is Nothing Then GetComment = Replace(InputCell.Comment.Text, Chr(10), " ")
End Function

Depending on the needs, you can only test for comment and set True/False to Boolean function, change Chr(10) replacement to something other than space etc.

combo