检查数组的所有元素是否相同

Question

我不是VBA的专家,但我需要找出数组中的所有元素是否相同.是否有一个函数可以用来检查所有元素是否相同？

Answer 1

这与KopBuH的答案基本相同,但我更喜欢这种循环/布尔赋值方法...

Function ElementsSame(arr As Variant) As Boolean
    Dim l As Long
    ElementsSame = True
    For l = 1 To UBound(arr)
        If arr(0) <> arr(l) Then
            ElementsSame = False
            Exit For
        End If
    Next l
End Function