Question

我不知道如何编写一个宏来指定列中的单元格作为＆＃34;主单元格＆＃34; （可编辑）将单元格值复制到该列中它下面的所有单元格，直到它到达A列中的空白/清除格式化单元格。所以我希望它查看A列以了解何时停止复制单元格值中的任何一个列。

即Cell＆＃34; C5＆＃34;将是一个主单元格，宏将从＆＃34; C6：C＆＃34;中复制它的值。但是查看列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

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

1 个答案: