07/06/27 17:46:50
'Microsoft Scripting Runtime を参照設定
'結果はG,H,I列の1行目以下に出力
'結果出力用配列 出力行数を上回る行数を確保。下回るとエラー
Dim ans(5000, 2) As String
Dim d As New Scripting.Dictionary
Dim v() As Variant
Dim buf As Variant
Dim vv As Variant
Dim i As Long
Dim n As Long
v = Range("D1", Cells(Rows.Count, "E").End(xlUp)).Value
For i = 1 To UBound(v)
If d.Exists(v(i, 1)) Then
d(v(i, 1)) = d(v(i, 1)) & vbTab & v(i, 2)
Else
d.Add v(i, 1), v(i, 2)
End If
Next i
v = Range("A1", Cells(Rows.Count, "B").End(xlUp)).Value