EXCEL2010を使用しています。
あるフォルダに格納されている複数のブックの、特定シートを、1つのシートにまとめたいです。
複数のブックの作りは同じです。
1つのブックに、複数シートがあり、"(配置)"というシートだけを、新規のシートにまとめたいです。
<今ある各ブック>
ファイル名は、2014年度特定措置_●●.xlsで、●●だけ、ブック名が違います。
シート名が"(配置)"です。
c3セルに部署名が入っています。
b4セルからe10セルまで数式が入っています。
<行いたいこと>
新規のシートのa列に、各ブックにあるc3セルの部署名を持ってきたい。
b列からe列に、各ブックにあるb4セルからe10セルまでの数式を値張りし、取り込みたい。
以上です。
つたない説明で恐縮ですが、大変困っております。
どうか、ご回答の程、どうぞよろしくお願いいたします。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
ご希望の内容を実行するにはVBAについての知識が必要ですが
大丈夫ですか?
VBAの中でも、あまり使うことがない
Dir関数
を使うことになります。
参考までに
C2セルの値をひっぱてくるコードのみ作っておきました。
きちんと動作するかどうかも未確認ですが参考にしてください。
新しいブックを準備して、以下のコードをVBエディターに貼り付け
ファイルのあるフォルダに言った保存
その上、このマクロを実行してみてください。
Sub Sample1()
Dim buf As String
i=1
buf = Dir(Thisworkbook.Path & "\2014年度特定措置_*.xls")
Do While buf <> ""
i = i + 1
Workbooks.Open Thisworkbook.Path & "\" & buf
ThisWorkbook.Worksheets(1).Cells("A" & i).Value = Sheets("(配置)").Rnage("C3").Value
Workbooks(buf).Close SaveChanges:=False
buf = Dir()
Loop
End Sub
No.1
- 回答日時:
回答ではありません。
アドバイスになります。ひとひとつ新しいシートにコピーすればいいと思うんだけど。・・・ダメ?
これが10万シート以上あるとか馬鹿げた数でない限りそのほうが早いと思いますよ。
(100シートくらいならそのほうが回答を待つより明らかに早く処理を終えられると思います)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- Excel(エクセル) セルの値と同じ名前のシートのセルの結合を解除する方法を教えてください 3 2022/10/03 10:23
- Visual Basic(VBA) vbaについて 主に以下のような設定をしたいです。 Aブックの表の行数が20未満だったら Bブックの 1 2023/06/08 23:40
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Excel(エクセル) エクセルの数式について ブック内の別シートの値の含まれたセルの個数を集計したい 全シート一覧のシート 1 2022/07/21 19:28
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Visual Basic(VBA) 特定の文字を含むシートだけマクロ処理をしたい 1 2023/05/22 01:43
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Excel(エクセル) セルの値からファイルを複数作りたい 2 2022/10/06 12:42
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの関数 ENTERを押...
-
VBAでブックを非表示で開いて処...
-
エクセルで別ブックをバックグ...
-
複数ファイルから特定シートの...
-
Excelでブックの共有を掛けると...
-
WorkBooksをオープンさせずにシ...
-
Excel(2010)のフィルターが保...
-
エクセルを共有するとPCによっ...
-
ブックのピボットを別ブックに...
-
エクセルで開いていないbookの...
-
同じフォルダへのハイパーリン...
-
北九州市にあった「井筒屋ブッ...
-
vbaでpdfを開いて1ページ目のみ...
-
【マクロ】【VBA】別ブックへの...
-
Excelファイルをダブルクリック...
-
エクセルの関数について教えて...
-
【ExcelVBA】シートをそれぞれ...
-
エクセル2016です。「ブッ...
-
エクセルVBA 別ブックの複数シ...
-
エクセルで複数のシートを別フ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルを共有するとPCによっ...
-
エクセルの関数 ENTERを押...
-
VBAでブックを非表示で開いて処...
-
WorkBooksをオープンさせずにシ...
-
Excelでブックの共有を掛けると...
-
エクセルで参照しているデータ...
-
Excel(2010)のフィルターが保...
-
Excelで複数ブックの同一セルに...
-
VBA バックグラウンドで別ブッ...
-
エクセルで50行ごとに区切った...
-
エクセルで「ディスクがいっぱ...
-
エクセルにおける,「ブック」...
-
エクセルファイルを開かずにpdf...
-
フォルダ内の複数ファイルから...
-
ブックのピボットを別ブックに...
-
エクセルシートの一部を送りたい
-
エクセル2016です。「ブッ...
-
エクセルで別ブックをバックグ...
-
フォルダ内の複数ファイルから...
-
複数ファイルから特定シートの...
おすすめ情報