特定セルを別ブックへコピペして繰り返し保存する方法

このQ&Aのポイント
  • ファイルAの特定の列に入力されている住所と氏名をファイルBにコピペします。
  • コピペする際に、住所の先頭に「東京都」を付け加えます。
  • コピペされた住所の名前でファイルBを保存します。フォルダ内の全ての行に対して同様の処理を行います。
回答を見る
  • ベストアンサー

特定セルを別ブックへコピペして、保存を繰り返したい

ファイルAのI列に「住所」J列に「氏名」が入力されています(同じ行で対になっております) ファイルBのA1に「住所」、A2に「氏名」を貼り付けます このとき、A1には「東京都」と頭に付けてから住所を貼り付けます ファイルBを、貼り付けたセルA1の「東京都」を取った住所の名前で保存します ファイルA、B、新たに保存されるファイルは同じフォルダにあります ファイルAの住所と氏名は、6行目から入力されているのですが最終行は決まっておりません 入力されている行の分だけ、上記の条件で繰り返し処理をします 単純なコピペコード等はできたのですが、条件が増えると上手く組むことができません・・ どなたかご教授いただけますでしょうか よろしくお願い致します

質問者が選んだベストアンサー

  • ベストアンサー
  • mitarashi
  • ベストアンサー率59% (574/965)
回答No.1

出来ているところを開示された方が、回答がつきやすいと思います。 最近愛用している、頭を使わない、最終行まで処理するコードだけ載せておきます。メリットは、結合セルが有っても動く事でしょうか。途中に空白セルが無いことが前提です。 Sub test() Dim myCell As Range Set myCell = ThisWorkbook.Sheets("sheet1").Range("I6") Do '処理を記述 Set myCell = myCell.Offset(1, 0) Loop Until myCell.Value = "" End Sub

