如何選擇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。