Question

我正在尝试从列的最后一行复制公式＆＃34; O＆＃34;到＆＃34; V＆＃34;直至列＃34; A＆＃34;中的最后一行但我遇到了困难。这比我习惯的要先进得多，因为我可以设法从单元格中获取数据＆＃34; O2＆＃34;复制到最后一行，但公式将始终位于不同的行，这是我添加的大量数据，因此我不希望每天重新计算整页。

代码摘录

 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行数据复制到列中＃34; A：N＆＃34;现在需要将我粘贴的第一行中的公式复制到我现在的数据集的末尾+ 1个额外的行。

然后我想要选择我已经复制下来的公式，除了公式的最后一行以及＃34; O到V＆＃34;

之外的所有公式

是否可以这样做？

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。

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

1 个答案: