如何简化数组多行条件判断？能否用Line(1-9)=False替代多行AND逻辑

好问题！这种重复写Line(n) = False的判断确实太啰嗦了，咱们可以通过几种方式实现类似Line(1-9) = False的简化效果，不过VBA本身并没有直接支持这种范围式语法，得借助点小技巧：

方法1：自定义辅助函数（最推荐） #

写一个可复用的函数来检查指定范围内的所有Line元素是否都为False，可读性和复用性拉满：

Function AllLinesAreFalse(startIdx As Integer, endIdx As Integer) As Boolean
    Dim i As Integer
    ' 默认假设所有元素都是False，只要找到一个True就推翻这个结论
    AllLinesAreFalse = True
    For i = startIdx To endIdx
        If Line(i) Then ' 等价于Line(i) = True，写法更简洁
            AllLinesAreFalse = False
            Exit For ' 找到一个True就提前退出循环，不用白跑剩下的
        End If
    Next i
End Function

之后你就可以像这样调用，完美实现你想要的简洁效果：

If AllLinesAreFalse(1, 9) Then
    ' 这里写你的业务逻辑代码
End If

方法2：利用工作表函数（适合数组场景） #

如果Line是一个数组，你可以借助Excel的WorksheetFunction.And来批量判断，但需要注意数组结构的适配：

Dim targetElements As Variant
' 提取Line(1)到Line(9)的子数组
targetElements = Application.Index(Line, Application.Evaluate("ROW(1:9)"))
' And函数会检查所有元素是否为True，取反就等于所有元素为False
If Not WorksheetFunction.And(targetElements) Then
    ' 你的业务逻辑代码
End If

不过这个方法相对依赖Excel的工作表函数，而且如果Line不是标准数组的话可能会出错，所以还是第一种自定义函数的方式更通用、更稳妥。

内容的提问来源于stack exchange，提问作者Artz