【エクセルマクロ】配列から重複要素を削除:コピペで使えるコード

エクセルマクロ_配列から重複要素を削除_アイキャッチ エクセルマクロで効率化する

エクセルマクロで、配列から重複要素を削除するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
せひ、お試しください。

配列から重複要素を削除する

以下のExcelVBAを実行すると、配列内の重複要素を除外します。


Sub 配列から重複している値を消去()

Dim MyList() As Variant
Dim i As Long
Dim myDic As Object

    Set myDic = CreateObject("Scripting.Dictionary")

    '配列に要素を格納
    MyList = Array("りんご", "みかん", "ぶどう", "みかん", "さくらんぼ")
    
    '配列をループ
    For i = 0 To UBound(MyList)
        If Not myDic.exists(MyList(i)) Then

            '重複しない要素を格納
            myDic.Add Key:=MyList(i), Item:=MyList(i)

        End If
    Next
        
End Sub

 

マクロ実行後

配列 [MyList] には、重複する要素「みかん」が存在します。

[Dictionary] を使用して、重複しないリストを [myDic] に格納します。


 
 
この記事がお役に立てれば幸いです。
 

【エクセルマクロ】配列処理を自動化する:超便利8選
...