Excel2007 複数重複チェック

質問

Excel2007で、複数条件の重複チェックの方法を教えてください。

以下の表があります。
A1：あああ　B1：A C1：=IF(COUNTIFS($A$1:$A$4,A1,$B$1:$B$4,B1)>1,"重複","")
A2：いいい　B2：B 　C2：=IF(COUNTIFS($A$1:$A$4,A2,$B$1:$B$4,B2)>1,"重複","")
A3：あああ　B3：A C3：=IF(COUNTIFS($A$1:$A$4,A3,$B$1:$B$4,B3)>1,"重複","")
A4：いいい　B4：B 　C4：=IF(COUNTIFS($A$1:$A$4,A4,$B$1:$B$4,B4)>1,"重複","")

C1～C4には"重複"が表示されますが、これを、重複しているグループ
で表示する方法はありますでしょうか？

期待する結果
A1：あああ　B1:A C1:グループ1
A2：いいい　B2:B 　C2:グループ2
A3：あああ　B3:A C3:グループ1
A4：いいい　B4:B 　C4:グループ2

C列に表示する文字は、どれとどれが組みになっているかわかればなんでも結構です。

すみませんが、Excelで実行する場合と、マクロで行う場合のサンプルソース
を教えていただけないでしょうか？

よろしくお願いします。

回答No.2

tom04 · ベストアンサー

こんばんは！
「グループ」の分け方はA列・B列の組み合わせ数でよいのでしょうか？
VBAになってしまいますが、そう解釈しての一例です。

Sheet1に元データがあり、Sheet2を作業用のSheetとして使用していますので
Sheet2は全く使っていない状態にしておいてください。

Alt＋F11キー　→　メニュー　→　挿入　→　標準モジュール　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行です）

Sub Sample1() 'この行から
Dim i As Long, cnt As Long, str As String, c As Range, wS1 As Worksheet, wS2 As Worksheet
Set wS1 = Worksheets("Sheet1")
Set wS2 = Worksheets("Sheet2")
For i = 1 To wS1.Cells(Rows.Count, "A").End(xlUp).Row
str = wS1.Cells(i, "A") & wS1.Cells(i, "B")
Set c = wS2.Range("A:A").Find(what:=str, LookIn:=xlValues, lookat:=xlWhole)
If c Is Nothing Then
cnt = cnt + 1
With wS2.Cells(cnt, "A")
.Value = str
.Offset(, 1) = "グループ" & cnt
End With
wS1.Cells(i, "C") = wS2.Cells(cnt, "B")
Else
wS1.Cells(i, "C") = c.Offset(, 1)
End If
Next i
wS2.Cells.Clear
End Sub 'この行まで

※　もしグループ分けの種類を確認したい場合は
最後の
＞wS2.Cells.Clear
の行を削除してマクロを実行してみてください。
Sheet2のA・B列にグループの種類が表示されているはずです。m(_ _)m

お礼

目的は達せられました。
ありがとうございました。

回答No.1

kuma56

>すみませんが、Excelで実行する場合と、マクロで行う場合のサンプルソースを教えていただけないでしょうか？
Excelで実行する場合・・・・・と言うのは、関数式で表示させるという事でいいのかな？
マクロで行う場合っていうのも、Excelのマクロ機能って事ですよねぇ？？

とりあえず・・・・・・
>C列に表示する文字は、どれとどれが組みになっているかわかればなんでも結構です。
何でも結構っていうけど、こういうのは有りかなぁ・・・・？？
C1に入っている式を、
=IF(COUNTIFS($A$1:$A$4,A1,$B$1:$B$4,B1)>1,A1&B1,"")
こうして、それをC4セルまでコピーしてやると、それぞれ　あああA　と　いいいB　と言う風に表示される。
:$A$4,や$B$4,の４をもっと大きな数字に変えてやって、A列に　あああ　いいい　以外に　ううう　や　えええ　等をどんどん入力してみて、B列も　C　や　D　などいろいろな組み合わせで入力してみて表示を確認してみてちょ！

お礼

目的は達せられました。
ありがとうございました。