如果用你现在的代码计算得到的值，不可能显示公式。用VBA向单元格填写公式才行：
Sub cal()
For i = 1 To 5
For j = 1 To 2
Cells(i, j + 2).FormulaR1C1 = "=RC[-2]+RC[-1]"
Next
Next
End Sub
简单一点的：
Sub cal()
Range("C1:D5").FormulaR1C1 = "=RC[-2]+RC[-1]"
End Sub
得到相同的效果
这个用vba实现很简单，只是为什么c列的值不是2而是3呢
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024