vba - 将单元格值复制到其下方的所有单元格

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