（３）２重ループ繰り返しの使い方2

列の合計
各行を計算する
keisan=keisan+各行のセル1月から4月
各行のセル1月から4月を繰り返しその外側に大阪から神戸までを繰り返す。

行と列を分けて計算しています。
Sub keisan3()
    Dim i As Long
    Dim j As Long
    Dim keisan As Long
    For i = 2 To 15                 '行
        For j = 2 To 5              '列
            keisan = keisan + Cells(i, j)
        Next
        Cells(i, j) = keisan
        keisan = 0
    Next
    For i = 2 To 6                 '列
        For j = 2 To 15              '行
            keisan = keisan + Cells(j, i)
        Next
        Cells(j, i) = keisan
        keisan = 0
    Next
End Sub