マクロで終端までの計算方法は・・・

質問

マクロ初心者です。
以下のような計算をマクロで終端まで行なう場合です。
A　　B　　C
２　　１
４　　３
７　　１
５　　２
・・・
C列に　A/B　を表示させるにはどうすればいいのでしょうか？
また、A＋B　の時はどうするのでしょうか？
以上、よろしくお願いします。

回答No.1

rivoisu · ベストアンサー

いろいろありますが、というよりただこれだけなら計算式を入れてCopyして、そのままクリップボード経由で値貼付けが一番早い。

これだけではないのでしょうからオーソドックスにマクロで最後の列まで計算すると
Sub dd()
Dim Lastrow As Long
Dim i As Long
Lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To Lastrow
Cells(i, 3) = Cells(i, 1) / Cells(i, 2) '#1　計算するところ
Next
End Sub

#1
cells(i,3)=cells(i,1)+cells(i,2) '足し算
または
cells(i,3).formula="=RC[-2]/RC[-1]"　　式を入れる

お礼

参考になりました。ありがとうございます。

回答No.2

KURUMITO

例えば次のようなマクロでもよいでしょう。
Sub 計算()
Dim RowPos As Integer
RowPos = 0
Do
RowPos = RowPos + 1
If Range("A" & RowPos) = "" Then Exit Sub
Range("C" & RowPos) = Range("A" & RowPos).Value / Range("B" & RowPos).Value
'足し算では/を＋にした式を作る。
Loop Until Range("A" & RowPos) = ""
End Sub