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

Question

很难说出这里问的是什么。这个问题是模棱两可的、含糊的、不完整的、过于宽泛或修辞的，不能以其目前的形式得到合理的回答。如需帮助澄清此问题以便可以重新打开，visit the help center .




9年前关闭。




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

Answer 1

这与 KopBuH's answer 基本相同，但我更喜欢这种循环/ bool 赋值的方法......

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