Copilotでリストボックスにユニーク値を設定｜実務VBA|40代シングルマザー派遣社員。正社員に転職するか悩む。

1 今回の業務内容と課題
2 今回やること
3 実際のCopilotとのやり取り
- 3.1 利用者 → Copilot
- 3.2 Copilot → 利用者
4 このコードでやっていること
- 4.1 Dictionaryでユニーク化
- 4.2 ListBoxへの設定
5 実務でのポイント
6 なぜ1回で完成したのか
7 まとめ
8 リンク

今回の業務内容と課題

今回のテーマは

データのユニーク化＋フォーム連携

です。

扱うデータは、経済産業省の公開データ「生産動態統計年報（2024年）」です。

データベースとして使う場合、同じ項目名が何度も出てくることはよくあります。

例えばこんな状態です。

・同じ項目名が何行も存在
・フィルタや検索がしづらい
・フォームに使うと重複だらけになる

このままでは、リストボックスが使いづらいという問題が発生します。

そこで今回は

項目名をユニーク化して、フォームのリストボックスに設定する

という処理を、Copilotに作らせます。

今回やること

今回はあえて最小構成にしています。

・dataシートのE列（項目名）を取得
・重複を除いたリストを作る
・UserForm1 の ListBox1 にセットする

この3つだけです。

この段階で一度「動くもの」を作ります。

次回以降で実務レベルに進化させていきます。

↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓

■■■スポンサーリンク■■■

実際のCopilotとのやり取り

利用者 → Copilot

Excel VBAで、データベースの項目名をユニーク化して
フォームのリストボックスに設定する処理を作成してください。

■元データ（dataシート）
・E列：項目名
・対象：2行目～最終行
・最終行はA列を基準に取得

■出力先
・UserForm1 の ListBox1

■要件
・E列の項目名を重複なしで取得
・ListBox1に一覧として設定
・空白は除外

可読性を重視し、コメント付きでコードを作成してください。

Copilot → 利用者

以下に、ご要望の条件を満たすExcel VBAコードを提示します。

Option Explicit
'---------------------------------------------
' dataシートのE列から項目名をユニーク抽出し、
' UserForm1 の ListBox1 に設定する処理
'---------------------------------------------
Public Sub LoadUniqueItemsToListBox()

    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dict As Object
    Dim i As Long
    Dim value As String
    Dim arr As Variant

    ' dataシートを取得
    Set ws = ThisWorkbook.Worksheets("data")

    ' A列を基準に最終行を取得
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    ' Dictionary（重複排除用）を作成
    Set dict = CreateObject("Scripting.Dictionary")

    '---------------------------------------------
    ' E列（2行目～最終行）を走査してユニーク化
    '---------------------------------------------
    For i = 2 To lastRow
        value = Trim(ws.Cells(i, "E").value)

        ' 空白は除外
        If value <> "" Then
            ' Dictionary に存在しなければ追加
            If Not dict.Exists(value) Then
                dict.Add value, True
            End If
        End If
    Next i

    '---------------------------------------------
    ' UserForm1.ListBox1 に設定
    '---------------------------------------------
    With UserForm1.ListBox1
        .Clear                       ' 既存の項目をクリア
        If dict.Count > 0 Then
            arr = dict.Keys          ' キー（ユニーク項目名）を配列として取得
            .List = arr              ' ListBox に一括設定
        End If
    End With

End Sub

UserForm 起動時に自動で読み込みたい場合は、 
UserForm1.Initialize イベントに以下を追加してください。

Private Sub UserForm_Initialize() 

    LoadUniqueItemsToListBox 

End Sub

このコードでやっていること

ここが一番重要です。

初心者の方でも理解できるように、順番に説明します。

Dictionaryでユニーク化

今回のキモはここです。

Dictionaryという仕組みを使っています。

これは

同じキーを登録できない

という特徴があります。

つまり

重複が自動で消える

ということです。

今回の処理はシンプルです。

・項目名を1つずつ読み込む
・Dictionaryに入れる
・同じものは無視される

これだけでユニーク化が完成します。

重複しないユニークなリスト作成～Dictionaryオブジェクト（連想配列）を使う1～ (Excel VBA)
重複しないユニークなリスト作成～Dictionaryオブジェクト（連想配列）を使う２～ (Excel VBA)

■■■スポンサーリンク■■■

ListBoxへの設定

ListBoxは少しクセがあります。

普通に1件ずつ追加する方法もありますが、今回は違います。

.List = dict.Keys

この1行で、配列を一括設定しています。

これが一番シンプルで速い方法です。

リストボックスに重複しないユニークな値リスト（1列）を設定する（Excel VBA)
リストボックスに重複しないユニークな値リスト（複数2列）を設定する（Excel VBA)
リストボックスに重複しないユニークな値リスト（複数列 3列以上）を設定する（Excel VBA)

実務でのポイント

今回のコードはシンプルですが、実務ではかなり使います。

例えば

・検索条件のプルダウン
・分類ごとの絞り込み
・入力補助

などです。

特に重要なのは

「元データをそのまま使っている」

という点です。

別シートに加工しなくても、その場でユニーク化できるのが強みです。

なぜ1回で完成したのか

今回も修正なしで完成しています。

理由はシンプルです。

指示が具体的だからです。

・E列
・2行目から
・A列で最終行
・ListBox1

ここまで明確に指定すると、Copilotは迷いません。

逆に

・いい感じにリスト作って

こういう指示だとズレます。

この差がそのまま精度の差になります。

まとめ

今回は、データのユニーク化 → フォーム表示という処理を、Copilotで一発作成しました。

やっていること自体はシンプルですが、実務ではかなり頻出のパターンです。

特に今回のポイントは

・Dictionaryで重複排除
・ListBoxへ一括設定
・元データをそのまま活用

この3つです。

これができるようになると、「入力フォームを作る」レベルまで一気にステップアップできます。

そして重要なのは、自分で書いていない という点です。

Copilotに任せています。

つまり

・知識がなくても
・短時間で
・実務レベルの処理が作れる

ということです。

次回はこのコードをさらに進化させます。

実務では必ず出てくる、並び順・表示制御あたりを調整していきます。

■■■スポンサーリンク■■■

リンク

■■■スポンサーリンク■■■