使用 VBA 在一维数组里面查找数据、并将需要的字段填写进工作簿

以下是一个使用 VBA 在一维数组里面查找数据、并将需要的字段填写进工作簿的例子：

Sub Example()
    Dim arrData As Variant
    Dim searchValue As String
    Dim foundIndex As Integer
    
    ' 假设数据存储在名为 "MyData" 的一维数组中
    arrData = Array("Apple", "Banana", "Cherry", "Date", "Elderberry", "Fig")
    
    ' 要查找的值
    searchValue = "Cherry"
    
    ' 在数组中查找要查找的值
    foundIndex = FindIndex(arrData, searchValue)
    
    ' 如果找到了，将相应的值填写进工作簿中
    If foundIndex >= 0 Then
        ' 将 Fruit 列中与要查找的值匹配的单元格对应行的 Comment 列填写为 "Found!"
        Range("Fruit").Find(searchValue).Offset(0, 1).Value = "Found!"
    Else
        ' 如果没有找到，则弹出 MsgBox 提示
        MsgBox "未找到值 '" & searchValue & "'。"
    End If
End Sub

' 定义一个函数，在给定的一维数组中查找指定的值，并返回该值的索引，如果未找到则返回 -1
Function FindIndex(ByRef arr As Variant, ByVal value As String) As Integer
    Dim i As Integer
    For i = 0 To UBound(arr)
        If arr(i) = value Then
            FindIndex = i
            Exit Function
        End If
    Next i
    FindIndex = -1
End Function




在上面的代码中，我们假设数据存储在名为 "MyData" 的一维数组中。
我们首先定义了要查找的值 searchValue，然后使用 FindIndex 函数在数组中查找该值。
如果找到了，我们就将工作簿中 Fruit 列中与该值匹配的单元格对应行的 Comment 列填写为 "Found!"。

FindIndex 函数使用 ByRef 参数传递一个一维数组和一个字符串，
使用一个 for 循环遍历数组中的每个元素，直到找到一个与指定值匹配的元素。
如果找到了，函数返回该元素的索引。如果没有找到，函数返回 -1。

由于我们在 Example 子过程中使用 Range 函数进行了类似命名的假设，
所以我们可以使用 Range 函数和 Offset 属性，
将找到的单元格位置移动到 Excel 表格中需要填写的位置，
并将 "Found!" 填写进去。