VBA - 如何检查excel中的表是否包含值

Question

我有一张包含名为table123

的已定义表的工作表

我从数据库中提取数据并且（使用循环）遍历所有记录。

我想要做的是（感谢VBA）检查数据库中的值是否存在于 table123

中

这样做的最佳解决方案是什么？

提前致谢，

Answer 1

假设我们想知道 Sheet3 中是否有宝藏，表 Table1

Sub TreasureHunt()
    Dim r As Range, IsItThere As Range

    Set r = Sheets("Sheet3").ListObjects("Table1").Range
    Set IsItThere = r.Find(What:="treasure", After:=r(1))

    If IsItThere Is Nothing Then
        MsgBox "no treasure in the table"
    Else
        MsgBox "treasure is in the table"
    End If
End Sub