将单元格值复制到它下面的所有单元格

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