エクセル：他ファイルを一括集計したい！

質問

いつもお世話になっています。少々複雑化してしまう質問ですが
ご教授よろしくお願いします。

エクセルにて業務を行っているのですが、用意されているファイルは
集計の際に手作業の部分が多く、マクロを組もうかと考えています。
ですが、下記条件の場合、ボタンひとつで集計を終える事は可能でしょうか？

＜条件＞
・Ａというデータ元ファイルとＢという集計ファイルがあります

・Ａのファイルは毎日のデータを入力しています。ファイルは日付毎に
別々、製品番号もシートで別々に入力されています。

・ＢのファイルはＡのファイル内の日々データをコピーして貼り付け、
　月報として管理しています。

＜作業＞
(1)Ａファイルをコピー、Ｂファイルに貼り付け
(2)Ｂファイル内でコピー、貼り付け
(3)Ｂファイル内でコピー、Ｂファイルの他シート（集計用）に貼り付け

＜質問＞
(1)日付毎、シート毎にバラバラになっているものをマクロ化できるのか？
(2)１日、２日、３日と、順番に処理を自動で行うようにマクロは組めるのか？
日付を追う毎にセルがひとつずれていきます。
(3)例えば”４日がなければ空白にする”等の指定はできるのか？

マクロを過信しすぎでしょうか（＾＾；）？
難解な質問ですがよろしければご回答の方、よろしくお願いします。

回答No.1

kamejiro · ベストアンサー

質問者さんの内容では、Ａファイルのシートやセルの形式を具体的に挙げてないので具体的な回答はできません…。
　どのシート名のどのセル番地に製品番号が入っているのか、製品番号の他にどんな項目があるのか…。何行目までデータがあるのか。
　一括処理を一気に考えるには、一つ一つの手順をマクロにする必要があります。

　別ファイルのセルの値をコピー＆貼付するには、「ファイル名」、「シート名」の指定が必要です。仮に、Ａファイルを「Book1.xls」、Ｂファイルを「Book2.xls」として、Ａファイルの「Sheet1」の「A1」の値をＢファイルの「Sheet2」の「B1」に貼り付けるマクロは、

　　Windows("Book1.xls").Activate
　　Sheets("Sheet1").Select
　　Range("A1").Select
　　Selection.Copy
　　Windows("Book2.xls").Activate
　　Sheets("Sheet2").Select
　　Range("B1").Select
　　ActiveSheet.Paste

　となります。セル指定をRange関数ではなくCells関数にすると数値で何行何列目の指定が出来ます。

　　Range("A1").Select　→　Cells(1, 1).Select
　　Range("B1").Select　→　Cells(1, 2).Select

これを応用してＡファイルの「Sheet1」の「A1～A10」の値をＢファイルの「Sheet2」の「B1～B10」に貼り付けるマクロは、

　　For i = 1 To 10
　　　　Windows("Book1.xls").Activate
　　　　Sheets("Sheet1").Select
　　　　Cells(i, 1).Select
　　　　Selection.Copy
　　　　Windows("Book2.xls").Activate
　　　　Sheets("Sheet2").Select
　　　　Cells(i, 2).Select
　　　　ActiveSheet.Paste
　　Next i

さらに、Ａファイルのシート名を固定ではなく、切り換える場合は、そのためのインデックスのためのシートが必要です。

「Book3.xls」の「Sheet1」のシートの「A1」、「A2」、「A3」のセルにそれぞれ「Sheet1」、「Sheet2」、「Sheet3」と入力しておきます。

Ａファイルの「Sheet1」の「A1～A10」の値をＢファイルの「Sheet2」の「B1～B10」に、
Ａファイルの「Sheet2」の「A1～A10」の値をＢファイルの「Sheet2」の「C1～C10」に、
Ａファイルの「Sheet3」の「A1～A10」の値をＢファイルの「Sheet2」の「D1～D10」に貼り付けるようにするには、

　　For i = 1 To 3
　　　　Windows("Book3.xls").Activate
　　　　Sheets("Sheet1").Select
　　　　シート名 = Cells(i, 1)
　　　　For j = 1 To 10
　　　　　　Windows("Book1.xls").Activate
　　　　　　Sheets(シート名).Select
　　　　　　Cells(j, 1).Select
　　　　　　Selection.Copy
　　　　　　Windows("Book2.xls").Activate
　　　　　　Sheets("Sheet2").Select
　　　　　　Cells(j, i + 1).Select
　　　　　　ActiveSheet.Paste
　　　　Next j
　　Next i

　となります。なお、条件付きのループには「For文」よりも「Do文」が良いかとも思います。
　また、データがなければ空白すると言った処理は「If文」で判断します。

　回答は途中までです。

　マクロは一つ一つの操作手順を記録してそれを一括処理するものです。解法として「マクロの自動記録」で質問者さんがいつも操作している手順を記録して、それで作成されたマクロのソースに手を加えると良いと思います。
　それとマクロで処理しやすいようにＡファイルのシートセル位置を決めておくと良いです。

お礼

同僚と一緒に手順をおっていき、業務に生かす事にしました。

　ご回答ありがとうございました。