vba - 如果列值存储在变量中，则更新单元格中的公式

Question

我有这些公式activesheet.cells(3,"C").Formula = "=F2"
但我希望公式像这些 activesheet.cells(3,"C").Formula = "=lastcolumn2"
所以我找到了第 6 行的最后一列

last_col = ActiveSheet.Cells(6, Columns.Count).End(xlToLeft).Column

last_col 有 10其中的值(value)。

我已经插入了这样的公式

ActiveSheet.Cells(3,"C").Formula = "=" & last_col & "1"

但是这些插入了一个值 "=101"但不是公式 "=J1" (这是我所期望的)
我该怎么做。任何帮助是极大的赞赏。

Answer 1

您还可以在获取 last_col 时使用 .Address (对 JMax 的回答稍作改动 - 抱歉，我刚刚意识到它足够相似，我应该在他的下方添加评论)。如果您不想要绝对路径(例如 J1 而不是 $J$1)，您可以使用:

last_col = Cells(6, Columns.Count).End(xlToLeft).Address(False, False)
Cells(3, 3).Formula = "=" & last_col