复制一个值并将其粘贴直到到达特定单元格

Question

我想将B1中存在的值复制到B20并粘贴到B40000

我尝试过

 Range(Selection, Selection.End(xlDown)).Select
 Selection.Copy
 Range("A2").Select
 Selection.End(xlDown).Select
 Range("B21").Select
 ActiveSheet.Paste
 Range("A21").Select
 Selection.End(xlDown).Select
Range("B40").Select

我想更改一直运行到B40000的范围

Answer 1

确保目标大小是要正确复制的源大小的倍数：

Option Explicit

Public Sub CopyRangeDown()
    Dim Source As Range
    Set Source = Range("B2:B20")

    Source.Copy
    Range("B21").Resize(RowSize:=Source.Rows.Count * CLng(40000 / Source.Rows.Count)).PasteSpecial
End Sub