Dictionary 配列の同じ要素を削除するDictionary(Each)

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][Dictionary 配列の同じ要素を削除するDictionary(Each)]
Option Explicit


Sub DicArraySameElementDelEach(ByVal DB As VariantByRef DB2() As String)
'*****************************************************
'FSO 配列の同じ要素を削除するDictionary(Each)
'*****************************************************

'Dictionaryオブジェクト
Dim obj As Object, vrn As Variant, n As Long

    Set obj = CreateObject("Scripting.Dictionary")

    n = 0
    For Each vrn In DB
        If obj.Exists(vrn) = False Then
            obj.Add vrn, ""
            ReDim Preserve DB2(n) As String
            DB2(n) = vrn
            n = n + 1
        End If
    Next vrn

    Set obj = Nothing

End Sub


Private Sub test()
Dim i As Long, x(5) As String, DB2() As String
'テストデータ
x(0) = "1"
x(1) = "A"
x(2) = "1"
x(3) = "B"
x(4) = ""
x(5) = "1"

Call DicArraySameElementDelEach(x, DB2())

'値を表示
    For i = LBound(DB2) To UBound(DB2)
        Debug.Print i & vbTab & DB2(i)
    Next i

'0   1
'1   A
'2   B
'3
End Sub





Production Japan Import Application. Since 1998