配列 配列の同じ要素を削除するCollection

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

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][配列 配列の同じ要素を削除するCollection]
Option Explicit


Sub ArraySameElementDelCollection(ByVal DB As VariantByRef DB2() As String)
'*****************************************************
'配列 配列の同じ要素を削除するCollection
'*****************************************************

Dim cllArray As Collection, vrn As Variant, i As Long

Set cllArray = New Collection

On Error Resume Next
    For Each vrn In DB
        cllArray.Add vrn, vrn
    Next
On Error GoTo 0

ReDim DB2(cllArray.Count - 1)
    For i = 1 To cllArray.Count
        DB2(i - 1) = cllArray(i)
    Next

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 ArraySameElementDelCollection(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