根据单元格注释获取单元格值

Question

如果单元格注释与我的输入字符串匹配，我需要获取单元格值。 无论如何要做到这一点？

每个单元格都有日期和注释，如果评论与我的搜索匹配，那么我需要将其移动到另一个单元格：

Answer 1

你可以试试这个

Option Explicit

Sub main()
    Dim myComm As Comment
    Dim myInputString As String

    myInputString = "blabla" 'suit it to your needs
    For Each myComm In ActiveSheet.Comments
        If myComm.Text = myInputString Then MsgBox myComm.parent.Value
    Next
End Sub