即効テクニック

セル操作関連のテクニック

1つ置きのセルを合計する

(Excel 97/2000)
奇数行のみ(もしくは、偶数行のみ)の合計を求める方法として、合計対象になるセル番地を文字列として連結し、合計を表示するセルに数式として設定する方法があります。
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