|
▼亜矢 さん:
こんにちは
りんさんの紹介されているDictionaryですが、これは
便利ですよ♪
ぜひ習得されることをおすすめします。
文章中の単語の出現回数とか、
グループ別の数量カウントなどもできますので。
Sub Try1()
Dim dic As Object
Dim MM() As String
ReDim MM(1 To 8) ' ------- 少ないデータで実験
MM(1) = "りんご"
MM(2) = "みかん"
MM(3) = "めろん"
MM(4) = "りんご"
MM(5) = "かき"
MM(6) = "もも"
MM(7) = "りんご"
MM(8) = "みかん"
Dim i As Long
Set dic = CreateObject("Scripting.Dictionary")
For i = 1 To UBound(MM)
dic(MM(i)) = Empty 'どんどん配列要素を登録する(重複していれば上書きされる)
Next
' 結果を元の配列に入れる
ReDim MM(1 To dic.Count)
For i = 0 To dic.Count - 1
MM(i + 1) = dic.Keys()(i)
Next
Set dic = Nothing
End Sub
|
|