エクセルの学校：全文検索：Hyper Estraier：（Mook）

Results of 1 - 1 of about 1215 for （Mook） (0.001 sec.)

[[20150526152244]]: #score: 9211; @digest: 21fe34e95733c57d3c5efe3b1df17dcb; @id: 68076; @mdate: 2015-05-26T08:23:40Z; @size: 4280; @type: text/plain; #keywords: 幌a (44705), 日札 (41443), 幌12 (40599), 道aa (38796), 樽b (38104), 小樽 (38038), 樽11 (29523), 森コ (29295), 物20 (28880), 道bb (28223), コ80 (28021), 田コ (27823), 魚20 (27628), 20150102 (26707), 111222 (23246), 格卸 (23246), 20150101 (22969), 益仕 (22142), ド産 (21016), 格利 (21016), 位仕 (20163), 地コ (19771), 卸価 (19644), 日小 (19108), コ10 (18965), 支所 (16246), 札幌 (14071), 類有 (13576), 計最 (13530), 効日 (12268), 数販 (12162), 日購 (12059); 『複数シートの集計方法を教えて頂けないでしょうか』（anan）
毎月一度下記のエクセルシートを集計シートへコピー貼り付けしております。シート数はその都度変更され150シート〜250シートあります。一つのシートの行数は定型では有りません（列は定型です）各シートのセルA2:S□□を集計シートへコピー貼り付けできないでしょうかエクセルは関数を少し使用する程度ですので、具体的にご指導頂けると助かります。宜しくお願い致します。＜シート名:果物札幌A＞ - - - - - - - - - - - - - - - - - A B C D E F G H I J K L M N O P Q R S 1 商品コード商品名産地コード産地名単位仕入価格卸価格利益仕入日購入数販売数残数分類有効日支所名店コード店名地域名担当者名 2 123456 ふじ 111111 青森コ 80 100 20 20150101 11 5 6 果物 2015年5月25日札幌 123456 札幌A 北海道 AA 3 456879 紅玉 222222 秋田コ 105 130 25 20150102 22 10 12 果物 2015年5月25日札幌 123456 札幌A 北海道 AA 4 789123 つがる 333333 新潟コ 115 150 35 20150103 33 15 18 果物 2015年5月25日札幌 123456 札幌A 北海道 AA 5 ＜シート名:魚小樽B＞ - - - - - - - - - - - - - - - - - A B C D E F G H I J K L M N O P Q R S 1 商品コード商品名産地コード産地名単位仕入価格卸価格利益仕入日購入数販売数残数分類有効日支所名店コード店名地域名担当者名 2 111111 さんま 111111 青森コ 80 100 20 20150101 40 30 10 魚 2015年5月25日小樽 111222 小樽B 北海道 BB 3 111112 いか 222222 秋田コ 105 130 25 20150102 60 20 40 魚 2015年5月25日小樽 111222 小樽B 北海道 BB 4 ＜シート名:シート集計＞ - - - - - - - - - - - - - - - - - A B C D E F G H I J K L M N O P Q R S 1 商品コード商品名産地コード産地名単位仕入価格卸価格利益仕入日購入数販売数残数分類有効日支所名店コード店名地域名担当者名 2 123456 ふじ 111111 青森コ 80 100 20 20150101 11 5 6 果物 2015年5月25日札幌 123456 札幌A 北海道 AA 3 456879 紅玉 222222 秋田コ 105 130 25 20150102 22 10 12 果物 2015年5月25日札幌 123456 札幌A 北海道 AA 4 789123 つがる 333333 新潟コ 115 150 35 20150103 33 15 18 果物 2015年5月25日札幌 123456 札幌A 北海道 AA 5 111111 さんま 111111 青森コ 80 100 20 20150101 40 30 10 魚 2015年5月25日小樽 111222 小樽B 北海道 BB 6 111112 いか 222222 秋田コ 105 130 25 20150102 60 20 40 魚 2015年5月25日小樽 111222 小樽B 北海道 BB ＜使用 Excel:Excel2010、使用 OS:Windows7 ＞ ---- マクロの例です。 1）Alt+F11 で VBE を起動、 2）挿入⇒標準モジュールを選択、 3）そこに下のコードをコピーしてWindow を閉じ、 4）EXCEL に戻って Alt+F8 で「集計」を実行です。 Sub 集計() Dim 集計シート As Worksheet Set 集計シート = ThisWorkbook.Worksheets("シート集計") '// 集計シート名集計シート.Cells.Clear '// 集計開始時に一旦クリアする場合。常に追記の場合はこの行を削除 Dim データシート As Worksheet Dim 集計最終行 As Long Dim データ最終行 As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each データシート In ThisWorkbook.Worksheets If データシート.Name <> 集計シート.Name Then 集計最終行 = 集計シート.Cells(Rows.Count, "A").End(xlUp).Row データ最終行 = データシート.Cells(Rows.Count, "A").End(xlUp).Row If 集計シート.Range("A2").Value = "" Then データシート.Range("A1").Resize(データ最終行, 19).Copy 集計シート.Range("A1").Resize(データ最終行, 19) Else データシート.Range("A2").Resize(データ最終行 - 1, 19).Copy 集計シート.Cells(集計最終行 + 1, "A").Resize(データ最終行 - 1, 19) End If End If Next Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub （Mook） 2015/05/26(火) 16:48 ---- Mook様ご連絡有難うございました。少々時間が掛かりましたが出来ました。すごいですね仕事の時間がものすごく短縮されます。本当に有難うございました。（anan） 2015/05/26(火) 17:23 ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201505/20150526152244.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