用VBA 将一个公式写入单元格

xiaoangel · 发表于 2022-12-10 18:47

现在需要将一个球平均数的公式写到单元格里
=AVERAGEA(B4:AB4)
行号是固定的4，可是最右边的AB4列号并不固定，比如列号是一个变量y
请问怎么用VBA写入=AVERAGEA(B4:y4）呢？谢谢

limonet · 发表于 2022-12-10 19:06

Range("B5").Formula = "=AVERAGEA(R4C2:R4C" & y & "）"

xiaoangel · 发表于 2022-12-10 19:49

limonet 发表于 2022-12-10 19:06
Range("B5").Formula = "=AVERAGEA(R4C2:R4C" & y & "）"

谢谢帮助
代码输出是这样的=AVERAGEA($B$4:$AB$4)
怎么样可以改成=AVERAGEA($B4:$AB4)？去掉4前面的$ ? 谢谢

582766 · 发表于 2022-12-10 19:58

xiaoangel 发表于 2022-12-10 19:49
谢谢帮助
代码输出是这样的=AVERAGEA($B$4:$AB$4)
怎么样可以改成=AVERAGEA($B4:$AB4)？去掉4前面的$ ...

用vba就不要用公式，这样的意义是什么，直接用代码输出结果就行了，搞得那么复杂

limonet · 发表于 2022-12-10 20:45

xiaoangel 发表于 2022-12-10 19:49
谢谢帮助
代码输出是这样的=AVERAGEA($B$4:$AB$4)
怎么样可以改成=AVERAGEA($B4:$AB4)？去掉4前面的$ ...

公式要放在哪个单元格？

yellowhawk · 发表于 2022-12-10 21:00

上附件呀，你要解决什么问题？

xiaoangel · 发表于 2022-12-10 21:36

limonet 发表于 2022-12-10 20:45
公式要放在哪个单元格？

放在第x行，第y列
x和y都是变量，可以吗？

limonet · 发表于 2022-12-10 22:40

xiaoangel 发表于 2022-12-10 21:36
放在第x行，第y列
x和y都是变量，可以吗？

模拟两个吧。

HLAI · 发表于 2022-12-11 13:51

可以用折衷的的办法，先将需计算的连续区域定义名字，然后写公式
Sub test()
x = 14 '行
y = 3 '列
ActiveWorkbook.Names.Add Name:="Data", RefersTo:=Range(CellS(1, 1), CellS(x, y))
CellS(x + 1, y).Value = "=AVERAGE(Data)"
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 用VBA 将一个公式写入单元格