マクロについて

質問

お世話になっております。
エクセルで
2009年 2010年
11 11
22 33
33
2009年は11と22と33、2010年は11と33というのがあり、
11は2009年かつ2010年、22は2009年のみ、33は2009年かつ2010年と
IF関数をつかって、（A1セルには2009年、B1セルには2020年、A2セルには11、A3セルには22、A4セルには33、B2セルには11、B3セルには33と入力されているとするとき）
C列に、B2、B3、B3、C2、C3のすべての番号を重複なしでならべ、D列に、下記の式を入れ、その番号が2009と2010のどのような集合に属しているのかをマクロ式でかきたいのですが、おしえていただけないでしょうか？？？番号が増えも対応できるものが知りたいです。初心者のためお手数をおかけいたします。

（例）D２セルには,
=IF(AND(COUNTIF(A:A,C1)>0,COUNTIF(B:B,C1)>0),A$1&"かつ"&B$1,IF(COUNTIF(A:A,C1)>0,A$1&"のみ","")&IF(COUNTIF(B:B,C1),B$1&"のみ",""))

回答No.2

n-jun · ベストアンサー

Sub try()
Dim myDic As Object
Dim r As Range
Dim rr As Range

Set myDic = CreateObject("Scripting.Dictionary")

For Each r In Range("A1:B1")
For Each rr In Range(r.Offset(1), Cells(Rows.Count, r.Column).End(xlUp))

If Not myDic.Exists(rr.Value) Then
myDic(rr.Value) = Array(rr.Value, r.Value & "のみ")
Else
myDic(rr.Value) = Array(myDic(rr.Value)(0), Replace(myDic(rr.Value)(1), "のみ", "且つ") & r.Value)
End If
Next
Next

Range("C2").Resize(myDic.Count, 2).Value = _
Application.Transpose(Application.Transpose(myDic.Items))

Set myDic = Nothing
End Sub

一例になれば。

回答No.1

imogasi

＞マクロ式でかきたいのですが
マクロのプログラムの中身は、ふつうエクセルでは「ＶＢＡ」といって、式ではなく「コード」という。
ーー
それと関連して
（例）D２セルには,のところに質問者が挙げているのは関数式です。
ーー
質問の要求はどちら（ＶＢＡか関数か）明確にするため補足くされたい。
ーー
また
＞C列に、B2、B3、B3、C2、C3のすべての番号を重複なしでならべ、D列に、下記の式を入れ、その番号が2009と2010のどのような集合に属しているのかを
文章では判りにくいので、質問の例では結果は（シートのセルのデータ並びとしては）どうなってほしいのか補足されたい。

補足

大変申し訳ございませんでした。
最終目標は、2009年と2010年に、並んでいる番号が『2009年のみ』『2010年のみ』『2009年かつ2010年』のどれに当たるのかを知りたいのです。分かりにくい説明になり大変申し訳ございません。