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

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

エクセルマクロで、配列から重複要素を削除する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] に格納します。


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

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

 

「たった1秒で仕事が片づくExcel自動化の教科書【増強完全版】」
「5時間かかる作業が3時間でできます」ではなく「1秒で終わらせます」へ
毎日の業務を瞬時に終わらせるしくみを解説