|
こんばんわ。こんなのでどうでしょう??
Sub TEST()
Cells(2, 3).Select
ActiveCell.FormulaR1C1 = "=RC[-2]-RC[-1]"
Do Until ActiveCell.Offset(, -1).Value = ""
With ActiveCell
.Offset(1).Select
.Formula = "=RC[-2]-RC[-1]"
End With
Loop
End Sub
▼takenoko さん:
>このページを見つけ、凄い方々がいらっしゃるのだと驚きました。
>私の質問を聞いていただけたら幸いです。
>次のように列項目
>売上高 材料原価 付加価値
>10000 2000
>20000 2500
>30000 3000
>40000 3000
> がありこのようにレコードが数十行あります。
>
>隣の項目に付加価値(=売上高ー材料原価)を売上高の列に数字があるだけ
>マクロで計算させたいのです。つまり売上高、材料原価が空欄になるまで
>計算をさせたいのです。ただし、列数は変わりませんが毎回レコード数は変動します。
>何か良い案がありましたらご指導お願いいたします。
>
>
>
|
|