DouKaku? 7548 matarillo: VBA for Excel (2003)...(隣り合う二項の差)

Comment detail

VBA for Excel (2003) カラムAに縦に並べて数値を入れておくと、カラムBに差分を表示する。

Sub Main()
    Range("B1") = "=IF(ISBLANK(A2),"""",A2-A1)"
    Range("B1").Resize(Range("A1").End(xlDown).Row).FillDown
End Sub