No.1ベストアンサー
- 回答日時:
集計用のブックを用意する
Sheet1のA1、B1、C1セルに「ファイル名」「シート名」「データ」と記入しておく
集計ブックを、あなたの「複数のエクセルファイル」が放り込んであるフォルダに一緒に保存しておく
改めて集計ブックを開く
ALT+F11を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける
sub macro1()
dim myPath as string
dim myFile as string
dim w as worksheet
mypath = thisworkbook.path & "\"
myfile = dir(mypath & "*.xls*")
application.screenupdating = false
do until myfile = ""
if myfile <> thisworkbook.name then
workbooks.open mypath & myfile
for each w in workbooks(myfile).worksheets
with thisworkbook.worksheets("Sheet1").range("A65536").end(xlup).offset(1)
.value = myfile
.offset(0, 1) = w.name
.offset(0, 2).value = w.cells(w.rows.count, "C").end(xlup).value
end with
next
workbooks(myfile).close false
end if
myfile = dir()
loop
application.screenupdating = true
end sub
ファイルメニューから終了してエクセルに戻る
ALT+F8を押してマクロを実行する。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
ワイルドカード「*」を使うとう...
-
ADOで複数のBookから抽出
-
VBS Bookを閉じるコード
-
エクセルVBAが途中で止まります
-
別ブックをダイアログボックス...
-
VBAで別ブックのシートを指定し...
-
【ExcelVBA】インデックスが有...
-
VBAで別のブックにシートをコピ...
-
日付ごとの集計マクロ
-
VBA 別ブックからコピペしたい...
-
【ExcelVBA】zip圧縮されたCSV...
-
VBA コードを実行すると画面が...
-
ユーザーフォームの切り替えに...
-
【Excel VBA】書き込み先ブック...
-
vbaでvbaProjectのパスワード解...
-
VBA 実行時エラー 2147024893
-
VBAで複数のブックを開かずに処...
-
エクセルVBAでテキストボックス...
-
VBAの実行時エラー'9'について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
別ブックをダイアログボックス...
-
VBA 別ブックからコピペしたい...
-
【ExcelVBA】インデックスが有...
-
VBA コードを実行すると画面が...
-
VBAで別ブックのシートを指定し...
-
【ExcelVBA】zip圧縮されたCSV...
-
VBA シート名が一致した場合の...
-
VBA 実行時エラー 2147024893
-
VBAで別のブックにシートをコピ...
-
VBS Bookを閉じるコード
-
【マクロ】違うフォルダにある...
-
ユーザーフォームの切り替えに...
-
[Excel]ADODBでNull変換されて...
-
vbaで他のブックに転記したい。...
-
【Excel VBA】書き込み先ブック...
-
Excel2007VBAファイルの表示に...
-
VBAで複数のブックを開かずに処...
おすすめ情報