一行飛ばしで合計したい。

質問

いつもお世話になっております。
excel2013を使用しています。

一列で複数の行の合計を数字最終行から下に一行飛ばし、二行目に合計を入れる
方法を教えて下さい。

宜しくお願いします。

回答No.4

tsubu-yuki · ベストアンサー

難解な日本語で困惑してます。

パターン１）
例えばＡ２セルからＡ１１セルまで数字があって、
下に１行飛ばしたＡ１３セルに合計を入れたい
素直に
　　Ａ１３セル：=SUM(A2:A11)

ただ、コレはあまりに当たり前すぎるので・・・

パターン２）
例えばＣ２セルからＣ１１セルまで数字があって、
１行飛ばしで（例えば）偶数行のみ合計したい
　　Ｃ１３：=SUM(IF(MOD(ROW(C2:C11),2)=0,C2:C11,0))
　　　　　　※これをShift+Ctrl+Enter で確定（配列関数）
　　　　　　　なお奇数行の時は
　　　　　　　=SUM(IF(MOD(ROW(C2:C11),2)=1,C2:C11,0))

その他のパターン）
詳しく、他人に通じる表現で補足ください。

お礼

解り易いご解答頂きどうも有難うございました。
素直に　Ａ１３セル：=SUM(A2:A11)　の活用で、上手く行きました。
何回もコメント戴き、本当に有難うございました。
今後ともよろしくお願いいたします。

回答No.5

tsubu-yuki

連投失礼、でパターン２の場合。
配列関数は難しくてアレなので、ソレを使わないでやるには、
作業列を使って少し柔らかい関数を使います。

図のようにＡ２：Ａ１１に数字が羅列しているなら、
適当な列（図ではＢ列）に式を
　　Ｂ２セル：=MOD(ROW(),2)
　　　　　　　以下、Ｂ１１セルまでフィル。
入れておきます。

で、合計を出したいＢ１３セルに
　　Ｂ１３セル：=SUMIF(B2:B11,0,A2:A11)
と入れてやると、偶数行だけの合計が出てきます。

回答No.3

imogasi

>数字最終行から
その列（または各列）には、数字のほかに文字列も混じっているのですか？
詳しく説明する表現のつもりかもしれないが、表現語句には気を付けてください。
読者は気になって、回答を複雑なケースで答えなければならないのかとおもってしまう。
＞数字最終行から下に一行飛ばし
この通りに意味を採って良いのか。エクセルのシートではこういうことを問題にする、シートのデータの作り方は避けるものだよ。
普通は（質問に「合計」といっているから）（見出し行を除き）数値セルばかりのセル範囲を問題にするが、どうなっているのか。
文字通りやるには、ＶＢＡででも使わないとむつかしい。
セルの値が文字列か数値かなど本気で判別しようとするとむつかしい。
https://oshiete.goo.ne.jp/qa/3097158.html
どのセルにはじめてあらわれるかを関数で見つけるなんて、難問だと思う。
＞「数字最終行から下」に、は「数字最終行から上方向に」の間違いではないか。
ーー
こういう疑問が出るのは、データ例を質問に上げて質問しないからだ。
読者回答者は、回答に時間を採って回答するのだから、質問者はそれぐらい、労を惜しむな。
＝＝＝
エクセル 関数 1行おきの合計」でＧｏｏｇｌｅ照会したら出てくる問題ではないのか。
数字ばかりのセルで、第１行目か第２行目から、その列の最終行までについて
１つと行の合計
https://www.microsoft.com/ja-jp/atlife/tips/archive/office/tips/035.aspx
ただし「配列数式」という、むつかしい仕組みを使うのが常識になっている。

お礼

ご解答頂きどうも有難うございました。
質問の説明が不十分で申し訳ありませんでした。
今後ともよろしくお願いいたします。

回答No.2

bunjii

>一列で複数の行の合計を数字最終行から下に一行飛ばし、二行目に合計を入れる方法を教えて下さい。
先頭行から最終行まで数値が入力されているものとします。（間にブランクが無い状態）
手動での操作は下記のとおりです。
1.合計したい数列の先頭を選択（クリック）する
2.Ctrl+Shift+↓の3つのキーを同時打鍵する
3.編集グループのΣコマンドをクリックする
4.結果の合計値を1つ下のセルへ移動する

4ステップの動作説明
先頭行を選択してCtrlとShiftキーを押した状態で方向キー（矢印キー）の下向きを打鍵すると最終行まで選択状態になりますので、編集グループのΣをクリックします。
数値のセルの最終行の直下に合計値が算出されますので、これと下へ1セル分移動させれば目的の結果になります。

お礼

ご解答頂きどうも有難うございました。
上手く行ってほっとしています。
今後ともよろしくお願いいたします。

回答No.1

watabe007

>最終行から下に一行飛ばし、二行目に合計を入れる
マクロで行うのなら
[例]A列の１行目から最終行までの合計
Cells(Rows.Count, "A").End(xlUp).Offset(2).FormulaR1C1 = "=SUM(R1C:R[-1]C)"

お礼

早速のご解答ありがとうございました。
無事解決出来ました。
今後ともよろしくお願いいたします。