おしえて

エクセルで集計したい。

解決済

質問者：gori3gogo2006
質問日時：2015/06/27 10:58
回答数：1件

Tシャツ注文の集計をしています。
エクセルで個人ごとの集計表を作りました。
氏名：色：サイズ：枚数：色：サイズ：枚数：色：サイズ：枚数：合計枚数
●●：赤：　Ｓ　：　　1：黒：　Ｌ： 1：青：　　Ｌ：　２：　　4
●●：黒：　Ｓ　：　　1：青：　Ｓ：　 1：赤：　　Ｓ：　 1：　　3
●●：青：ＳＳ：　　1：青：ＳＳ： 1：黒：　　Ｌ：　３：　　5

このデータから、
以下のように色、サイズごとに集計させたいのですが、どうしたらよいでしょうか？
　サイズ：ｓｓ：Ｓ：Ｌ
　黒　　：0枚：１枚：４枚
　赤　　：０枚：２枚：０枚
　青　　：２枚：１枚：２枚
よろしくお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

参考程度に

No.1ベストアンサー

回答者： tom04
回答日時：2015/06/27 18:10

こんにちは！

Excelでの一例です。
お使いのバージョンがExcel2007以降だという前提で・・・
↓の画像のように元データはSheet1にあり、Sheet2に表示するとします。
尚、Sheet2の1行目「サイズ」・A列の「色」は入力済みだという前提です。

画像ではSheet2のB2セルに
=SUMIFS(Sheet1!$D:$J,Sheet1!$B:$H,$A2,Sheet1!$C:$I,B$1)
という数式を入れ、列・行方向にフィルハンドルでコピーしています。

※　SUMIFS関数の
合計範囲・条件範囲1・条件範囲2　
がそれぞれ1列ずつずらしているコトに注意してください。m(_ _)m

- 0
- 件

通報する

この回答へのお礼

ありがとうございます。
丁寧に教えていただき感謝します。

通報する

お礼日時：2015/06/27 20:09

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう！

質問する（無料）

このQ&Aを見た人はこんなQ&Aも見ています

専門家回答数ランキング

専門家

※過去一週間分の回答数ランキングです。

質問する（無料）

他の専門家の回答をチェック

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセルでサイズ集計

よろしくお願いします。
エクセルにて添付画像左のような購入商品のサイズ集計をしています。
ウエアサイズ・購入個数・タイツサイズ・購入個数のように並んでいますが、
このようなデータから、添付画像右のような表に購入個数を出したいと思います。
関数でこのような個数を拾う場合、どういった式を使えば良いのでしょうか？

Aベストアンサー

元データがSheet1にあり（１行目から項目名があり右端がY列まで）、集計表が別シートの左上から作成されているなら、B2セルに以下の式を入力して右方向および下方向にオートフィルコピーしてください。

=SUMIF(INDEX(Sheet1!$A:$Y,,MATCH(B$1,Sheet1!$1:$1,0)),$A2,INDEX(Sheet1!$A:$Y,,MATCH(B$1,Sheet1!$1:$1,0)+1))

他の回答も見る

Qエクセルで、列内が同じ名前を集計する方法は？

エクセルで以下のような表を作成したとします。

　　　　　　Ａ列　　　Ｂ　　　　Ｃ　　　　Ｄ
　1行　　　名前　　　項目　　　金額
　2　　　　すずき　　あいう　　100
　3　　　　すずき　　かきく　　200
　4　　　　すずき　　さしす　　450
　5　　　　さとう　　あいう　　150
　6　　　　さとう　　さしす　　200
　7　　　　はやし　　あいう　　250　
　8　　　　はやし　　かきく　　170
　9　　　　はやし　　たちつ　　980

Ｂ列の名前が同じ者の、金額の合計をＤ列に出したいのです。
Ｄ4に　すずきの合計　750、Ｄ６にさとうの合計　350、
Ｄ9にはやしの合計　1150　　というふうに。
全部で１００人分位、データ行数は１５０００ほどあるのですが
これをさっとできるようにはどのようにしたら良いのでしょうか？

Aベストアンサー

次の方法は如何でしょうか。
D2に=IF(COUNTIF(A:A,A2)=COUNTIF($A$2:A2,A2),SUMIF(A:A,A2,C:C),"")を入力→D2を選択→フィルハンドル（D2セル枠右下の■）をダブルクリック
但し、Ｃ列途中に空白がある場合、その直前までしかコピーされませんので、空白セル前のセルを下方向にコピー後、同様にフィルハンドルをダブルクリックし下さい。

