Question

例如，在A列中，我有一个包含值的500个单元格（A1：A500），我需要添加A列：C列而不创建新列，因为我需要显示orignal列A值在公式中，

例如：

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

我需要A1中的公式成为==＆gt; 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

如何向列添加公式包含值

1 个答案: