копировать вставить петлю на 1 колонну 1 колонну

Question

введите описание изображения здесь

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 excel для копирования вставить 1 столбец 1 столбец (не область копирования) с COUNTA. введите описание ссылки здесь

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