如果四个变量相等

您可以通过以下方式创建具有可变数量参数的灵活函数:

Function AllSame(ParamArray ar()) As Boolean
    AllSame = True : If UBound(ar) < 1 Then Exit Function
    For Each p In ar
        If p <> ar(0) Then
            AllSame = False : Exit Function
        End If
    Next
End Function

您可以将它与任意数量的变量一起使用

If AllSame(a, b, c, d, e, f) Then ....