VBA код для копирования данных из одной ячейки и вставки в динамический диапазон в Excel

Question

Я хочу скопировать данные, которые находятся в ячейке C2, и вставить их в ячейки C3: C10000. Это (C10000) может измениться в будущем и будет динамичным. Пожалуйста, помогите мне написать код VBA для копирования и вставки данных. Спасибо.

Answer 1

Это может быть достигнуто, как показано ниже, при этом будет проверяться последняя строка с данными по столбцу A (при условии, что динамический диапазон заполнит столбец A данными), и копируется значение из C2 вплоть до последней строки:

Sub foo()
Dim ws As Worksheet: Set ws = Worksheets("Sheet1")
'declare and set the worksheet you are working with, amend as required
LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
'get the last row in Column A, to find how far down the value of C2 should be copied to
ws.Range("C2").AutoFill Destination:=ws.Range("C2:C" & LastRow)
End Sub