• 締切済み

ＶＢＡで同じブック内の別シートの列を結合する方法

同じブック内のsheet1（列Ａ）とsheet2（列Ｂ）を結合して、 新しいsheet3に出力したいと思っています。 ＶＢＡで作成する場合どのようにすればよいのでしょうか？ 宜しくお願いします。 sheet1　列Ａ sheet2　列Ｂ ↓ sheet3　列Ａ　列Ｂ こんな感じなのですが。

noname#12381
noname#12381

みんなの回答

  • sakenomo
  • ベストアンサー率52% (35/67)
回答No.3

＃２です。 失礼しました。21：10のご質問のケースでは、記録マクロは使えませんでしたね。m(__)m

  • sakenomo
  • ベストアンサー率52% (35/67)
回答No.2

sheet1　列Ａ Ｂ sheet2　列Ａ Ｂ ↓ sheet3　列ＡＢＣＤ の場合ですと、 Sub test2() Sheets("Sheet3").Columns("A:B").Value = Sheets("Sheet1").Columns("A:B").Value Sheets("Sheet3").Columns("C:D").Value = Sheets("Sheet2").Columns("A:B").Value End Sub でしょうか。Copy、.Pasteメソッドを使う方法も考えられます。21：10のご質問の様な場合もそうですが、一度記録マクロでいろいろ試してみられることをおすすめします。

  • sakenomo
  • ベストアンサー率52% (35/67)
回答No.1

こんなかんじでしょうか。 Sub test() Sheets("Sheet3").Columns(1).Value = Sheets("Sheet1").Columns(1).Value Sheets("Sheet3").Columns(2).Value = Sheets("Sheet2").Columns(2).Value End Sub

noname#12381
質問者

補足

