如何复制值直到最后一行

Question

我正在尝试在excel中复制“ D7：O10”，直到“ C”列中的最后一行。

这有点用，但是代码只粘贴D7：O7直到最后一行。

我认为我需要某种补偿。

Sub CopyFormulae()

Dim i As Long

Application.ScreenUpdating = False

i = Range("C" & Rows.Count).End(xlUp).Row
Range("D7:O10" & i).FillDown

Application.ScreenUpdating = True

End Sub

Answer 1

更改此

Range("D7:O10" & i).FillDown

收件人

Range("D7:O10").Copy
begin = 7
Do While begin < i
    Range("D" & begin).PasteSpecial Paste:=xlPasteValues
    begin = begin + 4

Loop