使用用戶自定義範圍編寫單元格參考公式

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 & "))"