エクセルで別シート同士の照合結果を抽出

質問

シート1（担当者アの案件）：　A列に会社名　B列に担当者名
シート2（担当者イの案件）：　A列に会社名　B列に担当者名
シート3（担当者未定の案件）：　A列に会社名　B列に担当者名
シート4

シート1とシート3を照合して、シート1に存在する場合、シート4に抽出
シート2とシート3を照合して、シート1に存在する場合、シート4に抽出

としたいのです。やり方を教えていただけますでしょうか。
ちなみに結果の抽出はシート4でなくてもどこでもいいのです。
お手数ですがよろしくお願いいたします。

回答No.6

merlionXX

ANo1.merlionXXです。

> VBAが全くわからないので、シート名の応用がきかず、わかりませんでした。

シート１からシート４とお書きのシート名はそれぞれ、Sheet1～Sheet4ではなかったということですね。
では、わかりやすくシート１やシート４と書き直しますので、そちらで本当の名前に書き変えて実行してみてください。
以下のコードの　 Sheets("シート１") 　を、Sheets("ほんとの名前") 　のように " と　"　に囲まれた部分を直します。

A列B列ともに一致したデータを対象にします。
データは1行目からあるものとします。

手順

1.エクセルの画面で、AltキーとF11キー同時に押し（以下Alt+F11キーと記述）て Visual Basic Editor を呼び出します。
2.Visual Basic Editor のメニューから「挿入」、「標準モジュール」で出てきたコードウィンド（右側の白い広い部分）に以下のコード（Sub～End Sub）をコピペします。

'********これより下**********

Sub test02()
　　Dim ws(1 To 4) As Worksheet
　　Dim myV1, myV2, myV3, myW
　　Dim i As Long, n As Long, j As Long

　　Set ws(1) = Sheets("シート１")
　　Set ws(2) = Sheets("シート２")
　　Set ws(3) = Sheets("シート３")
　　Set ws(4) = Sheets("シート４")

　　myV = ws(1).Range("A1", ws(1).Cells(Rows.Count, "B").End(xlUp)).Value
　　myV2 = ws(2).Range("A1", ws(2).Cells(Rows.Count, "B").End(xlUp)).Value
　　myV3 = ws(3).Range("A1", ws(3).Cells(Rows.Count, "B").End(xlUp)).Value
　　ReDim myW(1 To UBound(myV3), 1 To 2)
　　For i = 1 To UBound(myV)
　　　　For n = 1 To UBound(myV3)
　　　　　　If myV(i, 1) & myV(i, 2) = myV3(n, 1) & myV3(n, 2) Then
　　　　　　　　j = j + 1
　　　　　　　　myW(j, 1) = myV3(n, 1)
　　　　　　　　myW(j, 2) = myV3(n, 2)
　　　　　　　　Exit For
　　　　　　End If
　　　　Next n
　　Next i
　　For i = 1 To UBound(myV2)
　　　　For n = 1 To UBound(myV3)
　　　　　　If myV2(i, 1) & myV2(i, 2) = myV3(n, 1) & myV3(n, 2) Then
　　　　　　　　j = j + 1
　　　　　　　　myW(j, 1) = myV3(n, 1)
　　　　　　　　myW(j, 2) = myV3(n, 2)
　　　　　　　　Exit For
　　　　　　End If
　　　　Next n
　　Next i
　　ws(4).Range("A:B").ClearContents
　　ws(4).Range("A1").Resize(UBound(myW), 2).Value = myW
End Sub

'********これより上**********

3.Alt+F11キーでワークシートへもどります。
4.Alt+F8キーで出てきたマクロ名（test02）を選択して実行します。

回答No.5

layy

シート１：ア担当
Ａ社　担当　田中様
Ｂ社　担当　加藤様
Ｃ社　担当　青木様

シート２：イ担当
Ｃ社　担当　伊藤様
Ｄ社　担当　山本様
Ｆ社　担当　林様

