エクセルVBA 同じ項目をまとめる（重複データの整理）コード作成

今回は、同じ項目を一つにまとめるためのエクセルVBAコードを紹介します。

多数銘柄の商品を複数の店で扱っている場合、商品銘柄集計表を作るには、商品銘柄の種類だけをリストにしないといけません。

こんにちは、じゅんぱ店長（@junpa33）です。

セルの編集の記事一覧

2022年5月22日Bordersの/位置/線種/太さ/色/と<外枠だけの罫線>の設置 2022年5月1日セルの編集 DeleteとClearの使い分け 削除とクリアの違い 2022年4月2日Charactersで文字列中の一部の文字を加工する 2022年3月29日Fontプロパティで文字装飾操作をする 2020年12月26日エクセルVBA 同じ項目をまとめる（重複データの整理）コード作成 2020年12月19日Findメソッドでの検索の方法とコード組み立てのコツ 2022年9月3日データの並び替え VBA新旧のSortを実データで実証

エクセルVBA 同じ項目をまとめる
（重複データの整理）コード作成

結構、実務上のエクセル操作で同じ項目を「ひとつにまとめたいなぁ！」という時があります。

出来そうで出来ない、力わざで出来ても大変時間がかかるなんてことがありますよね。

例えば「並び替え」をして重複項目を一個ずつ削除するとか・・・

今回の例題は、そんなチョッと悩ましいパターンのものを準備しました。

VBAコードの作成は面倒くさいし「力わざの並び替え削除」も出来そうなリストです。

今回の例題

今回は日ごとに販売した雑誌リストの積み上げという想定で、

雑誌名と雑誌コードを一覧表化しています。

この表を重複データの整理をしてD列とE列に表示したいと思います。

Dictionaryオブジェクトを使います

エクセルVBAで問題解決していくのに、Dictionaryオブジェクト（連想配列）を使います。配列としてはキーとデータが一ペアとなります。

キーは、言えば「見出し」的なもので、重複をしてはいけません。（重複させようとしたときはエラーになります。）

データは、そのキーに紐づいた値になります。こちらは、重複してるかどうかは問いません。

そして、この配列のインデックス番号は0から始まります。

構文

CreateObject関数でDictionaryオブジェクトを指定します。

CreateObject(“Scripting.Dictionary”)

Setステートメントで戻り値をオブジェクト変数をオブジェクト変数に代入する。

Set オブジェクト変数 = CreateObject(“Scripting.Dictionary”)

メソッド

オブジェクト変数. Add Key, Item・・・キーとデータをペアで配列にして追加します。

オブジェクト変数. Keys ・・・キーを配列にして返します。

オブジェクト変数. Items・・・キーに紐づいたデータを配列にして返します。

同じ項目をまとめる重複整理のVBAコード

Sub 雑誌名重複整理()

Dim Arow As Long
Dim i As Long, j As Long
Dim myDic As Object
Dim mykeys, myItems

'Setステートメントで戻り値をオブジェクト変数に代入する
    Set myDic = CreateObject("Scripting.Dictionary")

'A列でリストの最終行を調べる
    Arow = Cells(Rows.Count, 1).End(xlUp).Row

'連想配列、キー重複の時エラーを無視
    On Error Resume Next
    
    For i = 2 To Arow

'連想配列、キーとデータを追加する
        myDic.Add Worksheets("Sheet1").Cells(i, 1).Value, Worksheets("Sheet1").Cells(i, 2).Value
    Next i

    For j = 0 To myDic.Count - 1
        mykeys = myDic.keys
        myItems = myDic.Items

'キーとデータをセルに表示する
    Range("D" & j + 2).Value = mykeys(j)
       Range("E" & j + 2).Value = myItems(j)
    Next j

'オブジェクトを解放する
    Set myDic = Nothing
End Sub

同じ項目をまとめる（重複データの整理）
コード作成のまとめ

「同じ項目をまとめる（重複データの整理）」を行うエクセルVBAコードは、これ以外にも作成方法があります。

けれども、コード作成行数的にも処理スピード的にもこの手法が一番お手軽かなというのが感想です。

自分たちは、実務派の身なので、同じ作業のために幾つも覚える必要はないと思います。

Dictionaryオブジェクトでキーを取り出したら、他にそのキーに紐づく値などは、「Match関数」で引っ張ってくることが出来ます。

MEMO

Match関数について詳しくはこちらになります。

エクセルVBAで使うMatch関数 活用度アップでテッパン関数に！

For～Nextの使い方については、この記事も参考にしてください。

エクセルVBA！For～Nextのループと入れ子構造をVBA最速理解

データ入力セルの最終行番号を取得する方法については、この記事を参考にしてください。

データ入力済セルの最終行番号を取得する

短期間でエクセルVBAの独学習得を目指したいなら

エクセルVBAを独学する独習方法は、学習者それぞれ十人十色、多種多様と思われます。

けれども、

出来るだけ効率よく学習するためには、いくつかの大切なポイントがあります。

独学でもVBA習得の中級クラスに達するのはそんなに難しいことではありません。

先人が行った勉強方法をあなたがそのまま利用すればよいということです。

2021年3月18日 エクセルVBAを独学で習得する！ために大切な7つのポイントを解説します

独習のための大切な7つのポイントは、上記記事にて解説しています。

正直、VBAの学習について自分の周りの仕事（業務）からだけ実例を得るのでは効率良い習熟は無理です。

ハッキリ言って、

本当に短い期間でVBA習得を成功させたいなら、今使っている参考書が良書かどうかを判断し、新ツールとしてオンライン学習も取り入れて行うことが、

手っ取り早く短期間習得できるというのは間違いないでしょう。

このブログでよく使うVBAのコードのトピックを纏めています。

エクセルVBA最速理解で必要な知識を集めよう！

今回の記事はここまでです。   最後までご覧いただき有難うございました。