VBA二维数组中使用Find函数查找匹配值

如果你想在二维数组的第二维度中使用 'Find' 函数来查找匹配的值，你可以使用以下方法：

Dim dataArr() As Variant
' 假设 dataArr 是一个二维数组，其中 dataArr(1) 表示第一个工作表的数据

Dim foundCell As Range
Dim searchValue As Variant
searchValue = 123

' 使用 For 循环遍历第二维度的数据，并在每一列中使用 Find 函数查找匹配的值
For i = LBound(dataArr(1), 2) To UBound(dataArr(1), 2)
    Set foundCell = Nothing ' 每次循环之前重置 foundCell
    
    Set foundCell = Worksheets(1).Cells(1, i).Resize(UBound(dataArr(1), 1)).Find( _
        What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 如果找到匹配的单元格，则进行相应的操作
    If Not foundCell Is Nothing Then
        ' 找到匹配的单元格
        Debug.Print "找到匹配的值在第二维度中的索引：" & foundCell.Column
        ' 进行其他操作
        ' ...
    End If
Next i

在上述示例中，通过 'For' 循环遍历第二维度的数据，然后在每一列中使用 'Find' 函数来查找匹配的值。如果找到匹配的单元格，可以在 'If' 语句中进行相应的操作。

请根据你的实际需求，将代码中的数据和操作进行适当修改。

希望这可以满足你的需求！如果还有其他问题，请随时提问。