matarillo #7548(2008/09/02 04:08 GMT) [ Other ] Rating0/0=0.00
VBA for Excel (2003) カラムAに縦に並べて数値を入れておくと、 カラムBに差分を表示する。
1 2 3 4
Sub Main() Range("B1") = "=IF(ISBLANK(A2),"""",A2-A1)" Range("B1").Resize(Range("A1").End(xlDown).Row).FillDown End Sub
Rating0/0=0.00-0+
[ reply ]
matarillo
#7548()
[
Other
]
Rating0/0=0.00
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 SubRating0/0=0.00-0+
[ reply ]