将单列中的值与多维数组进行比较 - 如何循环

Question

我想将 Multid 数组中的值与单个列中的值进行比较。

止损：

45

54

76

OHLC：

37 43 30 40

32 43 41 43

32 54 76 87

我想将 Stoploss 中的每个值与 OHLC 进行比较，并找到大于 OHLC 中 Stoploss 的第一个值，在这种情况下，OHLC 中大于 45 的第一个数字将是 54。这发生在 Stoploss 中的每个后续数字，将 OHLC 数组调整为我要比较的止损值的行号。这意味着，当我将 54 与 OHLC 进行比较时，我的 OHLC 范围现在将变为 B2:B3，而不是停留在 B1:B3。

止损范围内会有空格。到目前为止，我有这个：

For i = 63 To 166

Set OHLC = Range("B" & i & ":" & "E" & i)

   For Each cll In OHLC



   If Range("x" & i).Value > 0 Then
   stoploss = Range("x" & i)
   End If

   If cll.Value > stoploss Then

   Range("s" & cll.Row) = cll.Value

   End If

   Next cll

Next i

我的代码中没有错误消息，但“S”列中没有返回值。我也知道这种双循环方法不起作用，因为它为每一行返回范围 B:E 中的第一个值，这不是我想要的。有帮助吗？任何输入将不胜感激。谢谢你

*PS 我知道这方面的主题之前已经介绍过，但仅限于 VB 领域。似乎找不到正确的解决方案。我是 VBA 新手。

Answer 1

现在您在每一行中搜索大于该行中止损的值，因为您的范围OHLC 仅包含一行。因此，首先您在 37 43 30 40 中搜索大于 45 的值，依此类推。这没有任何命中（至少在您的示例中）。

如果您想在所有行中搜索 Stoploss 的每个值，您需要将范围设置为所有这些行，然后遍历它们

'Set OHLC = Range("B1:E10000") 'If you want to search the whole range

For i = 63 To 166
    'Set OHLC = Range("B" & i & "E10000") 'if you want to search from row i onwards
    If Range("X" & i).Value > 0 Then
        stoploss = Range("x" & i)
        Set OHLC = Range("B" & i & "E10000") 'based on your comment "first row of OHLC to match the row of the value in Stoploss" (only update OHLC if stoploss is updated)
    End If

    For Each cll In OHLC    'will loop row by row
        If cll.Value > stoploss Then
            Range("s" & cll.Row) = cll.Value
            Exit For    'don't loop through all 40000 cells!
        End If
    Next cll
Next i