エクセルの関数について

質問

エクセルです。

　　Ａ1，Ｂ1，Ｃ1，Ｄ1・・・
A1
A2
A3
A4
A5
A6
A7
・
・
・
とあって
(1)奇数行のみの合計、又偶数行のみの合計
(2)Ａ1，Ｃ1，Ｅ1，と２つ飛ばしの合計
をそれぞれ出したい場合の関数式を教えてください。　宜しくお願いします。

回答No.2

AloneAgain · ベストアンサー

こんにちは。

いくつか方法がありますが・・
>(1)奇数行のみの合計、又偶数行のみの合計

データが A1:A10 として
奇数行のみの合計は↓
----------------------------------------
=SUM(IF(MOD(ROW(A1:A10),2)=1,A1:A10,""))
----------------------------------------
偶数行のみの合計は↓
----------------------------------------
=SUM(IF(MOD(ROW(A1:A10),2)=0,A1:A10,""))
----------------------------------------
↑いずれも配列数式です。
Ctrl＋Shift＋ENTER で確定してください。
↓のように数式の前後に { } がつけばOKです。
------------------------------------------
{=SUM(IF(MOD(ROW(A1:A10),2)=1,A1:A10,""))}
------------------------------------------

または SUMPRODUCT関数を使って
奇数行のみの合計は↓
------------------------------------------
=SUMPRODUCT((MOD(ROW(A1:A10),2)=1)*A1:A10)
------------------------------------------
偶数行のみの合計は↓
------------------------------------------
=SUMPRODUCT((MOD(ROW(A1:A10),2)=0)*A1:A10)
------------------------------------------

(2)Ａ1，Ｃ1，Ｅ1，と２つ飛ばしの合計
A1：F1 までデータが入っているとして、
--------------------------------------------
=SUMPRODUCT(A1:F1*(MOD(COLUMN(A1:F1),2)=1))
--------------------------------------------

お礼

できました！

今日の夕方までに資料を仕上げなければならず、途方にくれてもう泣きそうでした。
お蔭様で後２時間もあれば完成しそうです。

本当に助かりました。心から感謝いたします。
ありがとうございました。

回答No.1

stouma

私の未熟から1セルで行うにはVBAが必要かと
思われます。
1セルでなくてもいいのであれば
どこか別シートに下記のニュアンスでかかれてはいかがですか？
A1の対角線をA1セルとします。
(1)奇数
A1には
　　=Sheet1!A1
A2には
　　=IF(Sheet1!A1="",Sheet1!A2,"")
A3には
　　=IF(Sheet1!A2="",Sheet1!A3,"")
を繰り返す。
偶数は上記を修正してください。

(2)も上記と同じような感じで行います。

上記で表示された数値を足しこんではだめでしょうか？

お礼

行と列を合わせると５００近くのセルに合計を求めたいのです。
手間、時間、そして能力が限られています。

＞VBAが必要かと思われます。
私には無理かもしれません・・・。（泣）

ありがとうございました。