如何填写下一个可用单元格中的其余列？

Question

我使用以下代码来分配值。

    Sheets("CDGL Data").Range("A" & Rows.Count).End(xlUp).Offset(1).Formula= "April"

我需要"April"填充其中包含值的单元格中的空白单元格中的其余相邻行。

实施例： Cell A899为空，Cell B899有值，Cell C899有值 需要将"April"放入空白cell A899。

请帮忙！

Answer 1

您可以使用：

Dim lStartRow             As Long
Dim lEndRow               As Long
With Sheets("CDGL Data")
    lStartRow = .Range("A" & .Rows.Count).End(xlUp).Row + 1
    lEndRow = Application.Max(.Range("B" & .Rows.Count).End(xlUp).Row, .Range("C" & .Rows.Count).End(xlUp).Row)
    .Range(.Cells(lStartRow, "A"), .Cells(lEndRow, "A")).Value2 = "April"
End With