Заполните пустые ячейки значением следующего значения ниже заготовок

Question

Я видел много сообщений о заполнении пустой ячейки из ячейки выше. Но вот что-то наоборот. Здесь мы можем заполнить пустую ячейку из ячейки ниже.

ток:

A1 = blank 
A2 = blank 
A3 = blank 
A4 = data 

хотел бы:

A1 = data from A4 
A2 = data from A4 
A3 = data from A4 
A4 = data 

Answer 1

Решение:

1. Select A1:A3 
2. Press Enter till the active cell become A3 (just before/above the required value) 
3. Enter "=" (without quotes) 
4. Press the Down cursor key once/Select the below cell value 
5. Press Ctrl+Enter 

Аналогично для полного Column мы можем пройти через традиционной технологии и опции первенствовать:

1. Select the Column where you need to fill the blanks 
2. Home -> Find & Select -> Select Blank Function(it will select all the blanks in your selection) 
3. Now hit enter until reach a cell which is just before the required cell value. 
4. Press "=" 
5. Press the Down key once/Select the below cell value 
6. Hit: Ctrl + Enter 

Answer 2

Если вы заранее знаете, что A4 является ячейка для копирования вверх, а затем:

Sub FillCells() 
    Range("A1:A3").Value = Range("A4").Value 
End Sub 

Если вы не знаете, какая ячейка заполнена, то:

Sub FillCells2() 
    Dim N As Long 
    N = Cells(Rows.Count, 1).End(xlUp).Row 
    Range("A1:A" & N - 1).Value = Range("A" & N).Value 
End Sub 

Answer 3

1. Выберите A1
2. Нажмите "F2"
3. Enter "= $ A $ 4" (без кавычек) или "= R4C1" (в случае, если R1C1 стиль)
4. нажмите "Enter"
5. нажмите Ctrl + C
6. выберите A2 и A3 ячейки
7. нажмите Ctrl + V

Answer 4

чтобы заполнить - и обрабатывать для отдельных пустых областей:

Sub FillUp() 
Dim rng1 As Range 
On Error Resume Next 
Set rng1 = Range([a1], Cells(Rows.Count, "A").End(xlUp)).SpecialCells(xlBlanks) 
On Error GoTo 0 
If rng1 Is Nothing Then Exit Sub 
rng1.FormulaR1C1 = "=R[1]C" 
rng1.Value = rng1.Value 
End Sub