使用 vba 在 Excel 中检查数组中的任何值是否大于零（有效）

Question

我正在尝试检查大小为“i”的动态数组中是否有任何值大于零，其中“i”是用户输入。如果为 false，则数组中第一个元素的值将显示在下一列中。如果为真，则数组的值通过本质上向下移动一个元素来更新。我相信我已经在 java here 中找到了这个问题的答案，但在 vba 中找不到任何运气。我相信这可以像 here 那样使用 for 循环来完成，但如果它存在的话，我希望它更有效。由于我不知道任何可能有效的语法，因此代码挂在“If any x > 0 Then”

Dim i, z, u As Integer
Dim fir As Integer
Dim las As Integer
Dim n As Long
Dim x As Variant

'SET VALUE OF ROWS FOR ARRAY
i = Worksheets("INPUTS").Range("C6").Value

Set s = Worksheets("DATA")

'FIND LAST VALUE IN DATA
n = s.Cells(s.Rows.Count, "A").End(xlUp).Row

'BEGIN LOOP THROUGH DATA SET
For z = 1 To n

    'SET/RESET RANGE TO CHECK FOR CONSECUTIVE VALUES LESS THAN ZERO
    fir = z
    las = i + z - 1
    x = (s.Range("C" & fir, "C" & las).Value)
    u = s.Range("C" & UBound(x)).Value

    If any x > 0 Then
    Else: s.Cells(4, z) = x(1, 1).Value
    End If

Next z

我是论坛的新手和新手，所以请随时在任何违反与代码或问题相关的最佳实践的问题上给我一个新的，谢谢。

Answer 1

使用工作表功能

If Application.WorksheetFunction.Max(Range("a1:a100")) > 0 Then
    MsgBox "value higher than zero"
end if

Answer 2

为了加快处理速度，您可以考虑将 Excel Range（例如 A1:A100）转换为数组 Arr，然后遍历数组：

Dim Arr() As Variant
Arr = Range("A1:A100")

此外，您可以考虑在开始迭代之前设置属性Application.ScreenUpdating = False（以防您在迭代期间根据您的示例更改单元格的值），然后将其重置为True。

希望这会有所帮助。