【分享成果，随喜正能量】品味随和的人会成为智者；享受随和的人会成为慧者；拥有随和的人就拥有了一份宝贵的精神财富；善于随和的人，方能悟到随和的真谛。真正做到为人随和，确实得经过一番历练，经过一番自律，经过一番升华。为人随和一点，我们会感受到生活更加美好！

《VBA代码解决方案》这套教程是我最早推出的教程，目前已经是第二版修订了。这套教程定位于入门后的提高，在学习这套教程过程中，侧重点是要理解及掌握我的积木编程思想。要灵活运用教程中的实例像搭积木一下把自己喜欢的代码摆好。

这套教程共三册，一百四十七讲，内容覆盖较广，也是初级和中级间的过度教程，改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段时间会给大家陆续推出。今日的内容是第13讲：VBA在单元格中如何录入公式

第十三讲如何利用VBA在单元格中录入公式

今日给大家推出VBA代码方案的第13讲,如何利用VBA在单元格中录入公式.我们知道，在EXCEL中，录入公式是很平常的事，但在VBA中录入公式要借助于Range对象的Formula属性。下面用分几种途径来解决：

1 使用Range对象的Formula属性在单元格区域中写入公式

其语法如下：expression.Formula

参数expression是必需的，是一个Range对象。

实例：如下面的代码所示。

Sub mynz_13() 第13讲如何利用VBA在单元格中录入公式

Sheets(“13”).Select

Range(“C2:C10”).ClearContents

Range(“C2:C10”).Formula = “=SUM(A2+B2)”

End Sub

代码解析：上述代码中利用了.Formula = “=SUM(A2+B2)”，我们把句话转换为EXCEL中的操作就是相当于在C2中录入公式= SUM(A2+B2)，然后在C3,C4,C5,C6,C7,C8,C9,C10中复制上面的公式也就是说C3:= SUM(A3+B3); C4:= SUM(A4+B4); C5:= SUM(A5+B5); C6:= SUM(A6+B6); C7:= SUM(A7+B7); C8:= SUM(A8+B8); C9:= SUM(A9+B9); C10:= SUM(A10+B10)

我们看下面的代码截图：