解答解説
Dim wa As Integer
wa = 0
wa = wa + Cells(5, 1)
wa = wa + Cells(6, 1)
wa = wa + Cells(7, 1)
wa = wa + Cells(8, 1)
Cells(9, 1) = wa
wa = 0
wa = wa + Cells(5, 2)
wa = wa + Cells(6, 2)
wa = wa + Cells(7, 2)
wa = wa + Cells(8, 2)
Cells(9, 2) = wa
・
・
・
End Sub
wa = 0これがないと正しい合計は出ません。
wa = 0
wa = wa + Cells(5, 1)
wa = wa + Cells(6, 1)
wa = wa + Cells(7, 1)
wa = wa + Cells(8, 1)
まででwaには191が入っているからです。
wa = 0を入れないとどんどん積算されてしまいます。
したがって、wa = 0で値を1度キャンセルしているわけです。