- ベストアンサー
VBAで2つのデータを横に結合できますか？
keirikaの回答
シート１の横にシート２の情報を貼り付ける方法です。 質問に提示された列の並びと異なりますが、結合と言う意味では 要件を満たしていると思います。 シート２は見出しを含め451行あると仮定します。 Sub Sample() Dim SH1 As Range Dim SH2 As Range Dim i As Long Set SH1 = Sheets("Sheet1").Range("a1").CurrentRegion Set SH2 = Sheets("Sheet2").Range("a1:d451") For i = 2 To SH1.Rows.Count SH1.Cells(i, 4) = Application.VLookup(SH1.Cells(i, 1), SH2, 2, 0) SH1.Cells(i, 5) = Application.VLookup(SH1.Cells(i, 1), SH2, 3, 0) SH1.Cells(i, 6) = Application.VLookup(SH1.Cells(i, 1), SH2, 4, 0) Next i Set SH1 = Nothing Set SH2 = Nothing End Sub 以上です。
関連するQ&A
- 外部結合について
外部結合というのは、表と表を結合するという事で FROM句に書くべきことと思うのですが、 なぜWHERE句(カラム毎に指定)で指定するのでしょうか？ 例えば、 テーブルA No|Kind|Name| ------------- １|１ |Ａ | １|２ |Ｂ | ２|１ |Ｃ | ２|２ |Ｄ | テーブルB No|Kind|Data| ------------- １|１ |１０| 外部結合で SELECT A.No, A.Kind, A.Name, B.Data FROM A,B WHERE A.No = B.No(+) AND A.Kind = B.Kind(+) とすると No|Kind|Name|Data| ------------------ １|１ |Ａ |１０| １|２ |Ｂ |NULL| ２|１ |Ｃ |NULL| ２|２ |Ｄ |NULL| となります。 A.NoがB.NoになくてもＯＫで、Kindは 完全に一致しないとだめという意味で SELECT A.No, A.Kind, A.Name, B.Data FROM A,B WHERE A.No = B.No(+) AND A.Kind = B.Kind とした場合、 No|Kind|Name|Data| ------------------ １|１ |Ａ |１０| ２|１ |Ｃ |NULL| となるのであれば納得いくのですが、 結果は↓なるようです。 No|Kind|Name|Data| -------------------------- １|１ |Ａ |１０| (+)を一つも付けてない場合と 同じ動作になるようです。 テーブルAとテーブルBを結合するとき、 「外部結合する場合はWHERE句で指定する選択の条件全てに(+)を付ける」 「外部結合をしない場合はWHERE句で指定する選択の条件全てに(+)を付けない」 であれば、カラム毎に外部結合演算子を指定する意味が無いと思うのですが。 どなたか、カラム毎に外部結合演算子を指定する意味をご教授下さい。 宜しくお願いします。
- ベストアンサー
- Oracle
- 結合セルに結合していないセルの値を貼り付けたいです。
結合セルに結合していないセルの値を貼り付けたいです。 シート1の１行目の[A１-B1-C1-D1]を結合しています。以下同じように[E1-F1-G1-H1]…のように4つづつ結合しています。 この行に、シート2のA1→Ｂ1→Ｃ1と続く結合していないセルのデータを貼り付けたいのですが、やりかたがわかりません。色々やってみたのですが、うまくゆきません。ご教授お願いいたします。
- ベストアンサー
- Windows XP
- セルデータの結合に関して
2007にて作成中の表にてデータ結合すべく数式を入れても機能しません。 仮に、セルA1,B1,C1を結合すべくセルD1に「=A1&B1&C1」としても結合となりません。検証のため別シートにてA1,B1,C1にそれぞれ1,2,3と入れやってみるとD1には123となります。 どこがおかしいのでしょうか？点検、確認してみるべき点をご指摘ください。
- ベストアンサー
- オフィス系ソフト
- 表の結合について
２つのテーブルがあります。(それぞれNo列が主キーです) 表A（名称：Tbl_A）に２レコードあります。 No, Str ←列名 10,str_1 ←データ 20,str_2 ←データ 表B（名称：Tbl_B）に２レコードあります。 No, Name ←列名 10,Name_1 ←データ 30,Name_3 ←データ このテーブルを結合して、以下のデータ（３レコード）を抽出するSQL文を教えてください。 No, Str, Name ←列名 10,str_1,Name_1 ←データ 20,str_2,(null) ←データ 30,(null),Name_3 ←データ ポイントは、「どちらかの表にあるデータは全て抽出したい」ということです。 よろしくお願いします。
- ベストアンサー
- Oracle
- 2つのエクセルのデータを結合する方法で困っています。
2つのエクセルのデータを結合する方法で困っています。 下図のE部分だけをファイル１からファイル2に反映させたいのですが、 行が追加されたり、削除されたりしているため、単純に貼り付けできません。 （下の例では、ファイル1＞２の過程で【い】【え】が削除、【も】【か】が追加、【あ】のB【う】のCの内容が変更になっています） 何かいい方法はないでしょうか？ ファイル１： A B C D E １あ ● ● ● ● ■ ２い ● ● ● ● ■ ３う ● ● ● ● ■ ４え ● ● ● ● ■ ５お ● ● ● ● ■ ファイル２： A B C D E １あ ● ▲ ● ● ２も ● ● ● ● ３う ● ● ▲ ● ４お ● ● ● ● ５か ● ● ● ● こうしたい： A B C D E １あ ● ▲ ● ● ■ ２も ● ● ● ● ３う ● ● ▲ ● ■ ４お ● ● ● ● ■ ５か ● ● ● ● Excelのバージョンは2000です。実際は1000行×30列×10シートくらいあって、結構な頻度で結合するのですが、手でやっていて大変なのです。。
- ベストアンサー
- その他MS Office製品
- アクセスによるデータの結合
マイクロソフトアクセス2003で下記のような２つのテーブルを結合してひとつのデータとすることができるでしょうか（データ量が膨大でエクセルでの作業には無理があります。）。詳しい方がおられたらご教示お願いします。（このことが説明されているサイトでも結構です。）よろしくお願いします。 （データ１）０１：Ａ ０２：Ｂ ０３：Ｃ （データ２）０１：Ａ ０２：Ｂ ０４：Ｄ ０５：Ｅ →上記データの結合によりデータ３を作成 （データ３）０１：Ａ ０２：Ｂ ０３：Ｃ ０４：Ｄ ０５：Ｅ ※例は簡略化していますが、コードの後の情報は、アルファベット以外にも複数ありますので念のため。
- ベストアンサー
- オフィス系ソフト
- EXCEL（マクロ）2つのデータ比較について
いつも活用させていただいているものです。 今回は、以下の内容を行いたいと思います Sheet1とSheet2のA列（NO）を比較して、Sheet2にない項目(NO、名前、年齢、性別）をSheet2の4行目に追加したいと考えております。 どのようなプログラムを組めばよろしいでしょうか。 【Sheet1】 |A |B | C | D | --------------------------- 1|NO |名前 |年齢 |性別| 2|001 |鈴木 |11 |男 | 3|002 |佐藤 |15 |女 | 4|003 |長島 |29 |女 | 【Sheet2】 |A |B | C | D | --------------------------- 1|NO |名前 |年齢 |性別| 2|001 |鈴木 |11 |男 | 3|002 |佐藤 |15 |女 | ←追加をしたい お願いします。
- ベストアンサー
- オフィス系ソフト
- マスタシートと同じデータがあれば横にデータを貼り付けていく。
シート１の品番を基準にし、シート２に同じ品番があればシート１の品番とデータの横にシート２のデータを貼り付けていく。次にシート３に移り繰り返し。 (シート１) ｜ A ｜ B ｜ C ｜ D 1 ｜ 1a｜ 1 ｜ 9 ｜ 2 2 ｜ 2a｜ 4 ｜ 7 ｜ 1 ・ ・ ・ A列に品番、B列に枚数、C列に最高数、D列に最低数が入ってます。 (シート２) ｜ A ｜ B ｜ C ｜ D 1 ｜ 1a｜ 2 ｜ 8 ｜ 1 2 ｜ 3a｜ 3 ｜ 5 ｜ 3 ・ ・ ・ シート１と同じ形式です。 (シート１)↓こうしたいです。 ｜ A ｜ B ｜ C ｜ D ｜ E ｜ F ｜ G ｜ 1 ｜ 1a｜ 1 ｜ 9 ｜ 2 ｜ 2 ｜ 8 ｜ 1 ｜ 2 ｜ 2a｜ 4 ｜ 7 ｜ 1 ｜ A列の品番と同じであればその横（列）に枚数、最高数、最低数のデータを貼り付けていきたいのです。 シート数とデータ数はその時々により減ったり増えたりと変化します。 エクセル2000です。 わかる方、よろしくお願いします。
- 締切済み
- Visual Basic
- テーブルを結合
テーブルの結合に関して質問します。 ネットなどでinner joinを使った複数のテーブル結合が参考として 書いてあったのですが(3つまで), 4つテーブルを結合する事は 出来るのでしょうか？ A,B,CテーブルにはID,NAMEがあります。 DテーブルにはA,B,CテーブルのIDがあります。 参考サイトを見て3つのテーブルを結合するSQLが以下になります。 SELECT a.name, b.name, c.name FROM a INNER JOIN (b INNER JOIN c ON b.id = c.id) ON a.id = c.id よろしければアドバイスお願いします。
- ベストアンサー
- Oracle
- 結合について質問です。
結合について質問です。 ■テーブル TOIAWASE A KOKYAKU B TOIAWASE_TAISHOU C MOUSIKOMI_INFOMATION D MOUSIKOMI_INFOMATION E KINMU_MASTER F ■結合 A.KOKYAKU_NO = B.KOKYAKU_NO AND ※１：１ A.TOIAWASE_NO = C.TOIAWASE_NO(+) ※１：１ C.MOUSIKOMI_TYPE = D.MOUSIKOMI_TYPE(+) ※１：１ D.OLD_MOUSIKOMI_TYPE = E.MOUSIKOMI_TYPE(+) ※１：１ A.KINMU_CD = F.KINMU_CD(+) ※１：１ ■データ整合性について Aがある場合、Bは必ずあります。 Aがある場合、Cはあるとは限りません。 Cがある場合、Dは必ずあります。 Dがある場合、Eがあるとは限りません。 Aがある場合、Fがあるとは限りません。 Aをもとに問い合わせ一覧を取得したいです。 Aがある場合、Cがあるとは限らないため、それに紐づくテーブルは全て外部結合をするしかありません。 一応、上記SQLでも取得はできるのですが、他に良い（効率の良い）SQLはないのでしょうか？ 宜しくお願いします。
- 締切済み
- Oracle
お礼
ありがとうございます。 コンパクトで分かりやすいですね。 SETというものを知らなかったので、大変勉強になりました。 ありがとうございます。 自分でもコードを１からなぞって勉強させていただきます。 ところでコード中にa1:d451ってありますが、この451を SH1.Rows.COUNTに置き換えることってできるのでしょうか？