如何将公式添加到列中包含值

Question

例如，在列A中，我有一个包含值为500的单元格（A1：A500），并且需要添加列A：列C而不创建新列我需要式中示出了一部开拓创新塔A的值，

例如：

A1 = 753; B1 = -100; C1 = 200

我需要在A1的公式成为==> A1 = + 753 + B1 + C1

我需要通过保持塔A，以显示式中的计算逻辑值

如何我可以不用手动添加每个单元格的公式吗？

在此先感谢

Answer 1

你可以使用VBA沿着这些线路

Sub test() 
Dim cel As Range 

For Each cel In Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row) 
    cel.Formula = "=" & cel.Value & "+B" & cel.Row & "+C" & cel.Row 

Next cel 

End Sub 

正如评论所说，这里是R1C1符号版本，这是一个有点更紧凑，运行速度更快。

For Each cel In Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row) 
    cel.FormulaR1C1 = "=" & cel.Value & "+RC[1]+RC[2]" 

Next cel