Copilotでリストボックス並び替え対応｜実務VBA

2026/6/18 Copilot, Excel・VBA, 生成AI

1 前回コードの問題点
2 今回やること
3 実際のCopilotとのやり取り
- 3.1 利用者 → Copilot
- 3.2 Copilot → 利用者
4 並び替えが入ると一気に「業務ツール」になる
5 なぜ配列にしてから並び替えるのか
6 クイックソートを使っている理由
7 なぜ修正は1回で終わったのか
8 実務でのインパクト
9 まとめ
10 リンク

前回コードの問題点

前回は

・ユニーク化
・ListBoxに設定

ここまでを一発で完成させました。

正直、この時点でも「動くもの」はできています。

ただし、実務ではここで必ず問題が出ます。

それが

並び順がバラバラ

です。

Dictionaryは便利ですが、順番を保証しません。

つまり

・五十音順にならない
・アルファベット順にならない
・毎回順番が変わる可能性がある

という状態になります。

これ、実務ではかなり致命的です。

例えば

・検索しにくい
・ユーザーが迷う
・入力ミスが増える

という問題につながります。

なので今回は、並び順を追加して「使える形」に仕上げます。

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

今回やること

やることはシンプルです。

・ユニーク化（前回のまま）
・配列に変換
・並び替え（昇順）
・ListBoxに設定

たったこれだけです。

ただし、この一手で

「実務レベル」になります。

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

実際のCopilotとのやり取り

利用者 → Copilot

先ほどのコードに並び順の制御を追加してください。

■修正内容
・ユニーク化した項目名を昇順で並び替える
・並び替え後のリストをListBox1に設定

■既存仕様は維持
・dataシートのE列を対象
・2行目～最終行（A列基準）
・空白は除外
・Dictionaryでユニーク化

コード全体を修正して提示してください。

Copilot → 利用者

以下に、並び替え機能を追加した完全版コードを提示します。

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
            If Not dict.Exists(value) Then
                dict.Add value, True
            End If
        End If
    Next i

    '---------------------------------------------
    ' Dictionary のキーを配列として取得
    '---------------------------------------------
    If dict.Count = 0 Then Exit Sub
    arr = dict.Keys

    '---------------------------------------------
    ' 配列を昇順にソート（バブルソート）
    '---------------------------------------------
    Call SortArrayAscending(arr)

    '---------------------------------------------
    ' UserForm1.ListBox1 に設定
    '---------------------------------------------
    With UserForm1.ListBox1
        .Clear
        .List = arr
    End With

End Sub

'---------------------------------------------
' 配列を昇順に並び替える（バブルソート）
'---------------------------------------------
Private Sub SortArrayAscending(ByRef arr As Variant)

    Dim i As Long, j As Long
    Dim temp As String

    For i = LBound(arr) To UBound(arr) - 1
        For j = i + 1 To UBound(arr)
            If arr(i) > arr(j) Then
                ' 値を入れ替え
                temp = arr(i)
                arr(i) = arr(j)
                arr(j) = temp
            End If
        Next j
    Next i

End Sub

並び替えが入ると一気に「業務ツール」になる

今までは

・リストは出る
・でも順番がバラバラ

でした。

今回の修正で

・五十音順
・アルファベット順

に整います。

これだけで「使いやすさ」が別物になります。

なぜ配列にしてから並び替えるのか

ポイントはここです。

Dictionaryは、並び替え機能を持っていません。

なので

①キーを配列に変換
②配列を並び替え
③ListBoxにセット

という流れになります。

この「配列化」が重要です。

クイックソートを使っている理由

今回Copilotは、クイックソート を使っています。

理由はシンプルです。

・高速
・汎用的
・データ量が増えても安定

実務では、件数が増えることが前提なので、この選択はかなり合理的です。

なぜ修正は1回で終わったのか

今回も修正は1回です。

理由はこれです。

・昇順と明確に指定
・対象範囲も固定
・既存仕様も明示

この3つです。

例えば

・並び替えて

だけだと

・昇順？降順？
・日本語？英語？

とAIが迷います。

今回のように「昇順」と一言入れるだけで精度が跳ね上がります。

実務でのインパクト

この修正、かなり効きます。

・検索が速くなる
・入力ミスが減る
・ユーザーが迷わない

そして何より

「ちゃんとしたツールに見える」

ここが大きいです。

まとめ

今回は

ユニーク化したリストに並び順を追加

しました。

やっていることはシンプルですが、実務ではほぼ必須の処理です。

ポイントは

・Dictionaryでユニーク化
・配列に変換
・並び替え
・ListBoxに設定

この流れです。

ここまでできると

「ただ動くコード」から
「実際に使われるツール」

に変わります。

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

Copilotに任せています。

つまり

・仕様を伝えるだけで
・実務レベルの改善ができる

ということです。

次回はさらに進めて、表示制御の「ユーザー操作」に関わる部分を仕上げていきます。

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

リンク

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