Excel VBA中從下方細胞

Question

插入值。如果「SES新建/繼續」是繼續然後我需要在上述+ 1個小區添加突出顯示的值（即行19）同樣在以往任何時候其highlithted我們需要添加到上面的單元格+ 1單元格，然後刪除連續行。

Answer 1

如果要使用該單元格下方的值填充空白單元格，請運行此腳本。

Sub FillBlanks() 
    With Range("A:A").SpecialCells(xlCellTypeBlanks) 
     .FormulaR1C1 = "=R[+1]C" 
    End With 
End Sub 

如果您想做相反的事情，請使用上面的值填充空白單元格，運行此腳本。

Sub FillBlanks() 
    With Range("A:A").SpecialCells(xlCellTypeBlanks) 
     .FormulaR1C1 = "=R[-1]C" 
    End With 
End Sub