他の回答も見る

QエクセルのＩＦ関数で、文字が入力されていたならば～

エクセルのＩＦ関数で文字が入力されていたならば～、という論理式を組み立てたいと思っています。

=IF(A1="『どんな文字でも』","",+B1-C1)

A1セルに『どんな文字でも』入っていたならば、空白に。
文字が入っていなければB1セルからC1セルを引く、という状態です。

この『どんな文字でも』の部分に何を入れればいいのか教えてください。

またＩＦ関数以外でも同様のことができれば構いません。

宜しくお願いします。

Aベストアンサー

=IF(ISTEXT(A1),"",B1-C1)

でどうでしょうか？

他の回答も見る

Qエクセルで〇の数を数えたい

エクセルで〇の数を数えたい。関数式はどうなりますか。
ｃ５～ｃ４５の○を挿入したセルの数をｃ５０にだしたいのですが。
ひさしぶりにエクセルやったので、忘れてしまいました。

Aベストアンサー

#1です。
おかしいですねえ。

まさかとは思いますが、
・「○」のつもりが、英語の O になってるとか、数字の０とか、漢数字の〇になってるとか
・○の前後にスペースが入っていないか

このあたりを見てみましょう。

他の回答も見る

Qエクセルで数式の結果が反映されない（自動計算になっているのに）

すいません、教えてください。

エクセル（XP）で数式が自動計算されなくなって
しまいました。

　　※ツールのオプションはちゃんと自動計算に
　　　なっているのに全く反映されません。

今まで全く問題なく作業できていたので
原因が分からず困っています。

数式等のエラーだとは考えにくいです。
と言うのも数式のあるセルをダブルクリックして
選択し、そのままEnterキーを押すと計算結果が
反映されます。
ただ、今まで全て自動計算されていたのが
全く動かなくなってしまったんです。

同じようなトラブルを経験された方、又は
詳しい方、どうかよろしくお願いします。

Aベストアンサー

原因は分からずじまいになってしまいましたが
同じことがありました。

「Officeの救急隊」を試してみましょう。
ボタン一発で全ての設定が元に戻ります。
http://www.vector.co.jp/soft/win95/util/se247118.html
（ツールバーなども初期状態に戻ります）

私の場合はコレで直ってしまいました^^

参考URL：http://www.vector.co.jp/soft/win95/util/se247118.html

他の回答も見る

Qエクセル関数で答えが「0」の時ブランク表示にする方法

こんにちは

タイトルのままなのですが
SUM関数やCOUNT関数を設定した状態で
答えが「0」になる場合
「0」と表示されずに空白セル表示にしたいんです

セルの書式設定から設定できるのでしょうか？
いろいろやっているのですがうまくいきません
お願いします

Aベストアンサー

エクセルメニューの
ツール→オプション→表示タブで
ウインドウオプションの「ゼロ値」チェックを外すと
そのエクセル上のゼロの値は表示されなくなります。

（全てのゼロが表示されなくなりますので注意してください）

他の回答も見る

Qエクセル　表を大きく、紙いっぱいに印刷したい

エクセルで表を作りました。
印刷プレビューで確認したところ
用紙に対して表が小さく見栄えがしません。

一つ一ついじればできると思いますが、
簡単に、
用紙いっぱいにフォントも大きくし、表も大きくし、
印刷するやり方はありますか。
教えてください。

Aベストアンサー

CtrlキーとPのキーを同時に押すと「印刷」ダイアログが呼び出せます。その状態でAltキーとWのキーを同時に押すと「印刷プレビュー」が表示されますので、印刷のイメージがつかめます（必ずしもプレビュー通りには印刷されませんが）
印刷プレビュー画面の上にある、設定のボタンを押してあげれば、余白を少なくしたり、拡大縮小印刷をパーセンテージを指定しておこなえたりします。いずれにせよ、プレビューで確認しながら拡大率を決めていけばいいと思います。なお、「拡大縮小印刷」のところに「次のページ数に合わせて印刷をする」というチェックをいれて横１×縦１にしてあげれば自動で拡大縮小印刷ができる場合がありますが、やってみればわかりますが、特に縮小印刷の場合小さくなりすぎたりする場合もあります。

