Как заполнить оставшуюся часть столбца в следующей доступной ячейке?

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