excel - 列の最大値を抽出するときにエラーが発生しました。VBA (常にゼロが返されるのはなぜですか?)

Question

誰でもコードを修正できますか? 常にゼロが返されるのはなぜですか? 列 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)")