
いつもお世話になってます。
下記のような売上のリストを作成しています。
A B C D E F G
日付 受付No. 品物 数量 単価 数量×単価 合計金額
7/4 11-1 りんご 1 100 100 700
ばなな 3 150 450
キウイ 1 150 150
7/5 11-2 りんご 1 100 100 500
みかん 2 200 400
7/5 11-3 ばなな 3 150 450 450
受付番号ごとに合計金額を集計します。
受付番号ごとに品物の種類は1種類だったり2種類,、ないしは3種類だったり等…異なります。
今は合計金額を直接入力していますが、数式を入れて簡略化したいと考えてます。
SUMとOFFSETと組み合わせてやろうとしましたが、品物が2種以上の場合は受付No.に空白がありうまくいきません。
どのようにすればスムーズに合計金額が出せるのかご教示いただければと思います。
A 回答 (5件)
- 最新から表示
- 回答順に表示
No.5
- 回答日時:
G2セルに
=IF(B2="","",SUM(F2:F$600)-SUM(G3:G$600))
下へオートフィル
最下行は適宜変更してください
#掲示板の回答でOFFSET関数を必要としたことが過去に1度あっただけの気がする。。。

No.4
- 回答日時:
今仮に、リストの最下段の行の行番号が999以下であるものとします。
その場合、G2セルに次の数式を入力してから、G2セルをコピーして、G3以下に貼り付けると良いと思います。
=IF($B2="","",SUM(OFFSET($F2,,,IF(COUNT($A$1:$A2)=COUNT($A:$A),999,MATCH("*",$B3:$B$999,0)))))
No.3
- 回答日時:
こんばんは!
ご希望の方法とは違うかもしれませんが・・・
VBAでの一例です。
画面左下にある操作したいSheet見出し上で右クリック → コードの表示 → VBE画面が出ますので
↓のコードをコピー&ペーストしてマクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)
Sub test() 'この行から
Columns(1).Insert
Dim i As Long
For i = 2 To Cells(Rows.Count, 4).End(xlUp).Row
If Cells(i, 2) <> "" Then
Cells(i, 1) = Cells(i, 3)
Else
Cells(i, 1) = Cells(i - 1, 1)
End If
Next i
For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row
If Cells(i, 3) <> "" Then
Cells(i, 8) = WorksheetFunction.SumIf(Columns(1), Cells(i, 3), Columns(7))
End If
Next i
Columns(1).Delete
End Sub 'この行まで
以上、参考になれば良いのですが
最初に書いたように関数での方法がご希望なら読み流してくださいね。m(_ _)m
No.2
- 回答日時:
簡単な方法:
B列に「文字列」で受付No.を記入してあるとして
最大10行まで空白が続く可能性があるとして
G2:
=IF(B2="","",SUM(OFFSET(F2,0,0,IF(COUNTA(B3:B12)=0,1,MATCH("*",B3:B12,0)),1)))
#B列に「文字列」が来るか「数値」が入るか決められない場合
G2に
=IF(B7="","",SUM(F7:INDEX(F:F,MIN(IF(B8:B17<>"",ROW(B8:B17)-1,9999)))))
と記入し,コントロールキーとシフトキーを押しながらEnter(←忘れず行う)して入力します。

No.1
- 回答日時:
》 SUMとOFFSETと組み合わせてやろうとしましたが、
》 品物が2種以上の場合は受付No.に空白がありうま
》 くいきません
OFFSETをご存知とは、貴方は Excel の達人かも。
「空白」がネックになっているなら、それを埋めるのが得策かと。
1.列A、B全体を選択
2.[編集]→[ジャンプ]→[セル選択]を実行
3.“空白セル”に目玉入れ
4.[OK]をツン
5.式 =A2 を入力して、Ctrlキーを抑えたままで Enterキーを「エイヤッ!」と叩き付け
以上の操作で、空白セルが一瞬にして埋まります。(添付図参照)
G2: =IF(B2=B1,"",SUMIF(B$2:B$15,B2,F$2:F$15))

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Microsoft Officeを2台目のPCに...
-
Office2021を別のPCにインスト...
-
大学のレポート A4で1枚レポー...
-
Office 2021 Professional Plus...
-
Microsoft365搭載Windows11PCへ...
-
エクセルで質問です。 ハイパー...
-
Microsoft365、ページ設定がで...
-
エクセルやパワポファイルの保...
-
【スプレドシート】IF関数の複...
-
エクセルマクロ(超初心者)
-
【Excel VBA】PDFを作成して,...
-
マクロ自動コピペ 貼り付ける場...
-
エクセル 関数の数値の入れ方を...
-
エクセル:一定間隔で平均値を...
-
エクセルにて横に月の行があり...
-
エクセル マクロVBAについて教...
-
ウィンドウィズ メモ帳で日付だ...
-
エクセルでXLOOKUP関数...
-
Microsoft Formsの「個人情報や...
-
エクセル、ワード、ネット検索...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Microsoft Officeを2台目のPCに...
-
大学のレポート A4で1枚レポー...
-
Office2021を別のPCにインスト...
-
エクセル 同じ数字を他の列に自...
-
エクセルからメールを作れるか...
-
Microsoft365、ページ設定がで...
-
快活CLUBについて 私用で使う書...
-
パソコンWindows11 Office2021...
-
libreoffice calcで行を挿入し...
-
エクセルで質問です。 ハイパー...
-
outlookのメールが固まってしま...
-
Microsoft Formsの「個人情報や...
-
別シートの年間行事表をカレン...
-
Microsoft Formsでクイズの解答...
-
マクロ自動コピペ 貼り付ける場...
-
Excelで〇のついたものを抽出し...
-
Excel 日付を比較したら、同じ...
-
エクセルで特定のセルの値を別...
-
Officeを開くたびの「再起動メ...
-
office2019 のoutlookは2025年1...
おすすめ情報