主题：在某一个备注字段搜索某一列所有单元格内容

参考代码

Dim str As String = "你我他习xxabcdef"
For Each r As Row In Tables("表a").rows
    If r("第一列") > "" AndAlso str.Contains(r("第一列")) Then
        msgbox(r("第一列"))
    End If
Next