错误提取列中的最大值。 VBA（总是归零，为什么？）

任何人都可以帮助纠正代码？ 总是归零，为什么？ 我想比较列H中的数据，并提取值，存储在偏移量（1,2）。 请帮忙检查我的错误，非常感谢

Dim Highest As Double Highest = Application.WorksheetFunction.Max(Columns("H")) wkbCrntWorkBook.Activate ActiveCell.Offset(1, 2).Value = Highest 

Answer 1

试试这个，而不是 – 这是一个VBA的数组公式，将文本转换为Max函数的数字。

 Dim Highest As Double Highest = Evaluate("Max(H:H*1)")