今、マクロを使って単純な作業を繰り返したいと思っているのですが、その中でいくつかわからない点があるので質問することにしました。
まず、貼り付けたい元データ(説明上data1と呼びます)が40種類あります。
これらは、すべて異なるファイル名をつけており、1つのフォルダ内に保存しています。
data1上のコピーをしたいと思っている場所は40種類ともすべて同じ場所(セルのH3)です。
これを、まったく新しいエクセルファイル(説明上resultと呼びます)に貼り付けたいと思っています。
このとき、data1の40種類のデータをresultのシート上にA1から順番に縦に並べていきたいと思っています。
この作業をdata1のファイル数である40回繰り返したいと思っているのですが、どうすればいいのでしょうか。
回答をお願いします。
No.3ベストアンサー
- 回答日時:
データのコピー元およびコピー先を明確に書いていただいてないので適当に作成しtwみました。
以下の前提です。
元データはすべて同じフォルダ内にあるBOOKの1枚目(一番左)のシート(名前を問わない)のH3セルにある。
あなたがresultと呼んだコピー先のBOOKの1枚目(一番左)のシートのA1セル以降に順番に貼り付ける。
それでよければ以下のマクロをresultと呼んだコピー先のBOOKの標準モジュールに貼り付け、元データと同じフォルダ内に保存してください。
マクロは書いたことは無くとも、標準モジュールに貼り付けるくらいはできるんですよね?
Sub TEST01()
Dim myFn As String
Dim i As Long
Dim wb As Workbook '以上変数宣言
Application.ScreenUpdating = False '画面更新一時停止
myFn = Dir(ThisWorkbook.Path & "\*.xls?") 'エクセルBOOK検索
Do While myFn <> "" '対象が存在する限り続行
If myFn <> ThisWorkbook.Name Then 'ファイル名がresultの名と違っていれば
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & myFn) '開く
i = i + 1 'カウント
wb.Worksheets(1).Range("H3").Copy ThisWorkbook.Worksheets(1).Cells(i, "A") 'コピペ
wb.Close False '閉じる
End If
myFn = Dir() '次検索
Loop '繰り返し
Application.ScreenUpdating = True '画面更新停止解除
End Sub
ALT+F8キーでマクロを呼び出し、TEST01を実行してみてください。
わざわざプログラムまで組んでくださって本当にありがとうございます。
こちらのプログラムを用いたことでとてもスムーズに作業が進みました。
本当に感謝しています。
No.4
- 回答日時:
200回以上繰り返すなら、それも質問文に書くべきでしたね。
そうだとしても、40ファイルを処理するマクロを、200回繰り返すマクロを作ればいいだけです。
それをやるにしても、40ファイルを処理するマクロを作らないと始まりません。
ところで、40ファイルの処理を200回繰り返す、という状況が想像できないのですが・・・
同じ40ファイルに対して、同じ処理を200回繰り返す?
40ファイル入っているフォルダが200個あって、すべてのフォルダで同じ処理をする?
???
>この場合、1つ目のデータを貼り付けた後に次のデータ貼り付け場所を指定し、ファイルを自動で読み込む方法などはどのようにしたらよいのでしょうか。
???
それは、
>・マクロの記録を開始して
>・data1の1つのファイルを開いて
>・H3をコピーして
>・resultのA1に貼り付けて
>・data1のファイルを閉じて
>・マクロの記録を終了する
これをやってみた上での質問でしょうか?
>ちなみに、VBAマクロは書いたことがないです。
そうなのであれば、まず、マクロの記録のやりかたと、記録したマクロの実行のやり方を覚えましょう。
ネットで検索すればたくさん見つかります。
検索キーワードは
excel マクロの記録 実行
こんな感じで良いです。
No.2
- 回答日時:
40程度なら、
resultシート(のファイル)を開いた状態で、
・マクロの記録を開始して
・data1の1つのファイルを開いて
・H3をコピーして
・resultのA1に貼り付けて
・data1のファイルを閉じて
・マクロの記録を終了する
これで書き込まれたマクロを39回コピペして、読み込むファイル名と、貼り付け先を変更していけば良いです。
40なんてたいした数ではありません。
「すぐに回答してほしい」ほど急ぎなんですよね。
たった40回の繰り返しであれば、繰り返し構文やDir関数を勉強するより早いです。
ましてや、あなたがVBAマクロを書いたことが無かったりしたら、なおさらです。
回答ありがとうございます。
確かに、たった40程度のファイル数なので上記のやり方でも問題ないのですが、
これの作業を200回以上繰り返さなければならないので困っています。
この場合、1つ目のデータを貼り付けた後に次のデータ貼り付け場所を指定し、ファイルを自動で読み込む方法などはどのようにしたらよいのでしょうか。
この方法がわからないのだと書いていなくてすいません。
ちなみに、VBAマクロは書いたことがないです。
No.1
- 回答日時:
仮に、ファイル名が、・・・
data1
data2
data3
data4
:
ようなネーミングになっていれば、
VBA の for next を使った繰り返しで、ファイル名を生成し
処理することができます。
http://excelvba.pc-users.net/fol6/6_3.html
※ data + <繰り返しのカウンター値>
しかし、ファイル名がまちまちであると、ファイルの数分の
処理を記載する必要があります。
ただ、ファイル名の一覧を、シート上に、順番に配置しておけば、
上記の for next の繰り返しを使って、ファイル名を生成する代わりに
上から順番に ファイル名を取り出して、処理することは可能です。
参考URL:http://excelvba.pc-users.net/fol6/6_3.html
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
都道府県穴埋めゲーム
都道府県の名前を1人1つずつ投稿してください。全ての都道府県が出たら締め切ります!
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
繰り返し1行~28行までを順順にコピーする方法
Visual Basic(VBA)
-
エクセルVBAでコピーして順番に張り付けをしたい!
Visual Basic(VBA)
-
選択した項目を上から順番にコピーするマクロ
Access(アクセス)
-
-
4
別シートに順番で貼り付け
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAを一度起動するとずっと出て...
-
コピーしたファイルのマクロを...
-
【マクロ】エラーが発生⇒実行時...
-
VBA マクロ実行時エラー’1004Ra...
-
excelファイルに使われているVB...
-
エクセルマクロ実行中に別ファ...
-
別のパソコンでエクセルのマク...
-
Excelが勝手にシート移動してし...
-
エクセル終了時の保存確認メッ...
-
マクロを消すマクロは不可能?
-
Word用のマクロが急に働かなく...
-
アクセスでファイルを開いたと...
-
Adobe Reader を閉じる
-
EXCELで日付を自動でファイル名...
-
昨日まで動いていたエクセルの...
-
【VBA】複数ブックから特定のシ...
-
外部データを取り込むマクロ
-
Accessでmdb中のすべてのマクロ...
-
EXCELでマクロを記録する際に、...
-
EXCEL マクロ クリップボードク...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAを一度起動するとずっと出て...
-
コピーしたファイルのマクロを...
-
エクセル終了時の保存確認メッ...
-
別のパソコンでエクセルのマク...
-
マクロを消すマクロは不可能?
-
昨日まで動いていたエクセルの...
-
VBA マクロ実行時エラー’1004Ra...
-
excelファイルに使われているVB...
-
Excelが勝手にシート移動してし...
-
外部データを取り込むマクロ
-
マクロでマクロを削除する
-
アクセスでファイルを開いたと...
-
エクセル2013vbaで、見えない名...
-
EXCEL マクロ クリップボードク...
-
Excelマクロ ファイル名が変わ...
-
エクセルファイルを自身のファ...
-
excelが別プロセスで起動してし...
-
Excelからnotesメールを自動で...
-
エクセルマクロ実行中に別ファ...
-
Excel2010 PERSONAL.xlsbの挙動...
おすすめ情報