関連するQ&A

  • 一覧表から一行ごとのデータを別ブックに保存するには?

    あまり使用頻度はないかもしれませんが・・・・ (例) ○元になる一覧表のブック(BOOK_1.xls) 1行目:項目  (A1:一連番号 B1:氏名    C1:住所) 2行目:データ1(A2:1     B2:山田太郎 C2:東京都) 3行目:データ2(A3:2     B3:山田次郎  C3:大阪府)    ・    ・ 以降10行目まで同様のデータが入っているとします。 上記のファイルから ○あらかじめ決められた単票形式のブック(FORMAT.xls)  A1:一連番号(文字列) B1:空白  A2:氏名(文字列)   B2:空白  A3:住所(文字列)   B3:空白 を呼び出し ○BOOK_1.xlsの一行目の項目のデータを  FORMAT.xlsの B1 B2 B3 の空白部分にコピーペーストし ○BOOK_1.xlsのA2の一連番号の数字をファイル名として取得  し"1.xls"として新規保存をする。 ○そのあとは10行目までその作業を繰り返し、1.xlsから10.xls  というファイルを10個作成し終了する 以上のようなことが可能でしょうか? 実際は列数は30程度、行数が1500行程度あり、1500ほどの ファイルができるようになるんですけど・・・。 よろしくおねがいします。    

  • ハイパーリンク情報を別セルへコピー

    ************************************************************* <例>・・・A列にはハイパーリンクされているセルとされていないセルが混在です  A列(社名)  B列(郵便番号)  C列(住所)  D列(電話番号)  (株)ABC商事   100-1234       東京都港区… 03-1234-5678  XYZ運送(有)   200-6789       東京都港区… 03-8765-4321  (株)あいう物産   100-1234       東京都港区… 03-9999-0001               ↓VBA実行↓  A列(社名)  B列(郵便番号)  C列(住所)  D列(電話番号)    E列  (株)ABC商事   100-1234       東京都港区… 03-1234-5678    http://www.abc.co.jp  XYZ運送(有)   200-6789       東京都港区… 03-8765-4321      (株)あいう物産   100-1234       東京都港区… 03-9999-0001   http://www.aiu.ne.jp ************************************************************* 上記のようなデータがExcel上に有ります。 A列にはハイパーリンクされているセルとされていないセルが混在していますが、この、情報を別の列に一括でコピー出来ないでしょうか? 現在は、1つずつ、A列のURLをE列にコピペしています。 非常に手間が掛かり困っています。 よろしくお願い致します。

  • エクセルで別ファイルのデータを読み込み自動入力させたいのですが

    【顧客リスト】というファイルのsheet1に、A列を氏名、B列を住所、C列を年齢の欄として複数行入力しています。 【見積書】というファイルのセルE20に氏名を入力すると、【顧客リスト】A列から同じ値の行を探し出し、その同行のB列の値を【見積書】のE21に自動的に入力されるようにしたいと思っています。 どなたかご回答の程、よろしくお願いいたします。

  • Excelの単一セルから結合セルへのコピー方法について

    お世話になります。 今、Aのシートには、   世帯主氏名   住  所   東京太郎    東京都渋谷区 神南・・   江戸花子    東京都渋谷区 神北・・  といったように入っております。これを  Bのシートに     世帯主氏名   住所   東京太郎    東京都渋谷区           神南・・   江戸花子    東京都渋谷区           神北・・   とAシートは、全て単一セル Bシートの   氏名の部分はセルを結合しており、住所は、   事情がって、2行に分けて作成したいので   すが・・   Bのシートの氏名のところに =BシートA1と   コピーをかけて、そのまま下へとコピーしよう   としたのですが、Aシートのデータが1つ飛び   に張り付いております。結合のためと思うので   すが、これを上手く貼り付ける、方法を教えて   ください。よろしくお願いします。     

  • VBA 指定先へのコピペと新規保存

    いつも参考にさせて頂いています。 今回もどなたかのお知恵が借りれる事を祈っております。 Aというファイルに入力されているデータのレイアウトは1行に1案件となっており、 列AからB、C、・・・と報告に必要な項目が並んでいます。 これを各行(=各案件)ごとに専用のファイル(Bファイル)に転写、別名で保存しています。因みにBファイルはAのファイルとはレイアウトが全く異なり、単純に行全体のコピペ~保存という訳にはいかなくて困っています。 ■Aファイルのレイアウト 1 A   B   C   D   E   F   G   H   I   L  M 2 No 受付 日付  担当 起票日 起票者 所属  区分  内容 回答日 回答者   3 1 1111 5/21 MKG 5/31 FSS 1-1 VDA gaga 6/3 GHQ 4 2 1321 5/22 FSB 6/11 CTU 3-1 NCA HAH 6/20 GHQ データはB列からO列まで入力されていますが、JとKの情報はコピー不要です。 また行数(=案件数)は一定ではなく、何行目までデータが入っているか決まっていません。 ■Bファイルへのペースト先(指定したセルにデータが入っている場合は上書き) AファイルのB列のデータ・・・J5 AファイルのC列のデータ・・・H2 AファイルのD列のデータ・・・D3 AファイルのE列のデータ・・・D7 AファイルのF列のデータ・・・F7 AファイルのG列のデータ・・・I7 AファイルのH列のデータ・・・D8 AファイルのI列のデータ・・・C10 AファイルのL列のデータ・・・D19 AファイルのM列のデータ・・・F19 AファイルのN列のデータ・・・C22 ■コピペ後の処理(コピペしたBファイルの別名保存) BファイルのJ5に貼付けたデータをそのままファイル名としてローカルのデスクトップに保存します。 以上です。 お知恵を貸して下さい!

  • 特定の文字を含むセルを探して別セルに表示させたい

    望んだ結果にならず困っています。 ご教授お願いします。 A列にいくつかの文字の入ったセルが並びます。 B1に探したい文字が入ります。 C1にB1に入れた文字を含むセルをA列から探し出し、表示させたいです。 A列の文字は重複しません。結果は必ず1個です。 A列は行数が10行~15行で変動します。 B1に入る文字は、A列のセルの一部です。 B1の文字が文字の一部なので、具体的に関数に探す文字を「*つてと*」と 入れてしまってもいいのですが、探す文字をセル指定(B1として) でできれば、より希望に沿うものとなります。 検索するセルが2個程度なら、望む結果が出せるのですが 複数のセルから探し出して、指定のセルに表示させるというのが どうもうまくできません。 よろしくお願いいたします。

  • エクセルの特定セルを別へのブックに行方向に転記

    エクセル2010で、専用フォルダーに入っている複数のエクセルファイルの特定のセル(A1,B2,C3等)を別のブック(まとめ)に行方向に転記したいのですが。 まとめ用のシートの上の行から順に各シートのセル内容を転記していきたいのですが何か方法がありませんでしょうか? 例えば各ファイルに住所、TEL No、名前が決まった書式のセルに入っていて、これが毎月新規データとして追加されるのですが、別のエクセルシートに必要な項目のみ転記して、一覧表を作成したいのです。 現在は、1つずつファイルを開いて、目的のセルのコピペでまとめのシートに貼り付けて作業していますので、これより少しでも簡単な方法があれば教えてください。

  • エクセルのVLOOKUP関数で他のブックから正しく参照されないセルがある

    台帳xxxx.xlsファイルで住所録.xlsファイルを参照しているのですが最近正常動作しません。 住所録.xls というブックには、メンバーの住所録が入っています。 A列氏名、B列フリガナ、C列電話番号 という項目になっています。 台帳xxxx.xls側には A列連番、B列氏名、C列フリガナ、D列電話番号・・・になっています。 例えば台帳0712.xls というブックには日々のメンバーの動きを記録しており、 Bのセルに氏名を入れればその右側にフリガナ、電話番号が、住所録.xlsから参照されて自動入力されるようになっています。 台帳ファイルは原本を複製して 台帳0713.xls、台帳0714.xls・・・と日々増えていきます。 現在、住所録.xlsは600行を超えてきたのですが、最近、台帳xxxx.xls に氏名を入れるとフリガナ、電話番号の欄がうまく参照されず"0"(ゼロ)と表示されてしまいます。 正しく表示される名前とされない名前が出てきました。 600番台以降の人に多い気がするのですが定かじゃありません。 なぜならその氏名を上位のセルにコピーしても参照結果が"0"だからです。 具体的には、 例えばC列の数式は =IF(B2="","",VLOOKUP(B2,[住所録.xls]sheet!$A:$C,2,FALSE)) で、フリガナが自動入力されるようになっています。 ※氏名が未入力のときは"#N/A"のエラー表示がされないようにしています。 どうして"0"が入ってしまう場合があるのでしょう。 行数に限界があるのか疑問です。 またはもっといい方法があれば教えてください。

  • エクセルVBAで別ブックを参照してDSUM

    エクセルVBAで別ブック(閉じてる)を参照してDSUMをしたいです。 インターネットや本等で調べたのですが、全然分かりませんでした。 何卒、よろしくお願い申し上げます。 【前提】 ・エクセルファイルが2つあります。 1つ目は「DB」ファイル(Cドライブ直下)。 2つ目は「表示」ファイル(デスクトップ上。「DB」ファイルとは別の場所)。 ・「DB」ファイルの仕様は、Sheet1に以下のとおりです。 A列:会社(1行目には、会社と記載して2行目以降に値) B列:部署(1行目には、部署と記載して2行目以降に値) C列:氏名(1行目には、指名と記載して2行目以降に値) D列:金額(1行目には、金額と記載して2行目以降に値) ※値(データ)の行数は、数万行となる見込みです。 【実現したいこと】 ・「DB」ファイルのSheet1のデータを、DSUM関数の”データベース”として、 金額を集計して、「表示」ファイルで集計・表示させたい。 ・なお、DSUM関数の"条件"としては、会社と部署と氏名の3つとしたい。 ※具体的には、「読み出し」ファイルのSheet1のセルA2に会社を、セルB2に部署を、 セルC2に氏名を入力できるようにる。 それらすべてをAND条件として、金額を集計させたい(金額の集計は、セルD2に出力)です。 以上の内容で考えています。 ひとつのエクセルファイルで作成してみたのですが、データが数万行もあるため、容量が非常に大きくなってしまいます。 集計結果(集計条件を変更させて確認できる状態)は、複数メンバーで共有したいと思っています。 エクセルのVBAで上記のことを実現できないでしょうか。 Accessは、自分含め他のメンバーも知識が乏しいため、避けたいと思っています。 よろしくお願い申し上げます。

  • 条件に合ったセルにカーソルを飛ばしたい

    こんにちわ お世話になります。 エクセルの表(列も行も項目が沢山あります)にデータを入力する時に、いちいちスクロールするのも大変です。 そこで、列の条件と行の条件をあるセルに入力したら条件に合ったセルにカーソルを飛ばすというようなことは出来ないでしょうか? 例えば  列の条件   お   行の条件(1) 2  →と条件をセルに入力  行の条件(2) C      あいうえおかきくけこさしすせそ・・・ 1 A   B   C  2 A   B   C      ■ ←ここにカーソルが移動    3 A   B   C   ・   ・   ・ こんな感じなのですが・・・ 何か良い案は無いでしょうか?

専門家に質問してみよう