[[20080131204629]]　『１コ飛びの合計』（初心者H）　ページの最後に飛ぶ

『１コ飛びの合計』（初心者H）

よろしくお願いします。

例えばA1～A1000の合計を出す場合はSUM（A1:A1000）となりますが、
１コ飛びでの合計を出す方法を教えてください。

Ctrlで選択してSUM（A1,A3,・・・）と言う方法もあるのですが

この方法以外でよろしくお願いします。

 参考にどうぞ。
[[20051205134103]]『一マスとばして合計だすには』

 （ぽっち）

（初心者H)

配列数式で出来そうです。

ありがとう御座います。

パクリです。。
'-------------------------

 Function 一個置き(ByVal data As Variant)
    Dim i As Long, totl As Long

    Set tbl = Range(data.Address)
        For i = 1 To tbl.Rows.Count Step 2
            If Application.WorksheetFunction.IsNumber(tbl.Cells(i, 1)) Then
                totl = totl + tbl.Cells(i, 1)
            End If
        Next i
    一個置き = totl
    Set tbl = Nothing

 End Function

合計したい場所に=一個置き(A1:A10)←範囲を指定してね・・

コメント返信：

[ 一覧(最新更新順) ]

[[20080131204629]] 『１コ飛びの合計』（初心者H） ページの最後に飛ぶ

[[20080131204629]]　『１コ飛びの合計』（初心者H）　ページの最後に飛ぶ