Значение приклеивания только в тех ячейках, которые соответствуют критериям

Question

Я работаю над кодом, в котором я буду вводить данные из выпадающего списка, с какой даты нам нужно вставить данные в строку, а в следующей строке будет указано, сколько ячеек справа от этого я буду вставлять в те же данные.

Предположим, у меня есть выпадающее меню даты в ячейке "E8", а в "E9" есть то, что нужно скопировать, а "E10" - сколько раз мне нужно вставить значение из "E9" вправо. У меня есть дата в качестве заголовка из столбца (J10:J40), пожалуйста, помогите

Worksheets("project Allocation").Range("E8").Copy

'PasteSpecial Values Only
  Worksheets("Project Allocation").Range("******").PasteSpecial Paste:=xlPasteValues

Ожидается, что для выбранных дат будут вставлены значения из ячейки "E9"

Answer 1

Попробуйте это:

Sub CopyCell()
  Dim howManyTimes As Long, i As Long
  howManyTimes = Range("E10").Value
  For i = 1 To howManyTimes
    Range("E9").Offset(0, i).Value = Range("E9").Value
  Next
End Sub