在VBA中获取数组中值的最后出现索引（类似Python的rindex）

VBA没有内置类似Python rindex的反向查找函数，但可以通过以下几种实用方法实现需求：

方法1：手动反向遍历数组 #

最直观的方式是从数组末尾向前遍历，找到第一个匹配元素后返回对应索引（注意：Array()创建的是基于0的数组，而Application.Match返回的是基于1的索引，需要统一格式）。

代码示例：

Dim a As Variant
a = Array(1, 2, 3, 4, 1, 2, 3, 4, 5)
Dim target As Integer
target = 4
Dim lastIndex As Integer
lastIndex = -1 ' 默认值表示未找到目标

' 从数组最后一位开始反向遍历
For i = UBound(a) To LBound(a) Step -1
    If a(i) = target Then
        lastIndex = i + 1 ' 转换为基于1的索引，和Match返回格式一致
        Exit For ' 找到即退出循环
    End If
Next i

Debug.Print lastIndex ' 输出结果：8

方法2：利用WorksheetFunction.Lookup函数 #

Excel的Lookup函数在查找值存在时，会返回最后一个匹配项的对应值，可借助它间接获取索引：

代码示例：

Dim a As Variant
a = Array(1, 2, 3, 4, 1, 2, 3, 4, 5)
Dim target As Integer
target = 4
Dim lastIndex As Integer

' 构建和原数组长度一致的基于1的索引数组
Dim indices As Variant
indices = Application.Transpose(WorksheetFunction.Row(Range("A1:A" & UBound(a) + 1)))

' 通过Lookup匹配最后一个目标值对应的索引
lastIndex = Application.Lookup(target, a, indices)

Debug.Print lastIndex ' 输出结果：8

方法3：结合Match与CountIf（适用于需指定出现次数的场景） #

如果已知目标值的出现次数，可通过Match定位第N次出现的位置（即最后一次）：

代码示例：

Dim a As Variant
a = Array(1, 2, 3, 4, 1, 2, 3, 4, 5)
Dim target As Integer
target = 4
Dim occurrenceCount As Integer
occurrenceCount = Application.CountIf(a, target) ' 统计目标出现次数，此处为2

' 定位第2次出现的目标值索引
Dim lastIndex As Integer
lastIndex = Application.Match(1, Application.CountIf(Application.Index(a, 1, 1 To UBound(a) + 1), target), 0)

Debug.Print lastIndex ' 输出结果：8

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