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

Question

我正在尝试将公式从列“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”中，现在需要将我粘贴到第一行的公式复制到下一个结尾我的数据集现在增加了1行。

我想，然后选择，我抄下来的公式和特殊粘贴所有，但配方中列最后一行的“O到V”

是否有可能做到这一点？

Answer 1

你应该可以避免实际选择任何东西。

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。