Прокрутите список проверки данных, скопируйте и вставьте (переменное количество ячеек) в другой лист, под друг друга

Question

Надеясь, что кто-то сможет любезно помочь мне с этим!

Я по существу пытаюсь создать макрос, который будет проходить через список («A3») на одном листе («Панель инструментов»), а затем скопировать результаты (B3: B7) и вставить во второй лист («PrintSheet», столбец «A»), при этом все результаты будут вставлены друг под друга.

До сих пор мне удалось придумать следующий код, но по какой-то причине кажется, что он копирует и вставляет только одну строку результатов (B3, а не B4,5,6 или 7).

Любая помощь будет поистине оценена!

Sub SpitValues() 
Dim dvCell As Range 
Dim inputRange As Range 
Dim c As Range 
Dim i As Long 

'Cell that contains data validation list 
Set dvCell = Worksheets("Dashboard").Range("A3") 

'Determine where validation comes from 
Set inputRange = Evaluate(dvCell.Validation.Formula1) 

i = 1 

'Begin loop 
Application.ScreenUpdating = False 
For Each c In inputRange 
    dvCell = c.Value 

    Worksheets("PrintSheet").Cells(i, "A").Value = Worksheets("Dashboard").Range("B3:B7").Value 
    i = i + 1 

Next c 
Application.ScreenUpdating = True 

End Sub 

Answer 1

Вы не можете напрямую назначить значения из диапазона с несколькими сотами в одной ячейке: как источника и назначения должны быть одинакового размера:

Worksheets("PrintSheet").Cells(i, "A").Resize(5, 1).Value = _ 
Worksheets("Dashboard").Range("B3:B7").Value