回答ありがとうございます。 ちなみに列が複数ある場合の指定方法等ありますでしょうか？

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • Excelで複数のシートの結合の仕方を教えて下さい

    複数(30)のブックにa、b、c・・・というシートがあり、a、b、c・・・シートはA列から始まっていて、A列に列見出しがあり、同じ列には同じ種類のデータが入力されている時に、複数のブックの各aシートを、新しく作ったブック31のyシートに結合するVBAを教えて下さい！！！ よろしくお願いします！！

  • VBAで別ブックからVLOOKUPで抽出

    ブックBシート１A列の値にマッチする値をそれぞれの列にVLOOKUPでブックAシート１にある値から貼り付けたいのですがVBAコードが解る方宜しくお願いします。尚、データーが50行ぐらいあるのですが。

  • excel　セルの結合を条件付で自動にて行う方法

    どなたかご存知の方いらっしゃいましたら教えてください。 例） 1つのbookに1シートがあり、A1,A2のシートが結合されていた場合のみB1,B2を結合する。といった感じでA列の結合状態によってB列同行を結合するといったマクロはどのようにすればよいのでしょうか？

  • エクセル2つのブック列の比較 VBAや関数について

    Aと言うブックとBと言うブックがあるとして、 Aのブックは共有ファイルではなく、Zサーバー上にあるエクセルファイルです。 Aのブックに色々な人が行の挿入、商品名の書き換え等をしていて、いつ挿入されたのかが分からないため、VBAや関数を使って調べたいのですが、 Aのブックは10シートあり、サイズ別で行も並べられているため、新しい情報を特定するのが困難です。 BのブックはAと同じシート名を作り、必要箇所だけコピーしているデータです。（オリジナルブック） やりたいことは、Aのブックから探してBのブックに追加されていない情報、一致していない情報があれば、色を付けてわかりやすくするか、Bのブックの新しいシートに結果を出すようなことがしたいのですが、可能でしょうか？ AのブックはA列-IC列まであるのですが、必要な部分は全シートB列（商品コード）とE列（商品名）のみです。 Bのブックには同じシート名にして、A列に商品コード、B列に商品名としております。 AのブックのB列、E列を参照して、BのブックのA列、B列になければ、結果を表示したいです。 もし出来る方法があれば、教えてほしいです。 今はシートごとに左右比較して、見ていってるのですが、10シートの中に、行数は2000行くらいあるため、それで半日おわってしまいます。 もし分かるかた、マクロを組める方がいれば教えて頂きたいです。宜しくお願い致します。

  • (VBAにて)列のセルの結合について

    VBAを使って列の結合を行うとしています。 内容は ・A3とA4を結合～A59とA60を結合(60まで) 　という具合に、セル2つで一つの組み合わせです。 ・これが列単位にA列～Y列まで同じように行おうとしています。 ・一つ一つマクロで記述するとえらい手間がかかるので 　簡略するマクロ文は無いでしょうか？ ・また、この作業はsheet3で行おうとしています。 　内容はsheet1に書かれていまして、 　(A4～Y4までが1レコードでA20～Y20まであります。) 　マクロで普通にsheet3にコピーをすると1レコード目の後に 　2レコード目が飛んで3レコード目が次にきてしまいます。 ・これはどうすればよいでしょうか？ 素人であまりよく分かりません ご教授宜しくお願いします。 　　

  • 別bookのｼｰﾄ名一覧を作成するVBA（都度）

    初めまして。エクセルVBA初心者です。 別bookのシート名を取得するマクロをつくりたいのですがご教示頂けないでしょうか？ その際、マクロを実行すると最初にどのbookを開くか？ファイル場所を聞いてくるマクロを設計したいのです。 その後、今開いているアクティブbookのA列の1行目に別bookのシート名一覧が入力されるというものです。 ファイル場所を聞いてくるマクロは調べてもでてこないため、質問しました。 完了したら別bookは閉じてある状態であることが理想です。 そして、その隣のB列はまたさらに他の別bookのシート名一覧を比較用に入力予定ですので、B列用の別マクロを続きで作成したいと思っています。 ご教示のほど宜しくお願いします。

  • EXCEL　VBA　別シートの文字をシート内で検索

    excel2003　VBAで　SHEET2に格納されているセルの文字をSHEET１のＢ列1～9000程度までの文字列の中で一致または部分一致するものがあればそのセル（Ｂ列のセル）をSHEET3に順次A列に出力したいのですが、うまくできません。SHEET2に格納されている場所はＡ列で（SHEET1、SHEET2の文字とも増える可能性あり） 宜しくお願いします。

  • エクセルで別ブックを検索するマクロ、VBA

    エクセルで以下の処理を行えるマクロを作成したいです。 当方、マクロについてほとんど知識がありません。 恐縮ですが、教えていただけると嬉しいです。 ・主にしたいこと 　[検索]ブックで一致するコードを探して、 　[結果]ブックの対応するコードの行にそれぞれの項目を返したい。 ●ブック1　[検索] 　シートが12個あります（それぞれ、1、2、3…12というシート名=1～12月分） 　↓各シートの内容 　　　A　　　　B　　　　C　　　　D 1　　氏名　　数値　　コード　　内容 2　　abc　　　111　　SS1234　あいうえお 3　　bcd　　　123　　SS3456　かきくけこ ・ ・ ・ といった感じです。 12個のシートの中身はそれぞれ似たようなものですが、 「コード」や「内容」などは少しずつ違います。 ●ブック2　[結果] 　↓シートの内容 　　　A　　　　B　　　　C　　　　D 1　　氏名　　コード　　内容　　数値 2　　　　　　SS3456 3　　　　　　SS1234 ・ ・ ・ といった感じです。 （注）検索用ブックとは列の並びが異なっています。 ここでやりたいことの詳細ですが、 ・[結果]ブックの「コード」(B列）にコードを入力すると、 　[検索]ブックで一致するコードを検索し、 　A列「氏名」、C列「内容」、D列「数値」に、[検索]シートの内容を 　自動的に表示させたい。 　（ただし[結果]ブックに入力した「コード」は、[検索]ブックの1～12のうち、 　　どのシートにあるかわからない） ・入力したコードが見つからない場合は何も表示しない。 ということです。 最初VLOOKUP、MATCH等の関数で表示することを考えましたが、 シートが複数にまたがっているのと、 列の並び方が[検索][結果]ブックで違うのでわかりませんでした。 長くなってしまい申し訳ありませんが、どうかおしえてください。 よろしくお願いします。

  • 異なるブックを結合した時のセル参照

    excel2003 異なるブックを結合した時に、セルの値を参照する方法を教えてください。 条件は、下記の通りです。 a.xlsのsheet1のA1セルのセル名称をnameとします。 b.xlsのsheet2のA1セルで=nameとします。 aとbのファイルを結合した時、a.xlsのsheet1のA1セルに何か文字列…（１）を入れた時、 sheet2のA1セルで（１）の文字が参照できる様にしたい。 同一ブック内で上記の内容実施時は、sheet2のA1セルでsheet1のA1セル参照可能ですが、 ブックを結合した時、excelの仕様なのか、 #REF!と表示されてしまいます。 最初から一緒になったファイルで作成すれば問題ないのですが、 aのファイルは共用なので、使用する時に結合する構成としているのです。 異なるブックを結合して上記の対応が可能になる方法はないものかどうか、 何か、他の代案はないかアイデアいただきたく。

  • 複数のブックのデータを1枚のシートにまとめるマクロ

    同じような質問は過去いくつかございますが、下記の条件を満たすことができず、 大変苦戦しております。 <条件> 1.フォルダ内すべてのエクセルで作成されたブックを、ブック名「全部」のsheet1に結合する。 2.結合するブックにはシートが複数あり、すべてのシートを結合するわけではなく、 　シート名「社員」の、指定した範囲内「a10:t100」を結合する。 3.ブック名「全部」のsheet1のa列には結合元のブック名を表示する。 ご教授いただければ幸いでございます。 どうかよろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する