Question

我有使用Application.Match在数组中找到位置的代码。但是我该如何反过来：根据位置在数组中找到一个值？

Answer 1

它是一维数组“posArr（）As Variant”。所以，如果数组包含“牛奶，可乐，水”，我想找到位置3的值“Ar（3）= posArr”？ - GodAtum 8分钟前

继我的例子之后，请看这两个例子。

找出第3位的内容

Sub Sample()
    Dim posArr
    Dim s As String
    Dim pos As Long

    pos = 3 '~~> 3rd Position

    s = "milk,coke,water"
    posArr = Split(s, ",")

    Debug.Print posArr(pos - 1)
End Sub

检查位置3的值是否为“水”

Sub Sample()
    Dim posArr
    Dim s As String
    Dim pos As Long

    pos = 3 '~~> 3rd Position

    s = "milk,coke,water"
    posArr = Split(s, ",")

    If posArr(pos - 1) = "water" Then MsgBox "What an awesome guess!"
End Sub

我们之所以- 1，因为最低界限是0

根据索引查找数组值（Excel VBA）

1 个答案: