Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26254 / 76807

←次へ　｜　前へ→


	【55886】Re:変数内の検索・まとめ

亜矢 - 08/5/22(木) 9:55 -


	引用なし

	パスワード

▼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
ありがとうございました。解決しました。

0 hits

▼

【55880】変数内の検索・まとめ 亜矢 08/5/22(木) 5:24