複数のエクセルデータ上特定位置の値を一つのセルに

質問

大量の同じフォーマットのエクセルファイル（Book1,Book2...）があり、それぞれのBookファイルの「NO.」シートのD6セルには番号が入っています。それぞれファイルでSheet1の特定のセル（例えばB4セル）の値を「データ」ファイルのSeet1にまとめたいです。「データ」ファイルのA列には「NO.」が入力されているので、Bookファイルの値はそれぞれ対応する番号の右側3番目のセルに移したいです。

いちいちコピーすることもできますが、あまりに量が多いので、VBAで簡単にできないかといろいろ試行錯誤してみましたが、うまくいかず悩んでいます。どなたか教えていただければと思いここで質問します。質問の意図がうまく伝わったかどうか不安ですが、よろしくお願いいたします。

回答No.1

keithin · ベストアンサー

丁寧に、順繰り拾って開いて調べて転記するだけです。
アナタが手でやれば出来る手順を、その通りにマクロにしていくだけという言い方もできます。

sub macro1()
　dim myPath as string
　dim myFile as string
　dim myNo as variant
　dim myRng as range

　on error resume next
　application.screenupdating = false
　mypath = "c:\test\"　’book1,2,3…の保存場所を指定する事
　myfile = dir(mypath & "*.xlsx")　’拡張子を正しく指定すること

　do until myfile = ""
　　workbooks.open mypath & myfile
　　myno = workbooks(myfile).worksheets("No.").range("D6").value
　　set myrng = thisworkbook.worksheets("Sheet1").range("A:A").find(what:=myno, lookin:=xlvalues, lookat:=xlwhole)
　　myrng.offset(0, 3).value = workbooks(myfile).worksheets("Sheet1").range("B4").value
　　workbooks(myfile).close savechanges:=false
　　myfile = dir()
　loop
　application.screenupdating = true
end sub

お礼

ぅおーーー、できました。
まさに私が思った通りになっていました。本当にありがとうございました<(_ _*)>
早速のご回答ありがとうございました。これからいろいろチャレンジしてみます。