將單元格值複製到它下面的所有單元格

Question

我不知道如何編寫一個指定列中單元格的宏作爲「主單元格」（可編輯）將該單元格值複製到該列下面的所有單元格，直到它到達列A中的空白/清除格式化單元格爲止。所以我希望它查看列A以知道何時停止複製單元格值中的任何一列。也就是說，單元格「C5」將是一個主單元格，宏將從「C6：C」中複製它的值，但查看列A的單元格值以查看它是否沒有任何內容，並且沒有格式化，例如顏色填充等，而不是C列中的宏繼續到無窮大（Excel的最大增量），它將停止在A列的第一個空白單元格行。

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