Question

excel vba代码中加入公式并填充公式

Sub aa()
从50行开始
填充公式至b列倒一平齐
公式1
公式2
公式3
公式4
公式5
公式6
公式7
公式8
公式9
公式10
公式10
......
End Sub
代码中可以加入多列公式
Range("k10").AutoFill Destination:=Range("k10:u" & X)这里这样写对吗？
也就是K列至U列

Answer 1

软件版本：Office2007

方法如下：

1.利用VBA在C列中加入公式求AB列的和，并且填充公式至所有有数据的行：

2.Alt+F11，输入代码如下：

3.F5执行代码，返回Excel，得到结果如下：

Answer 2

Sub aa()

x = [A65536].End(3).Row
Range("k10").FormulaR1C1 = "公式1"
Range("l10").FormulaR1C1 = "公式2"
Range("m10").FormulaR1C1 = "公式3"
Range("k10:m10").AutoFill Destination:=Range("k10:M" & x)

End Sub

Answer 3

通过记录宏可以得到代码。

追问

Range("k10").AutoFill Destination:=Range("k10:u" & X)这里这样写对吗？
也就是K列至U列

追答

记录宏 会做吗 做一遍就明白了

追问

不会看宏
Sub aa()

X = [A65536].End(3).Row
Range("k18").FormulaR1C1 = 公式1
Range("l18").FormulaR1C1 =公式2
Range("m18").FormulaR1C1 = 公式3
Range("k10").AutoFill Destination:=Range("k10:M" & X)最后这里提示了

End Sub

Answer 4

提供下源文件吧