シート３：担当未定
Ｂ社　担当　加藤様
Ｅ社　担当　松本様

とあれば一つのシートにまとめる。
シート５
シート１の分　Ａ社　担当　田中様　　ア担当
シート１の分　Ｂ社　担当　加藤様　　ア担当
シート１の分　Ｃ社　担当　青木様　　ア担当
シート２の分　Ｃ社　担当　伊藤様　　イ担当
シート２の分　Ｄ社　担当　山本様　　イ担当
シート２の分　Ｆ社　担当　林様　　　イ担当
シート３の分　Ｂ社　担当　加藤様　　担当未定
シート３の分　Ｅ社　担当　松本様　　担当未定

シート５の並べ替え
Ａ社　担当　田中様　　ア担当
Ｂ社　担当　加藤様　　ア担当
Ｂ社　担当　加藤様　　担当未定
Ｃ社　担当　青木様　　ア担当
Ｃ社　担当　伊藤様　　イ担当
Ｄ社　担当　山本様　　イ担当
Ｅ社　担当　松本様　　担当未定
Ｆ社　担当　林様　　　イ担当

シート５の並べ替え
Ａ社　担当　田中様　　ア担当　　　　Ａ社はシート１のみに存在
Ｂ社　担当　加藤様　　ア担当
Ｂ社　担当　加藤様　　担当未定　　　Ｂ社はシート１と３に存在
Ｃ社　担当　青木様　　ア担当
Ｃ社　担当　伊藤様　　イ担当　　　　Ｃ社はシート１と２に存在
Ｄ社　担当　山本様　　イ担当　　　　Ｄ社はシート２のみに存在
Ｅ社　担当　松本様　　担当未定　　　Ｅ社はシート３のみに存在
Ｆ社　担当　林様　　　イ担当　　　　Ｆ社はシート２のみに存在

とりあえず、
こういうことで対応かと思いましたがどうでしょう。

回答No.4

layy

確認事項。

>シート1とシート3を照合して、シート1に存在する場合、シート4に抽出
>シート2とシート3を照合して、シート1に存在する場合、シート4に抽出

「照合」「存在」
これに含まれる意味をもっと明確にしないとマクロでは実現できません。

シート1とシート3を比較して、
あ：「会社」の値がシート1とシート3ともに同じ記載がある場合、
い：「会社」の値がシート1にしか記載がない場合、
う：「会社」の値がシート3にしか記載がない場合、

「シート1に存在」というだけでは、「あ」でもあるし「い」でもあるので
誤解を招きます。

>シート2とシート3を照合して、
「シート1とシート3を比較して、」とあるので、
同じ記載をしていないか、が目的で、
しているものとしていないものとを区別つけておきたい
ということだと解釈します。

シート4に残したいのは、重複分なのか、まだ担当未定のものなのか、
シート1とシート2を照合する必要はあるのかないのか。

>シート2とシート3を照合して、シート1に存在する場合、シート4に抽出
記載から察すると
「シート2とシート3を照合して、シート2に存在する場合、シート4に抽出
」
と想定される。
効率のいい比較のやり方さえわかれば、各判断方法や転記方法はなんとかなります、
というのであれば、ここの記載誤りはさほど問題ではないかも。

お礼

すみません。理解できず、挫折しました。
ありがとうございました。

回答No.3

layy

担当ウが発生すると仕組みが崩れるでしょうから、ＶＢＡがわからないなら手作業。

すべてのシートにシート名、連番を準備します。

すべてのシートをとあるシートにまとめます。

会社、シート名、連番
で並び替えをします。

ここで
３行あればシート１も２も３も存在するデータ、２行あれば、１行しかなければ、と判断できるでしょう。数式で２つ上のセルを見ます。

印がつけれたらフィルターを使えばシート４にまとめます。

マクロやＶＢＡをしらなくても少し手間かけるとできそうです。

