|
▼Yuki さん:
>▼亜矢 さん:
>>よろしくお願いします。
>> 変数の中に同じデータが有る場合、それをまとめたいと思います。
>>たとえば
>> A(1)=月
>> A(2)=火
>> A(3)=水
>> A(4)=木
>> A(5)=月
>> A(6)=土
>> A(7)=月
>> ・
>> ・
>> ・
>> これを
>> B(1)=月
>> B(2)=火
>> B(3)=水
>> B(4)=木
>> B(5)=土
>> 変数量はそのたびに変わります。変数の中身も都度かわります。その
>> 様な状態で上記ようにしたいのです。同じデータは捨てた、新しいデータに
>> したいのですが、方法がわかりません。シートに貼り付けてとか
>> 思いますが、変数の状態のままできる方法を教えて頂きたいと
>> 思います。
>
>こんな感じですか。
>
>Dim SD As Object
>Dim A(1 To 7) As Variant
>Dim B As Variant
>Dim i As Long
>
>A(1) = "月"
>A(2) = "火"
>A(3) = "水"
>A(4) = "木"
>A(5) = "月"
>A(6) = "土"
>A(7) = "月"
>
>Set SD = CreateObject("Scripting.Dictionary")
>For i = LBound(A) To UBound(A)
> SD(A(i)) = Empty
>Next
>B = SD.keys
>Set SD = Nothing
>For i = LBound(B) To UBound(B)
> Debug.Print "B(" & i & ")= " & B(i)
>Next
ありがとうございました。解決しました。
|
|