【VBA研究】循环中用VBA在单元格中输入公式

作者：iamlaosong

先看一个简单的循环程序，VBA从数据库中读取数据后，需要在最后一个单元格输入求和公式：

lineno = [A65536].End(xlUp).Row  
For i = 3 To lineno  
    Cells(i, 9).FormulaR1C1 = "=RC[-3]+RC[-2]+RC[-1]"  
Next i  

公式的意思相当于Cells(i, 9)=Cells(i, 6)+Cells(i, 7)+Cells(i, 8)，其中RC[-3]表示同一行中公式所在单元格的前3列。

如何表示同一列中前3行呢？很简单，用R[-3]C就可以了。以此类推，同一行后三列就是RC[3]，当前单元格前斜对角就是R[-1]C[-1]，后斜对角就是R[1]C[1]。。。