VBA实现查找EXCEL表一列（或单元格区域）中多个值，并将记录保存到数组中

    目前有这样一个场景，需要寻找excel表数据区域中的多个值所在的位置，再用数组保存这些位置，后面可以直接用数组输出，从而定位到对应位置。那么可以用下面这段代码。

Sub FindValues()
    Dim rng, cell As Range
    Dim myArray() As Integer
    Set rng = Range("A1:A100")    '需要查找的单元格区域

    ReDim myArray(0 To 0)
    valueToFind = "eg"  '待查找值
    
    For Each cell In rng
        If cell.Value = valueToFind Then
                valu_row = cell.Row    '存储待查找值的行号（可根据具体场景更改Address）
                ReDim Preserve myArray(0 To UBound(myArray) + 1)
                myArray(UBound(myArray)) = valu_row    '利用数组存储
        End If
    Next cell
End Sub

最终结果就可以保存到数组中，但是上述方法索引为0对应的值是空值，用时可按需要调整。