Скопируйте последнее значение ячейки в ячейке a в пустой ячейке ниже группы ячеек

Question

Column A 
2 
5 
7 
(It is blank cell, but I want to copy 7 that is last value of this group cell) 
5 
1 
2 
5 
(It is blank cell, but I want to copy 5 that is last value of this group cell) 
2 
5 
(It is blank cell, but I want to copy 5 that is last value of this group cell) 

И так далее, есть много групповых ячеек, но я хочу скопировать последнее значение ячейки группы в пустой ячейке.

Я также хочу изменить цвет текста этой ячейки, которая копируется.

Пожалуйста, предложите мне эффективный Макро.

Answer 1

Попробуйте этот небольшой макрос:

Sub copy_down() 
    Dim r As Range, rr As Range, N As Long 
    N = Cells(Rows.Count, "A").End(xlUp).Row 
    Set r = Range(Cells(1, "A"), Cells(N, "A")).SpecialCells(xlCellTypeBlanks) 
    For Each rr In r 
     rr.FillDown 
    Next 
End Sub 

EDIT # 1:

Чтобы заполнить вниз один дополнительный сотовый, эту версию:

Sub copy_down() 
    Dim r As Range, rr As Range, N As Long 
    N = Cells(Rows.Count, "A").End(xlUp).Row 
    Set r = Range(Cells(1, "A"), Cells(N, "A")).SpecialCells(xlCellTypeBlanks) 

    For Each rr In r 
     rr.FillDown 
    Next 

    Cells(N + 1, "A").FillDown 
End Sub 

ДО :

ПОСЛЕ: