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

代码vba如何在COUNTA中复制粘贴1列1列（非复制区域）方面表现出色。 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列

1 个答案: