VBA 引き算

質問

列Bから任意の行までの数字から列Cから任意の行までの数字を引いた結果を表示するという計算を列Bと列Cに数字が入っている限り行うという場合、どのようにプロシージャを組めばいいでしょうか？（添付参照ください）

回答No.1

n-jun · ベストアンサー

例えばＤ列に結果を表示するのなら、

Sub try()
With Range("D1", Cells(Rows.Count, 2).End(xlUp).Offset(, 2))
.Formula = "=B1-C1"
.Value = .Value
End With
End Sub

こんな感じかと。
違っていたらごめんなさい。

お礼

ご回答どうもありがとうございます！n-junさんの方法を使ってうまくいきました！

回答No.2

hige_082

sub　test()
dim　i　as　integer
for　i=1　to　range("c65536").end(xlup).row
cells(i,4)=cells(i,3)-cells(i,2)
next　i
end　sub

・・・

お礼

ご回答どうもありがとうございます！