使用用户定义范围编写单元格引用公式

这是一个非常简单的问题…我只是被卡在语法上。

我怎样才能改变这个公式，使之成为合法的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 & "))"