即効テクニック |
奇数行のみ(もしくは、偶数行のみ)の合計を求める方法として、合計対象になるセル番地を文字列として連結し、合計を表示するセルに数式として設定する方法があります。
Sub GetTotal() Dim nI As Integer Dim sCll As String ' A1からA22までの奇数行の合計をB1に設定します ' 「A1」のセル番地を設定します sCll = "A1" ' 3行目から2ステップづつ実行し、文字列を作成します For nI = 3 To 22 Step 2 sCll = sCll & "," & "A" & nI Next nI ' 作成した文字列をSUM関数でくくってセルに設定します Cells(1, 2) = "=SUM(" & sCll & ")" ' A1からA22までの偶数行の合計をC1に設定します ' 「A1」のセル番地を設定します sCll = "A2" ' 4行目から2ステップづつ実行し、文字列を作成します For nI = 4 To 22 Step 2 sCll = sCll & "," & "A" & nI Next nI ' 作成した文字列をSUM関数でくくってセルに設定します Cells(1, 3) = "=SUM(" & sCll & ")" End Sub