(VBA)返回数组中相同值的索引

View Code

Sub GetSameValue()
Dim arr(0)
Dim i As Integer, cellval As Integer, tempval As Integer
Dim varstr As String
arr(0) = Array(9, 1, 4, 6, 1, 1, 1, 1)
For i = 0 To UBound(arr(0))
    cellval = arr(0)(i)
If i = 0 Then
        tempval = cellval
Else
If cellval < tempval Then
            tempval = cellval
            varstr = i
ElseIf cellval = tempval Then
            varstr = varstr & "," & i
End If
End If
Next i
Debug.Print varstr
End Sub

转载于:https://www.cnblogs.com/bjxly/archive/2011/11/29/2268072.html