Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5090 / 76735

←次へ　｜　前へ→


	【77258】シートをまとめる

エクセル勉強中

- 15/6/27(土) 1:02 -


	引用なし

	パスワード

1　　A　　　　　B　　　　 C　　　　　　D　　　　　E　　　　　　　　F　　　　G　　　　 H　　　I　　　 J　　　
2　宴会名　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
3　日付　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
4　入力者　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
5　備考　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
6　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
7　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
8　　　　　部屋1　　　　部屋2　　　　部屋3　　　　部屋4　　　　部屋5　　　　部屋6　　　　部屋7　　　　部屋8　　　　部屋9
9　部屋名　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
10　人　　数　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
11　宴席目的　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
12　宴席形式　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
13　開始時間　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
14　終了時間　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
15TOTAL　　　　　　　　　　　　　　　　　　　　　　　　137,250円　　　　　　　　　　　　
16日付　　　　コード　　　　商品名　　　　販売価格　　　　出庫数　　　　単位　　　　合計　　　　種類　　　　部屋　　　　備考
17　　　　1015　　　　アサヒスーパードライ　　　　800円　　　　100　　　　本　　　　80,000円　　　　ドリンク　　　　　　　　
18　　　　1016　　　　サッポロ黒ラベル　　　　800円　　　　55　　　　本　　　　44,000円　　　　ドリンク　　　　　　　　
19　　　　1059　　　　白岳仙　　　　1,000円　　　　3　　　　合　　　　3,000円　　　　ドリンク　　　　　　　　
20　　　　1066　　　　黒龍　純米吟醸　　　　1,000円　　　　4　　　　合　　　　4,000円　　　　ドリンク　　　　　　　　
21　　　　1024　　　　まるで梅酒なノンアルコール　　　　450円　　　　5　　　　本　　　　2,250円　　　　ドリンク　　　　　　　　
22　　　　1055　　　　一本義　上撰本醸造（赤）　　　　1,000円　　　　4　　　　合　　　　4,000円　　　　ドリンク　　　　　　　　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
エクセル初心者です
この様なブックが月事に100ぐらい出来てきます（（sheet1)しか記入されていない）
参考書を読むなりして1つのブックのシートにまとめる事はできたのですが、
その100枚のシートを一つのシートにまとめたい

まとめ方
範囲
列はＡ16からＪ16
行はイフ関数の式が入っていてRange("ｃ1").End(xlDown).Row←あえて（Ｃ1）では空白のセルで値の入っていないセルを最終行にかえしてしまう（if関数の式は114行まで入っているのでそこで止まってしまう）←ここがどう書けばいいか1番解らない
ので値の入った所までを範囲としたい
後は集計のシートに上から1つのシートごとにコピーしていく
A16行は見出しなのでコピーは不要
お手数ですがよろしくお願いします

0 hits

▼

【77258】シートをまとめる エクセル勉強中 15/6/27(土) 1:02