将引用单元格公式添加到代码中

在此输入图像描述 https://i.stack.imgur.com/48OqU.jpg

这就是输出 https://i.stack.imgur.com/FCqOg.jpg

我在单元格“C1”中有这个公式，用于平均第 2 列中的值相对于第 1 列的值。它给出了我需要做的事情。但我想把这个工作变成 vba 代码。

任何人都可以帮忙将其放入代码中。当我们在公式中有参考单元格时是否可能？或者我们需要使用更复杂的代码吗？

=IF(A2<>A1,AVERAGEIF(A2:INDEX($A2:INDEX(A:A,MATCH(1E+99,A:A)+1),MATCH(TRUE,(INDEX($A2:INDEX(A:A,MATCH(1E+99,A:A)+1)<>A2,)),0)),A2,B2:INDEX($B2:INDEX(B:B,MATCH(1E+99,A:A)+1),MATCH(TRUE,(INDEX($A2:INDEX(A:A,MATCH(1E+99,A:A)+1)<>A2,)),0))),"")

这是一种方法C1的计算是VBA: 罢工>

Sub DoingC1Job()
    Dim s As String, s2 as string
    s = "=IF(A2<>A1,AVERAGEIF(A2:INDEX($A2:INDEX(A:A,MATCH(1E+99,A:A)+1),MATCH(TRUE,(INDEX($A2:INDEX(A:A,MATCH(1E+99,A:A)+1)<>A2,)),0)),A2,B2:INDEX($B2:INDEX(B:B,MATCH(1E+99,A:A)+1),MATCH(TRUE,(INDEX($A2:INDEX(A:A,MATCH(1E+99,A:A)+1)<>A2,)),0))),??)"
    s = Replace(s, "??", Chr(34) & Chr(34))
    s2 = Evaluate(s)
    MsgBox s2
End Sub

The ??是将双引号放入字符串的简单方法。