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

我正试图从列“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多行。

然后我想select我已经复制下来的公式，并粘贴特殊的所有公式除了最后一行列“O到V”

是否有可能做到这一点？

Answer 1

你应该能够避免实际select任何东西。

 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 。