VBA无法识别含Unique函数的单元格数值，如何解决？

你遇到的问题核心是VBA的Find方法默认参数不适配动态数组公式生成的单元格，加上End(xlDown)无法正确识别动态数组的完整范围，导致找不到目标值。以下是具体解决方法：

核心原因 #

1. Find方法默认LookIn:=xlFormulas，会搜索单元格里的公式文本（比如=UNIQUE(A:A)），而非单元格显示的数值；
2. Range.End(xlDown)在动态数组列中无法正确获取全部数据范围（动态数组是溢出填充，End(xlDown)可能停在非真实末尾的位置）；
3. 未明确LookAt:=xlWhole，可能导致部分匹配干扰结果。

方案1：修正Find参数+正确获取动态数组范围 #

修改代码中的Find参数，同时用SpillingToRange直接获取UNIQUE生成的完整溢出范围：

Sub CreateContract()
    Dim row As Long
    Dim searchRange As Range
    Dim foundCell As Range
    Dim ContractNumber As Variant
         
    With ThisWorkbook.Worksheets("Contract Creator")
        ContractNumber = .Range("O1").Value
        ' 获取UNIQUE公式溢出的全部数据范围
        Set searchRange = .Range("B2").SpillingToRange
        ' 明确搜索值、完全匹配、搜索单元格显示值
        Set foundCell = searchRange.Find( _
            What:=ContractNumber, _
            LookIn:=xlValues, _
            LookAt:=xlWhole, _
            SearchOrder:=xlByRows, _
            SearchDirection:=xlPrevious)
            
        If foundCell Is Nothing Then
            MsgBox "Contract Number not found"
            Exit Sub
        End If
        row = foundCell.row
    End With
End Sub

方案2：遍历单元格匹配（更稳定） #

如果Find方法仍有异常，直接遍历动态数组的每个单元格进行匹配，避免参数陷阱：

Sub CreateContract()
    Dim row As Long
    Dim searchRange As Range
    Dim cell As Range
    Dim ContractNumber As Variant
         
    With ThisWorkbook.Worksheets("Contract Creator")
        ContractNumber = .Range("O1").Value
        ' 获取UNIQUE公式的完整溢出范围
        Set searchRange = .Range("B2").SpillingToRange
        
        ' 逐个单元格匹配
        For Each cell In searchRange
            If cell.Value = ContractNumber Then
                row = cell.row
                GoTo MatchFound ' 找到后跳出循环
            End If
        Next cell
        
        ' 未找到的提示
        MsgBox "Contract Number not found"
        Exit Sub
        
MatchFound:
        ' 后续业务逻辑写在这里
    End With
End Sub

注意事项 #

• SpillingToRange仅适用于支持动态数组的Excel版本（Excel 365/2021及以上），如果是旧版本，可改用SpecialCells(xlCellTypeFormulas)筛选出公式单元格再处理；
• 确保ContractNumber的数据类型与目标列一致（比如都是数值或都是文本），若类型不匹配，可在赋值时强制转换，比如ContractNumber = CStr(.Range("O1").Value)转为文本匹配。

内容的提问来源于stack exchange，提问作者saskiaclr