EXCEL マクロ どう記述したらよいですか？

質問

お世話になります。

まったくの素人です。

以下のような処理をしたいと考えております。

１）１つのフォルダに　AAA.xls　BBB.xls　CCC.xls・・・をまとめておきます。
　　それとは別に、フォーマット.xls　を用意します。

２）AAAを開き、ａというシートにある列（１列）を選択、コピーし、
　　フォーマットの　【F列】　に　【値貼り付け】　で貼り付ける。
　　AAAは閉じる。

３）BBBを開き、ａというシートにある列（１列）を選択、コピーし、
　　フォーマットの　【G列】　に　【値貼り付け】　で貼り付ける。
　　BBBを閉じる。

４）CCC・・・（ａというシート名は固定、コピーする列も固定で１列のみです）。

５）以下、フォルダ内の全ファイルについて、同じ処理を繰り返し、
　　すべて貼り付け終えたら、完了。

宿題の丸投げのようで申し訳ないのですが、ご教示いただけると
幸いです。よろしくお願いします。

回答No.1

keithin · ベストアンサー

段取り：
フォーマット.xlsにマクロを登録して実行し、データを吸い上げることにする
フォーマットと他のブックは同じフォルダに放り込んでおくことにする
各ブックの「ある列」じゃ話にならないので、とりあえず「Ａ列」を吸い上げることにする
原則として「どのブックから」取ってきたのを「どの列に」配置するか「指定は無い」事にする
例えばＦ列に転記されたデータが「実際にどこから取ってきたモノだったのか」の情報は「別に要らない」ご相談になっていますが、それじゃあんまり使いにくいので１行目にファイル名を記録し、２行目からデータを転記する事にする（余計なお世話なので、不要なら適切にマクロを修正してください）

手順：
フォーマット.xlsを開く
ＡＬＴ＋Ｆ１１を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

sub macro1()
　dim myPath as string
　dim myFile as string
　dim c as long
　dim LastRowr as long
　application.screenupdating = false

　mypath = thisworkbook.path & "\"
　myfile = dir(mypath & "*.xls")
　range("F:IV").delete shift:=xlshifttoleft
　c = 6

　do until myfile = ""
　　if myfile <> thisworkbook.name then
　　　workbooks.open filename:= mypath & myfile
　　　lastrow = worksheets("ａ").range("A65536").end(xlup).row

　　　thisworkbook.worksheets(1).cells(1, c) = myfile
　　　thisworkbook.worksheets(1).cells(2, c).resize(lastrow, 1).value = worksheets("ａ").range("A1").resize(lastrow, 1).value
　　　workbooks(myfile).close false
　　　c = c + 1
　　end if
　　myfile = dir()
　loop
　application.screenupdating = true
end sub

ファイルメニューから終了してエクセルに戻る
マクロを実行する

お礼

回答有難うございます。
少し削除・追加等しまして、うまく実行できました！
あと細かい部分は自分で勉強したいと思います。
大変助かりました。有難うございました。