|
列ごとに数字を入れたセルの合計を、最終行に入れたのですが、次にそれぞれの合計を総数として合算しようとしても、SUM関数を利用したコードが作れない。
実力の無さを痛感して投稿しました。ご回答よろしくお願いします。
あ い う え お
い 2 6 5 8 23
ろ 3 9 4 2 1
は 3 3 9 1
に 4 3 3 3
ほ 4 3 4
へ 5 3
と 6
Sub 領収書総数()
Dim LastRow As Long
Dim i As Integer, LastClm As Integer
Dim SUM As Variant
LastClm = ActiveSheet.Cells(1, 2).End(xlToRight).Column
For i = 2 To LastClm
i = ActiveSheet.Cells(1, i).Column
LastRow = ActiveSheet.Cells(Rows.Count, i).End(xlUp).Row
Range("H1").Value = Application.WorksheetFunction.SUM(Cells(LastRow, i).Value & Cells(LastRow, LastClm).Value)
Next i
End Sub
|
|