Question

excel不能设置类range的formula属性

Sub 宏2()
Range("C31928:C31944").Select
Selection.FormulaArray = "=FREQUENCY(R[-31915]C:R[-470]C,R[-22]C:R[-6]C)" ''-470是变量
End Sub
求频率分布的代码如上，正常运行，但是我要写循环语句，稍作修改
Sub 宏2()
t=-470
Range("C31928:C31944").Select
Selection.FormulaArray = "=FREQUENCY(R[-31915]C:R[t]C,R[-22]C:R[-6]C)" ''-470是变量
End Sub
就运行不正常了，我要把t设置成自动随工作表数据行数变化，所以必须在这里用变量，求大神指点

Answer 1

你这录制的宏吧，录制的一般都是RC引用方式不好理解和操作，我改写了一个

你可以试着改一下表名字和区域就可以了！

Option Explicit
Sub freq()
    Dim a As Variant, b As Variant, c As Variant
    With Sheets("Sheet1")
        a = .[a1:a10]
        b = .[b1:b3]
        c = Application.Transpose(Application.Frequency(a, b))
        .[c1].Resize(UBound(c), 1) = Application.Transpose(c)
    End With
End Sub