複数のスプレッドシートから同じ形式のセルをすべて新しいマスター ファイルに抽出するにはどうすればよいでしょうか。

Question

まったく同じ形式の Excel ファイルが 300 個あります。各ファイルには同じ列/行ヘッダーを持つ 4 つのワークシートがあります。300 個の Excel ファイルすべてから、これらの 4 つのワークシートのそれぞれの選択したセル (たとえば、ワークシート A のセル D26、ワークシート B のセル D62 など) から情報を抽出し、そのデータを 300 個の Excel ファイルそれぞれの情報を含む新しいマスター Excel ファイルに入れようとしています。これは可能ですか?

Answer 1

本当に素晴らしいコードが投稿されていますここ少し調整するだけで、望みどおりの動作が実現できるはずです。

ゴードン

いくつかの変更が必要になりますが、その変更については適切にコメントされています。これらの行は、ワークブックの列 A からすべてのデータを取得し、マスター シートにコピーします。

LR = Range("A" & Rows.Count).End(xlUp).Row  'Find last row
Range("A1:A" & LR).EntireRow.Copy .Range("A" & NR)

代わりに、ワークシートをループして、次のようにコピーする範囲を設定する必要があります。

wbData.sheets(1).range("A2:A26").copy .Range("A" & NR)
NR = .Range("A" & .Rows.Count).End(xlUp).Row + 1
wbData.sheets(2).range("A2:A62").copy .Range("A" & NR)
NR = .Range("A" & .Rows.Count).End(xlUp).Row + 1
...