- 252 名前：245 mailto:sage [2007/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
|
 |
