Копировать значение ячейки во все ячейки ниже нее

Question

Я не знаю, как написать макрос, который обозначает ячейку внутри столбца как копию «главной ячейки» (редактируемой), которую ячейки присваивают всем ячейкам под ней в этой колонке , пока не достигнет пустой/прозрачной отформатированной ячейки в столбце A. Поэтому я хочу, чтобы она смотрела на столбец A, чтобы знать, когда прекратить копирование значений ячеек в любом столбце.

То есть, ячейка «C5» будет основной ячейкой, макрос скопирует ее значение из «C6: C», но посмотрит на значения ячейки столбца A, чтобы увидеть, нет ли в ней ничего, и нет форматирования, такого как заливка цвета и т. д., а вместо макроса, продолжающегося в столбце C до бесконечности (максимальный приращение для Excel), он остановится в первой пустой строке ячейки столбца.

Answer 1

Sub Example() 
    Dim MasterValue As String 
    Dim StopRow As Long 
    Dim i As Long 

    'Get the master value 
    MasterValue = Range("C5").Value 

    'Get the first blank cell in column A 
    StopRow = Range("A1").End(xlDown).Row 

    'Start at row 6 and continue to the "Stop Row" 
    For i = 6 To StopRow 
     'Set every cell from row 6 in column 3 to the "Master Value" 
     Cells(i, 3).Value = MasterValue 
    Next 
End Sub