VBA 數組索引匹配

Question

我一直在嘗試運行一個數組公式來返回一個變量。

在 BI 列上有日期和時間 (mm/dd/yyyy hh:mm) 和列 C 我有溫度。 我想在溫度列“C”上查找大於或等於 215 的值。

Dim TEMP215 As Variant
With Application.WorksheetFunction
TEMP215 = .Index(ActiveWorkbook.Sheets(1).Range("C2:C460"), .Match(True, ActiveWorkbook.Sheets(1).Range("C2:C460") >= 215, 0))
End With

如果我像在單元格中那樣編寫公式，它會完美運行，使用 Ctrl + Shift + Enter 運行它。 我已經嘗試了 TEMP215 作為變體，長，integer，雙，單......幾乎一切都沒有成功......

Answer 1

嘗試使用 Evaluate 方法...

Dim TEMP215 As Variant

With ActiveWorkbook.Sheets(1).Range("C2:C460")
    TEMP215 = Evaluate("INDEX(" & .Address(External:=True) & ",MATCH(TRUE," & .Address(External:=True) & ">=215,0))")
End With

請注意，Evaluate 方法有 255 個字符的限制。