2つの表を統合するＶＢＡマクロについて

Question

2つの表を統合したいのですがどなたかお知恵をお貸しください。
(例)
sheet1に古い表、sheet2に新しい表があります。それぞれの表はこんな感じです。
（sheet1)
  　　A       　　　B    　　 C    　　 D
sony001   男　　東京　Japan
sony002   女　　埼玉　Japan
sony003   女　　千葉　U S A
sony005   男　　大阪　Canada
sony007   女　　東京　Russia

（sheet2)

  　　A       　　　B     　　C     　　D
sony001   男　　東京　Japan
sony002   女　　埼玉　Japan
sony002   女　　千葉　U S A
sony004   男　　大阪　Canada
sony005   女　　東京　Russia
sony006   女　　東京　Russia
sony007   男　　東京　U S A
sony007   女　　東京　Russia

これらの表をsheet3にどのように統合したいかといいますと、下記のようは統合表を作成したいのです。

（sheet3 統合表）
  　　A       　　　B    　　 C     　　D
sony001   男　　東京　Japan
sony002   女　　埼玉　Japan
sony002   女　　千葉　U S A
sony003   女　　千葉　U S A
sony005   女　　東京　Russia
sony007   男　　東京　U S A
sony007   女　　東京　Russia

質問の長さが８００字を超えてしまいますので、この統合表を作成するための手順を「2つの表を統合するＶＢＡマクロについて（2）」で補足したいと思いますのでどうぞよろしくお願いいたします。

april21 · Accepted Answer

別のご質問で関数の事に触れたので一例として、こういう場合にはこの関数で出来ます
という意味で回答したものであって実際に使用する事を薦めている訳ではありません。
5000～10000件もあるようなデータを自動計算する設定のまま件数分のセルに数式をいれると
処理が遅くて使い物にならないと思います。

それにnishi6さんの考えてくださったVBAがあるのですから必要ないはずです。

■件数が少なくて何かに利用したい方の為に
商品番号などをつける場合は別々のセルするか「0001みかん」という風に数字を左に付ける。
番号を付けたセルをキーに「データ」-「並べ替え」で並べ替えを行う事が出来ます。
（文字列の左側のものを優先的にする為「みかん0001」「おかん0002」で並べ替えを
行うと「おかん0002」「みかん0001」に。）

50音順、数字などの昇順、降順でもなく任意の順に並べ替えたい場合は1番目に並べたい行の
セルに「1」2番目「2」・・・という風に番号をつけ、そのセルをキーに「並べ替え」
をする。
50音順で並び替えたけど最初の並びに戻したい場合、番号がふってないと戻す為のキーが
ないので戻らない。
だから、並べ替える前にデータの右でも左のセルでもいいので番号ふっておく。
手動では大変なのでフィルを使って番号を自動で付ける（フィルが分からなければヘルプ参照）

☆今回のを例にすると
Ｋ列にフィルを使って番号をつけ、Ｆ～Ｉ列でしたのと同様に
シート1のJ1は=IF($E1=0,K1,"")　シート2のJ1は=IF($E2<>0,K1,"")にして不要な番号がセルに
入らないする。
E1をクリックしてシフト+コントロールキーを押しながら「ｅｎｄ」キーで選択してコピーして
シート3に「形式を選択して・・」-「値」で貼り付けし「データ」-「並び替え」で「Ｊ列」を
キーにして並べ替える。
（Ｆ～Ｊ列を選択してコピーして値をシート3に張り付けて並べ替えをするとデータが空白で番号
だけが表示された行が入ってしまう）

april21 · Answer

■シート1の

E1=COUNTIF(Sheet2!A$1:A$8,A1)
で、このセルをクリックして右下が「+」に変わったらI1までドラッグ＆ドロップ、
次にI5のセルまでドラッグ＆ドロップ

F1=IF($E1=0,A1,"")
で、このをクリックして右下が「+」に変わったらF5までドラッグ＆ドロップ

■シート2
E1=COUNTIF(Sheet1!A$1:A$8,A1)・・・・・Sheet2がSheet1に変わっただけ

F1=IF($E1<>0,A1,"")・・・・・「=」だったのが「<>」に変わっただけ

↑と同じような感じで数式入力（5行から8行に増えたのでその分多めにトラッグ＆ドロップ）

これでシート1とシート2が必要なデータがＦ列～Ｉ列に残ってるはずです。

シート3に各シートのデータを「形式を選択して貼り付け」-「値」で貼り付け、
空白行はオートフィルタで「空白以外のセル」選択すれば消えます。

並び方を変えたくないのであればシート1,2のデータにフィルで番号を付けておき、それをキー
に「並べ替え」。
（I1までだったのをこのセルの分まで増やさないと無視するデータに番号がついたままになります）
番号を付けると元データにキーになる数字などがなくても大丈夫です。

無視されたデータなどはシート2を見ればわかると思いますので省きました。

april21 · Answer

＞データが多い場合はマクロなどの自動処理の方が時間が短縮できるのですね。
表計算では自動計算をしてしまうため操作する度に10000件分の処理をしてしまう
為、重くなってしまいます。
（自動計算させない設定にしておいてデータを処理する時だけ実行する方法もあります）

マクロだと実行させる処理（ボタンを押すとか特定のイベントを起こした時）を
した時しか動作してない。
それと繰り返し実行するフロー制御ステートメントがＶＢＡにあるのでコードを
簡略化することが出来るので軽くなります。

今回を例にＶＢＡにするなら
1～10000件のデータに対して同じ処理を繰り返して実行しているだけなので
今回使った関数をＶＢＡの関数にして繰り返し実行するステートメン（For...Nextなど）を使って実行すれば良いだけですね。

(^^)/~~~

2つの表を統合するＶＢＡマクロについて

■シート1の

別のご質問で関数の事に触れたので一例として、こういう場合にはこの関数で出来ます

＞データが多い場合はマクロなどの自動処理の方が時間が短縮できるのですね。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング