こんにちは。
A B C D
2/100 5 4 410
0
2/100 10 4 420
10 4 400
Dim i As Long
For i = 1 To 4
Cells(i, 4).Value = (Cells(i, 1).Value * Cells(i, 2).Value + Cells(i, 3).Value) * 100
Next i
マクロで
2行ずつ結合させたいのですが
2行目が空白の時4列の答えが0で表示されるので結合できません。
それから、D列の値と4列目の1つ上の値を足したいのですが上記のコードにどのように書き込むかわかりません、お手数ですがどうか教えてください。
> A列で2行ずつ結合した場合の計算式がわかりません。
結合してあるものを計算するということは、1行おきに計算するということになりますか?
それならば、下のようにFor〜Next で Step 2 としたらいかがでしょうか?
計算の方法などよく理解できていませんので、いい加減なものになっているかもしれません。
Sub test()
Dim i As Long
For i = 1 To 4
Cells(i, 4).Value = (Cells(i, 1).Value * Cells(i, 2).Value + Cells(i, 3).Value) * 100
If Cells(i, 4).Value = 0 Then Cells(i, 4).Value = ""
Next i
Cells(1, 5).Value = ""
For i = 1 To 4 Step 2
Cells(i, 5).Value = Cells(1, 5).Value + Cells(i, 4).Value
Next i
End Sub