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