• 締切済み

excelマクロ

複数のファイル(100ファイル以上)の4行目(一行のみ)を、別の特定のファイルのsheet2の4行目に挿入し、一つのシートにまとめるVBAを教えてください。

みんなの回答

  • muunoy
  • ベストアンサー率38% (70/183)
回答No.1

「複数のファイル」の名前に規則性はありますか? EXCEL VBAの機能として、動作は恐らく ・ファイルのフルパス指定でOPENして該当データをコピーする ・特定ディレクトリの全ファイルを順にOPENして、該当データをコピーする のどちらかです。 つまり、キモはファイルのOPEN/CLOSEの処理です。

iffaceupes
質問者

補足

早速のご回答ありがとうございます。VBA初心者なので、言語を教えて頂けると助かります。因みにファイルの名前に規則性はないので、複数のファイルを指定して処理できればいいな~と思っております。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • 複数のEXCELファイルより一部の行を自動でマージするマクロ

    「(1)複数のEXCELファイル」より、「(2)特定のシート」の中のさらに「(3)特定の行」をコピーし、あるEXCELファイルの1シートに挿入していくマクロ(VBA)か、ソフトが掲載されているサイト、もしくは、やりかたを教えてください。 1.EXCELは、2003 2.「(1)複数のEXCELファイル」は、一つのフォルダにあり、データ形式は一緒。  そのフォルダにはEXCELファイルしか置きません。 3.「(2)特定のシート」について、シート名はどれも一部のみ一致します。  または位置(順番)は一緒です。 4.「(3)特定の行」はどのファイルも作りが一緒です。 VBA初心者ですが、ヒントをいただければ頑張りたいと考えています。

  • エクセルマクロ 教えてください

    エクセルで、二行おきに行を一行挿入するマクロを組みたいのですがどうしたらよいでしょうか

  • エクセル マクロの書き方が分かりません。

    エクセルVBA超初心者です。あるエクセルファイル内の複数シートの同じ一つのセルをコピーしてテキストファイルに吐き出すプログラムをつくりたいのですが...どうすれば良いか分かりません。誰か教えてください。

  • エクセル マクロ

    エクセルマクロで、複数ファイルにある全シートの情報を、別ファイルの1シートに転記したいのですが、なかなか上手く行きません。(ほぼ初心者です。) 詳細は↓です。どなたかご教授の程よろしくお願いいたします。 【やりたいこと】 同一フォルダ内にある約60個のファイルの、全てのシート内の情報を別の集計用ファイルに転記する。 (1) ファイル毎にばらばらなシート名&シート数で、これら全てのデータを集計用ファイルに転記するには?(シート数は1ファイルあたり1シートから最大13シート) (2) 以前に似たような作業をした時は、ファイル名をいちいち集計用ファイルにコピペして読み込ませたが、こうした手間を掛けずに一括処理するには? ※転記作業自体は「マクロの記憶」機能で書き出すので、それ以外の、特に始まりと終わりの部分を教えて下さい。 ※転記内容自体はあまり複雑ではなく、集計用ファイルに1シート1行として転記し、ズラッと下に120行書き込むつもりです。 説明が分かりづらい部分があればご指摘ください。よろしくお願いいたします。

  • excel マクロコードを教えていただきたいです

    マクロを使うのが初心者のため、詳しい方に以下のマクロ コードを教えていただきたいです。 ある表の一番右の列にハイパーリンクが並んでいます。 そのハイパーリンクにて、各Bookファイルが開くのですが ハイパーリンクを一回押すことで、その一行(数セル)を、 開いた別ファイルのsheet内に貼り付けたいです。 今は方法がわからないため、ハイパーリンクにてファイル だけ開き、表の一行をコピーして、そのファイル内に貼り 付けています。 すみませんがわかる方教えていただきたいです。よろしく お願いします。

  • エクセルVBAで困ってます。

    私は今、エクセルVBAで困ってます。 内容はデータを入力したエクセルのシート上で、別のファイル(CSV形式)を開いてある特定の行に入力したデータを参照し、完全に一致した際には、別のファイルの内容をシートに反映させるといったようなことは可能でしょうか? 襲えて下さい。 回答お待ちしています。

  • エクセルマクロ

    マクロの初心者です。ご教示お願いします。 エクセルで複数のシートがあり、1行目から30行目は各シートに入力したデータの集計をしているため非表示にしており、集計シートに複数シートの小計が集計されています。 また各シートは31行目から40行目は各シートの凡例があります。 40行目以降、A~AE列に例えば 、名称、レベル、金額などを入力する欄があり、レベル欄には 条件書式が組まれ、AE列にはU~ADの金額の合計の計算式が組まれています。 このシートを他の人に計算式、条件書式や列の挿入削除などをいじられたくないため、 入力してもらう部分以外はシートの保護にてロックをかけていますが 1シートの中にいくつかの項目ごとに小計をとっており、項目ごとに行が多かったり少なかったりと するため、シートの保護がかかっている状態でも行挿入と削除のみはできるよう、 (行には入力してほしいセルのみロックを外し、それ以外はセルのロックをかけています。) 以下のマクロを作成しました。 Option Explicit Sub Selection_Delete() Dim ws As Worksheet Set ws = Worksheets("ノート") ws.Unprotect Password:="***" Selection.Delete ws.Protect Password:="***" Set ws = Nothing End Sub Sub Selection_Insert() Dim ws As Worksheet Set ws = Worksheets("ノート") ws.Unprotect Password:="***" ActiveCell.Rows("1:1").EntireRow.Select Selection.Copy ActiveCell.Rows("1:1").EntireRow.Select ActiveCell.Rows.Insert Shift:=xlDown Application.CutCopyMode = False ws.Protect Password:="***" Set ws = Nothing End Sub この場合ロックがかかった状態でも行挿入、削除はできるのですが、 小計行や凡例行まで挿入や削除ができてしまいます。 そこで質問は A列に”小計"と入っている行は上記マクロでも行挿入や削除ができないようにする(除外する) ことができるでしょうか? また、行挿入や、削除は40行目以降に適用させたいのですが、それも可能でしょうか? 質問文が長くなってしまい申し訳ありません。 宜しくお願い致します。

  • 【VBA】マクロについて

    【VBA】マクロについて質問です。 マクロで複数のシートの特定のセル(A5(日付)、A7(社名)、B3(担当者)など)を別ブックのひとつのシートにまとめて、 日付 社名 担当者 シート1 A5 A7 B3 シート2 A5 A7 B3 シート3 A5 A7 B3 のように下へ下へ積み上げていくにはどうゆうマクロを組めばいいでしょうか。 同じ作業を複数のファイルで行わなければいけないため、マクロを組みたいのですが、よくわかりません>< ファイルによってシートの数が違うので、それにも対応すると有難いです。 どうぞよろしくお願いいたします。

  • エクセルで重複したデータを一行にまとめる

    こんばんは。 エクセルで質問があります。 重複した複数のデータを同シートもしくは別シートに 一行にまとめたいのですが、どのようにしたらよろしいでしょうか? 重複したデータは数千行あり、その総計を一行にしたいです。 可能であるならば、別シートに作りたいです。 集計しないといけなく、とても困っております。 何かいい方法、簡単にできる方法があれば、 ご教授頂きたいです。

  • ■ エクセルのマクロで出来ますか?

    エクセルマクロの初心者です。 現在、業務で以下の様な表を作成し、請求書の発行を行っています。 「sheet1」A列のNo.を「sheet2」のA列(例えばセルA1)に入力すると VLOOKUP関数で必要項目が請求書の雛形に表示される仕組です。 複数行を抽出する場合は、複数のNo.(例: 1,3,10)を手入力(例: A1,A2,A3・・・)しております。 ----- <sheet1>    A列  B列   C列   D列  ・・・ 1行 No.  項目1  項目2  項目3 ・・・ 2行  1   値1   値2   値3  ・・・ 3行  2   値4   値5   値6  ・・・ 4行  3   値7   値8   値9  ・・・ <sheet2> 請求書の雛形 セルA1~A10に請求書を発行したい<sheet1>A列のNo.を入力。 ----- これを、A列の左に行を挿入、各行にチェックボックスを配置し、 チェックボックスをオンにした行のB列(行挿入前はA列)の値(No.)を 「sheet2」のA列(例えばA1/複数の場合はA1,A2,A3・・・10行程度)に コピーを行う仕組を作ることを検討しています。 複数のNo.をチェック(1,3,10)した場合は、 「sheet2」のA1,A2,A3の様に、上から順になれば理想的です。 説明が悪く、意図が伝わり難いこととは思いますが、 これらの作業を行うマクロ(他の方法も可)を組むことは可能でしょうか。 ご教授いただければ幸いです。 よろしくお願いいたします。

専門家に質問してみよう