緊急！！エクセル教えて下さい

質問

昨日同じ質問をしたのですが、
教えていただいたソフトでは無理でしたので
どなたか教えて下さい！

リストＡ
リストＢ

があります。
（順番はそれぞれ違う）

1.両方のリストに名前があるひと
2.Ａにしか名前がないひと
3.Ｂにしか名前がないひと

を調べたいのです。
ＶＢＡなどなんでもいいのでご存知の方
ぜひ教えて下さい。
ちなみに、ＶＢＡに全然詳しくないので
プログラム方法を書いてください。

ぜひぜひ、よろしくお願いいたします！！

P.S.↓のやりかた、ＢＶＡでのやりかた、
わかるかた教えて下さい☆

>二つのファイルを照らし合わせるのは難しくなるので、
>一つのファイルにまとめます。
>sheet1とsheet2に(多い場合はsheetを増やす）
>あとは、ＢＶＡで同じものをsheet3に出力
>関数で出来るかはわかりませんがＶＢＡの方が簡単だと思>います。

回答No.3

nishi6 · ベストアンサー

[Book1-Sheet1]　　　　　　[Book2-Sheet1]
　　　Ａ　　　Ｂ　　　　　　　　Ａ　　　Ｂ
１　あああ　　　　　　　　１　かかか
２　いいい　　　　　　　　２　いいい
３　ううう　　　　　　　　３　ききき
４　おおお　　　　　　　　４　くくく
５　おおお　　　　　　　　５　おおお

上のような表を考えます。

[Book1-Sheet1]のB1に　= COUNTIF([Book2]Sheet1!$A$1:$A$5,A1)
B2から下はコピー

[Book2-Sheet1]のB1に　= COUNTIF([Book1]Sheet1!$A$1:$A$5,A1)
B2から下はコピー
これで、

[Book1-Sheet1]　　　　　　[Book2-Sheet1]
　　　Ａ　　　Ｂ　　　　　　　　Ａ　　　Ｂ
１　あああ　　０　　　　　１　かかか　　０
２　いいい　　１　　　　　２　いいい　　１
３　ううう　　０　　　　　３　ききき　　０
４　おおお　　１　　　　　４　くくく　　０
５　おおお　　１　　　　　５　おおお　　２

おのずと答えはわかると思いますが、
Ｂ列が『０』ならそのシートにしかない。
Ｂ列が『１以上』なら両方のシートにあることになります。

＞P.S.↓のやりかた、ＢＶＡでのやりかた、
＞わかるかた教えて下さい☆

＞>二つのファイルを照らし合わせるのは難しくなるので、
＞>一つのファイルにまとめます。
＞>sheet1とsheet2に(多い場合はsheetを増やす）
＞>あとは、ＢＶＡで同じものをsheet3に出力
＞>関数で出来るかはわかりませんがＶＢＡの方が簡単だと思>います。

上のやり方の妥当性は分かりませんが、この質問に関しては、『ＶＢＡ』で解決するよりも関数の方がはるかに簡単です。ブック、シートなどの構成も分かりませんし、面倒になるでしょう。

お礼

ご回答ありがとうございました☆

なんとかできました！

また質問することもあると思いますが
よろしくお願い致します（^o^）/

回答No.6

ngsvx

エクセルの「統合」という機能を使ってはどうでしょうか

１．まず、リストを次のような形にして下さい。

＜リスト１＞
名前　　　　リスト１　　　リスト２
あああ　　　１
いいい　　　１
えええ　　　１
かかか　　　１

＜リスト２＞
名前　　　　リスト１　　　リスト２
いいい　　　　　　　　　　　１
えええ　　　　　　　　　　　１
ううう　　　　　　　　　　　１
いいい　　　　　　　　　　　１

＊「名前」、「リスト１」、「リスト２」も必要です。

２．適当なシートに、統合先を準備します。

名前　　　　リスト１　　　リスト２

を記入し、この３つのセルを選択状態にします。

３．メニューバーから、「データ」－＞「統合」を選択します。

４．統合範囲を、リスト１の範囲を選択し、「追加」します。
　（「名前」、「リスト１」、「リスト２」も選択）

５．リスト２も選択・追加します。

６．「統合の基準」の「上端行」「左端列」にチェックをします。

７．ＯＫボタンを押します。

結果は、

「名前」、「リスト１」、「リスト２」
あああ　　　１
ううう　　　　　　　　　　１
いいい　　　１　　　　　　２
えええ　　　１　　　　　　１
かかか　　　１

となります。

お礼

ご回答ありがとうございました☆

なんとかできました！

また質問することもあると思いますが
よろしくお願い致します（^o^）/

回答No.5

SKYY

VLOOKUP関数をお使い下さい。
簡単にできます。
詳細はExcelのヘルプを参照してください。

回答No.4

shiga_3

ＶＢＡはちょっと勉強中なので、さしあたりＶＢＡを使わない方法を一つ。

Sheet1とSheet2のＡ列にＡ１から名前が入力されているとして、
Sheet3のＡ列に両方のリストにある名前、Ｂ列にSheet1のみにある名前、Ｃ列にSheet2のみにある名前を、それぞれ１行目から表示させるとして、

Sheet3の
Ａ１に=IF(ISERROR(MATCH(Sheet1!A1,Sheet2!$A:$A,0)),"",Sheet1!A1)
Ｂ１に=IF(AND(Sheet1!A1<>"",ISERROR(MATCH(Sheet1!A1,Sheet2!$A:$A,0))),Sheet1!A1,"")
Ｃ１に=IF(AND(Sheet2!A1<>"",ISERROR(MATCH(Sheet2!A1,Sheet1!$A:$A,0))),Sheet2!A1,"")
と入力して以下コピーでできます。

なお名前の入力されているのが別ブック（例えばC:\My Documentsに保存されているBook1、Book2）のSheet1の場合は、
Sheet1　→　'C:\My Documents\[Book1.xls]Sheet1'!
Sheet2　→　'C:\My Documents\[Book2.xls]Sheet1'!
と直してください。

ただし上記操作では空白行ができますので、それを除きたければさらに別シートで処理するか、ＶＢＡを使った別の方法にされる必要があると思います。

お礼

ご回答ありがとうございました☆

なんとかできました！

また質問することもあると思いますが
よろしくお願い致します（^o^）/

回答No.2

candy-candy

1.両方のリストに名前があるひと
2.Ａにしか名前がないひと
3.Ｂにしか名前がないひと

とありますが、1.両方のリストに名前があるひとがわかわれば、いいのではないかと思います。
Ａ、Ｂの各リストの中では重複はないものと考えてよいのでしょうか？ここでは重複はないとします。

Ａのリストの名前が入っている列を(A1:A10)、Ｂリストを(D1:D10)とします。各リストの一番右端でも、どこでもいいのですが、重複しているかどうかを表す列をつくります。ここでは(B1:B10)と(E1:E10)とし、「重複」とでるようにします。

B1にIF(COUNTIF($D$1:$D$10,A1)>1,"重複","")という式をいれB10までコピーします。E1にIF(COUNTIF($A$1:$A$10,D1)>1,"重複","")という式をいれE10までコピーします。
こうするとＢとＥの列に、重複している人は「重複」とでると思います。

間違っていたらすみません。
また、昨日の質問はみてませんので、同じ回答があったなら、すみません。

お礼

ご回答ありがとうございました☆

なんとかできました！

また質問することもあると思いますが
よろしくお願い致します（^o^）/

回答No.1

noname#9284

ファイルAのシート見出しを右クリックして「移動またはコピー」で移動先ブック名を「（新しいブック）」
で
コピーを作成する、にチェック。

次にファイルBのシート見出しを右クリックして、先ほどコピーを入れたブックを指定し、
同じようにコピーします。

これで新しいブックに2つのシートが集まったわけです。

お急ぎなら次のサイトの通りにしてみてはどうでしょうか。
サンプルもダウンロードできます。

エクセル技道場
別シートにある文字列との重複チェック
http://www2.odn.ne.jp/excel/waza/cformat.html#SEC21

参考URL：

http://okweb.jp/kotaeru.php3?q=767715

お礼

ご回答ありがとうございました☆

なんとかできました！

また質問することもあると思いますが
よろしくお願い致します（^o^）/