Vba 如何在一个列范围中选择最后一个单元格范围，并填充到另一个列范围中的最后一行

我试图将公式从“O”列到“V”列的最后一行复制到“A”列的最后一行，但我遇到了困难。这比我习惯的要高级一点，因为我可以设法从单元格“O2”获取数据，以便复制到最后一行，但公式始终位于不同的行中，这是我正在添加的一大组数据，因此我不希望每天重新计算整页

代码摘录

 LastRow = ActiveSheet.UsedRange.Rows.Count
LR1 = Range("O" & Rows.Count).End(xlUp).Row
Range("O" & LR1).Select
Selection.Copy
LastRow = ActiveSheet.UsedRange.Rows.Count
LR2 = Range("A" & Rows.Count).End(xlUp).Row
Range("O" & LR1).AutoFill Destination:=Range("O" & LR2), Type:=xlFillDefault

这似乎是导致问题的最后一行，但可能不正确。为了让大家更了解我到目前为止所完成的工作，我已经将4385行数据复制到列“a:N”中，现在需要将我粘贴到的第一行中的公式复制到我的数据集的末尾，现在再增加一行

然后，我想选择我复制下来的公式，并在“O到V”列中粘贴除最后一行以外的所有特殊公式

---

有可能做到这一点吗？

您应该能够避免使用此选项实际选择任何内容

Dim LR1 As Long, LR2 As Long
LR1 = Range("O" & Rows.Count).End(xlUp).Row
LR2 = Range("A" & Rows.Count).End(xlUp).Row
Range("O" & LR1 & ":V" & LR2).FillDown

---

*附录：*正确的命令是

FillDown

，而不是

Autofill

+1，以便正确回答问题：）我误解了这个问题。只是一个小小的建议。。将最后一行更改为

Range（“O”&LR1&“：V”&LR1）。自动填充目标：=Range（“O”&LR2&“：V”&LR2），键入：=xlFillDefault

此代码返回时出现错误“编译错误参数非可选”，并突出显示.AutoFill。我像上面一样输入了这个，我遗漏了什么吗？@SiddharthRout我已经添加了你的代码，但是我仍然得到一个自动填充方法错误。你能帮我进一步吗？@Steven Craig=我道歉。我本应该检查代码，但我没有检查，它在我的南部地区咬了我一口。我想到的命令是

.FillDown

，而不是您最初实现的

.AutoFill

。@SiddharthRout-谢谢您的关注。我选择了更简洁的

.FillDown

（这是我最初想到的）。无论如何，这是一个漂亮的球。