VBA:查找值是否是表中的第一个实例

Sub FindFirstInstance()
    Dim targetValue As Variant
    Dim searchRange As Range
    Dim resultCell As Range
    
    '设置要查找的值
    targetValue = "targetValue"
    
    '设置要进行查找的范围
    Set searchRange = ThisWorkbook.Sheets("Sheet1").Range("A1:D10")
    
    '使用Find方法查找值
    Set resultCell = searchRange.Find(targetValue, LookIn:=xlValues, LookAt:=xlWhole)
    
    '判断查找结果是否为第一个实例
    If Not resultCell Is Nothing Then
        If resultCell.Row = searchRange.Rows(1).Row And resultCell.Column = searchRange.Columns(1).Column Then
            MsgBox "该值是表中的第一个实例。"
        Else
            MsgBox "该值不是表中的第一个实例。"
        End If
    Else
        MsgBox "未找到该值。"
    End If
End Sub