お礼

すみません、理解できませんでした。。。
ありがとうございました。

回答No.2

keithin

どのシートもA1セルに「会社名」，B1セルに「担当者名」と同じ内容で記入されているとします。
ご利用のエクセルのバージョンが明記されていないので，2003（以前）でご説明します。

ご質問２段目の
＞シート2とシート3を照合して、シート1に存在する場合、シート4に抽出
イミフメイなのでこれはスルーして，シート１にあるシート３をシート４を抽出する手順をお話しします。

手順：
書き出し先とするシート４を開く（＜ここから始めることが必須）
データメニューのフィルタから「フィルタオプションの設定」を開始する
（オートフィルタのオプションではないので間違えないこと）

添付図を参考に
　指定した範囲にマーク
　リスト範囲はオリジナルデータのシート３のデータ範囲を指定
　検索条件範囲は抽出条件となるシート１のデータ範囲を指定
　抽出範囲は書き出し先となるシート４のA1を指定
してOKします。

お礼

すみません、手順どおりにやったのですが、できませんでした。
シート３のデータがそのままシート４に出てしまいました。
ありがとうございました。

回答No.1

merlionXX

シート１からシート４とお書きのシート名はそれぞれ、Sheet1～Sheet4だとします。
A列B列ともに一致したデータを対象にします。
データは1行目からあるものとします。

VBAでの手法です。
手順は以下のとおりです。簡単ですよ。

1.エクセルの画面で、AltキーとF11キー同時に押し（以下Alt+F11キーと記述）て Visual Basic Editor を呼び出します。
2.Visual Basic Editor のメニューから「挿入」、「標準モジュール」で出てきたコードウィンド（右側の白い広い部分）に以下のコード（Sub～End Sub）をコピペします。

'********これより下**********

Sub test01()
　　Dim ws(1 To 4) As Worksheet
　　Dim myV1, myV2, myV3, myW
　　Dim i As Long, n As Long, j As Long
　　For i = 1 To 4
　　　　Set ws(i) = Sheets("Sheet" & i)
　　Next i
　　myV = ws(1).Range("A1", ws(1).Cells(Rows.Count, "B").End(xlUp)).Value
　　myV2 = ws(2).Range("A1", ws(2).Cells(Rows.Count, "B").End(xlUp)).Value
　　myV3 = ws(3).Range("A1", ws(3).Cells(Rows.Count, "B").End(xlUp)).Value
　　ReDim myW(1 To UBound(myV3), 1 To 2)
　　For i = 1 To UBound(myV)
　　　　For n = 1 To UBound(myV3)
　　　　　　If myV(i, 1) & myV(i, 2) = myV3(n, 1) & myV3(n, 2) Then
　　　　　　　　j = j + 1
　　　　　　　　myW(j, 1) = myV3(n, 1)
　　　　　　　　myW(j, 2) = myV3(n, 2)
　　　　　　　　Exit For
　　　　　　End If
　　　　Next n
　　Next i
　　For i = 1 To UBound(myV2)
　　　　For n = 1 To UBound(myV3)
　　　　　　If myV2(i, 1) & myV2(i, 2) = myV3(n, 1) & myV3(n, 2) Then
　　　　　　　　j = j + 1
　　　　　　　　myW(j, 1) = myV3(n, 1)
　　　　　　　　myW(j, 2) = myV3(n, 2)
　　　　　　　　Exit For
　　　　　　End If
　　　　Next n
　　Next i
　　ws(4).Range("A:B").ClearContents
　　ws(4).Range("A1").Resize(UBound(myW), 2).Value = myW
End Sub

'********これより上**********

3.Alt+F11キーでワークシートへもどります。
4.Alt+F8キーで出てきたマクロ名（test01）を選択して実行します。

お礼

すみません、VBAが全くわからないので、シート名の応用がきかず、わかりませんでした。
ありがとうございました。