复制粘贴循环到 1 列 1 列

Question

enter image description here

Sub Macro2()
Range("D3").Select
Selection.Copy
Range("B2").Select
ActiveSheet.Paste
Range("B3").Select
ActiveSheet.Paste
Range("B4").Select
ActiveSheet.Paste
Range("B5").Select
ActiveSheet.Paste
Range("B6").Select
ActiveSheet.Paste
Range("B7").Select
ActiveSheet.Paste
Range("B8").Select
ActiveSheet.Paste
Range("B9").Select
ActiveSheet.Paste
End Sub

如何使用 COUNTA 复制粘贴 1 列 1 列（不是复制区域）的代码 vba excel。 enter link description here

Answer 1

试试这条线

Sub Test()
Range("B2").Resize(Range("D2").Value).Value = Range("D3").Value
End Sub

或者你的意思是类似的

Sub Test()
Range("B8").Select
Do While ActiveCell.Value <> ""
    ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Resize(Range("D2").Value).Value = Range("D3").Value
Application.CutCopyMode = False
End Sub

复制粘贴循环到 1 列 1 列

copy paste loop to 1 colomn 1 colomn

excel

vba

copy

copy-paste