excel - ユーザー定義範囲を使用してセル参照式を作成する

Question

これは非常に単純な質問です...構文に行き詰まっています。

この式を変更してvbaを合法にする方法は次のとおりです。

    Dim sum_rng As Range
    Set sum_rng = Range(Cells(strt_pt(end_ct), j), Cells(end_pt(end_ct), j))
    'Debug.Print sum_rng

    Cells(47, lent + 2).Formula = "=AVERAGE(IF(ISNUMBER(" & sum_rng & ")," & sum_rng & ")"

配列と他のすべては問題ないように見えます。問題は.Formulaと.FormulaR1C1または何か他のものだと思います。

Answer 1

親が足りないと思います。最後の行の終わりを参照

Dim sum_rng As Range
Set sum_rng = Range(Cells(strt_pt(end_ct), j), Cells(end_pt(end_ct), j))
'Debug.Print sum_rng

Cells(47, lent + 2).Formula = "=AVERAGE(IF(ISNUMBER(" & sum_rng & ")," & sum_rng & "))"