| |
▼亜矢 さん：
>よろしくお願いします。
> 変数の中に同じデータが有る場合、それをまとめたいと思います。
>たとえば
> 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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
