7,765
社区成员
发帖
与我相关
我的任务
分享
Dim g1 As Boolean, g2 As Boolean, g3 As Boolean, g4 As Boolean
Dim a
g1 = True
g2 = False
g3 = True
g4 = True
a = Array(g1, g2, g3, g4)
Debug.Print UBound(Split(Join(a), "True"))