他の回答も見る

Qエクセルのみで長３封筒に宛名印刷をしたい

エクセルで３００件ほどの名簿を作りました。

Ａ…ナンバー（1,2,3…）
Ｂ…氏名
Ｃ…郵便番号
Ｄ…住所

こんな感じで下方向に300件ほど入力してあります。

長３封筒横向き、横書きで、エクセルのみを使って１件につき１枚連続印刷したいのですが、マクロを組んだことがなく、どうしたら良いのかわかりません。

-----------------------------------------
　〒○○○-○○○○
　　　△△市△△町△-△
　　　　□□　□□□　様

-----------------------------------------
↑
こんな感じに作りたいんです。
ナ...続きを読む

Aベストアンサー

次のように仮定します。

名簿用シート：シート名＝List
　　　Ａ　　　　Ｂ　　　　Ｃ　　　　Ｄ　　　　　Ｅ　　　　　Ｆ
　1 　No.　　氏名　　〒　　　住所　　先頭番号　　3
　2　　1　　　　　　　　　　　　　　　　　　最終番号　　7
　3　　2
　4　　3

封筒印刷用シート：シート名＝Print
　1.セルA1の文字色を白にします。
　2.宛先データを表示する各セル(A1以外)にVLOOKUP関数の数式を入力します。
　　　郵便番号：　=VLOOKUP(A1,List!A2:C300,3,0)
　　　住　　所：　=VLOOKUP(A1,List!A2:D300,4,0)
　　　名　　前：　=VLOOKUP(A1,List!A2:B300,2,0)

マクロ記述
　1.[Alt]を押しながらの[F11]で、Visual Basic Editor を開きます。
　2.開いたウィンドウの[挿入]から、[標準モジュール]を指定します。
　3.標準モジュールに以下を記述して、Visual Basic Editor を閉じます。
　　ここでは、テスト用に印刷イメージ表示（最後から６行目）にしています。
　　印刷する場合は、.PrintPreview　を　.PrintOut　に書き換えます。
　Sub 印刷開始()
　　Dim PrintNB, EndNB, FormStyle
　　Application.ScreenUpdating = False
　　Worksheets("List").Select
　　　PrintNB = Range("F1").Value
　　　EndNB = Range("F2").Value
　　Worksheets("Print").Select
　　　Do Until PrintNB > EndNB
　　　　Range("A1").Value = PrintNB
　　　　ActiveWindow.SelectedSheets.PrintPreview　　'印刷イメージ
　　　　PrintNB = PrintNB + 1
　　　Loop
　　Worksheets("List").Select
　　Application.ScreenUpdating = True
　End Sub

ボタンにマクロを登録
　名簿用シートを開いてフォームツールバーを表示し、"ボタン"を選択してシート内の
　任意の位置に描画します。
　ここで表示されるマクロの登録画面で、上記マクロを選択して [ＯＫ] します。

印刷時は、F1に印刷開始データ番号、F2に最終印刷データ番号(どちらもＡ列の数字)を
入力してからボタンをクリックします。
　

他の回答も見る

Q複数の同じフォーマットのファイルを新しいブックで一つのシートにまとめる方法

仕事で、各部署から送られてきた、同じフォーマットのファイル（シート1にのみデータ有）が50個近くあります。
それを新しいブックで一つのシートにまとめなくてはいけません。
地道にコピペするのは時間がかかるのでマクロで処理を行いたいと思います。
マクロでの処理方法ご存知の方、処理方法の載っているサイトをご存知の方、もしくはマクロより簡単な方法がありましたら教えてください。

あと、逆に一つのシートをいくつかのファイルに振り分けていく方法もご存知でしたら教えて下さい。
よろしくお願いします。

Aベストアンサー

すみません。質問を勘違いしていました。
>新しいブックで一つのシートにまとめなくてはいけません
でしたね。
Sub Sample1()
Dim buf As String, i As Long
Dim j
buf = Dir(Sheets("Sheet1").Range("A1").Value & "\*.xls")
Do While buf <> ""
Workbooks.Open Worksheets("Sheet1").Range("A1").Value & "\" & buf
Sheets("Sheet1").Range("A1:J1000").Copy
ThisWorkbook.Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Workbooks(buf).Activate
Application.CutCop...続きを読む