【エクセルマクロ】配列から重複要素を削除：動画あり

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

 
 
この記事がお役に立ちますと幸いです。
 
・【エクセルマクロ】配列処理を自動化する使用例まとめ
 

【エクセルマクロ】配列処理を自動化する：使用例16選

...

kirinote.com

2023.02.25