VBAを使い、表よりデータを抽出して重複を削除したい

Question

前提・実現したいこと

はじめまして、VBAに関してご質問いたします。
素人なのでへんな質問でしたら申し訳ございません。

EXCEL表よりA列B列の値を抽出してA列をキーにして
キーの重複を排除して、B列の値を追記していきたいのですが
やり方が全く分かりません。
ちなみにやりたいことは以下のようなことです

KEY DATE
りんご 10
みかん 12
もも 8
ぶどう 11
みかん 9
ぶどう 14
もも 7
りんご 13

りんご　10,13
みかん　12,9
もも　8,7
ぶどう　11,14

ヒントだけでもお教え願えませんでしょうか
申し訳ありませんがよろしくお願いします。

試したこと

インターネットで検索いたしましたが全く分かりませんでした

Comments

[sazi]

エクセルのバージョンは何ですか？

[yuusu]

2013です

Answer 1

VBAて重複排除をする場合は、Dictionaryオブジェクトを使うのが定番ですね。

出力先が不明ですか、同じシートのD列E列に出力するとして、下記のような感じでどうですか。

Public Sub Test()
    Dim dic As Object, r(), i As Long
    
    Set dic = CreateObject("Scripting.Dictionary")
    r = Range("A1").CurrentRegion.Value '元データを配列に格納
    
    For i = 1 To UBound(r)
        If dic.Exists(r(i, 1)) Then
            dic(r(i, 1)) = dic(r(i, 1)) & "," & r(i, 2)
        Else
            dic(r(i, 1)) = r(i, 2)
        End If
    Next
        
    Range("D1").Resize(dic.Count, 1).Value = WorksheetFunction.Transpose(dic.Keys)
    Range("E1").Resize(dic.Count, 1).Value = WorksheetFunction.Transpose(dic.Items)
End Sub

Comments

[yuusu]

ご回答ありがとうございます。
出力に関してもう一点ご質問がございます。
出力先をC列の同じセルとして前後に文字列を入れたいと思っています

今年の”りんご”は”10,13”です

このように文字列＋変数1+文字列+変数２+文字列のようにできますでしょうか

[yuusu]

ご回答ありがとうございました。
上の質問は何とかなりそうなので気にしないでください。
ソースコードを参考にいたします。

Answer 2

VBAなど不要。そう、シェル芸ならね！

$ cat list
りんご 10
みかん 12
もも 8
ぶどう 11
みかん 9
ぶどう 14
もも 7
りんご 13
$ cat list|awk 'a[$1]{$2=","$2}{a[$1]=a[$1]$2}END{for(i in a){print i,a[i]}}'
みかん 12,9
もも 8,7
ぶどう 11,14
りんご 10,13

Comments

[yuusu]

ご回答ありがとうございます。
今回はVBAで作成しようと思いますので、
シェルで作成する際は参考にさせていただきます。

Answer 3

アウトプットのレイアウト詳細もほしいですね。
例えば、
|A列|B列|
|KEY|DATE|
|りんご|10|
|りんご|13|
の場合は重複対象だと思うのですが、
B列の10及び13はどういうレイアウトで出力しようとしているのでしょうか。

Comments

[yuusu]

アウトプットは
|KEY|DATE|
|りんご|10|りんご　10,13
|りんご|13|みかん　12,9
|みかん|12|
|みかん|9|
.
.
.

のようにC列のセル内に出力したいと思っています

[ChoroQ]

でしたら下記のhatena19さんの回答ソースから、出力先セルいじればいけちゃいますね頑張ってください。