導入：なぜ「作業列」を使ったソートが重要なのか
実務において、顧客コードや製品管理番号の「途中部分」をキーにして並べ替えたいという要望は非常に多いものです。しかし、Excelの標準機能である「並べ替え」は、セル全体の値に対して行われるのが基本です。
もし、セル内の特定の位置（例えば4文字目以降）だけで並べ替えを行いたい場合、そのままでは意図した結果が得られません。VBAでこの課題を解決する最も堅実で高速な方法は、「一時的な作業列」を作成してキーとなる文字列を抽出し、それに基づいて並べ替えるというアプローチです。この手法を習得すれば、複雑なデータの抽出や整理を自動化する強力な武器になります。
基礎知識：Mid関数とソートの仕組み
今回のテクニックで鍵となるのは、VBAの「Mid関数」です。
Mid(文字列, 開始位置) を使うことで、指定した文字列のn文字目から末尾までを簡単に切り出すことができます。
また、VBAで並べ替えを行う際は「Range.Sort」メソッドを使用します。このとき、データ範囲に「作業列」を一時的に挿入し、その列を基準に並べ替えた後に削除する、という処理の流れを組むのが、最もバグが少なく汎用性の高い実装方法です。
実装/解決策：処理のロジック
今回の実装手順は以下の通りです。
1. 現在のデータ列の左側に、一時的な作業列を挿入する。
2. ループ処理を使用して、対象列の各セルから「Mid関数」で取り出した文字列を作業列に書き出す。
3. 作業列を基準に、Sortメソッドで並べ替えを実行する。
4. 最後に作業列を削除して、元の状態に戻す。
この手法のメリットは、元のデータの並び順を壊さずに（あるいは作業列を消すことで見た目を維持しつつ）、目的の条件で並べ替えができる点です。
サンプルプログラム
以下のコードは、B列にあるデータの「4文字目以降」をキーにして並べ替える実用的な例です。適宜、ご自身のシートに合わせて調整してください。
Sub SortBySpecificCharacter()
‘ 定数：何文字目からソートするかを指定
Const START_POS As Long = 4
Dim targetRange As Range
Dim cell As Range
‘ 画面更新を停止して処理速度を向上
Application.ScreenUpdating = False
‘ A列に作業列を挿入
Columns(1).Insert Shift:=xlToRight
‘ B列（元データ）の2行目から最終行までループ処理
Set targetRange = Range(Range(“B2”), Cells(Rows.Count, 2).End(xlUp))
For Each cell In targetRange
‘ 4文字目以降を取り出し、A列（作業列）に代入
cell.Offset(0, -1).Value = Mid(cell.Value, START_POS)
Next cell
‘ 作業列（A列）をキーにして並べ替え実行
‘ Header:=xlYesはタイトル行がある場合。データのみならxlNoに変更してください
ActiveSheet.UsedRange.Sort Key1:=Range(“A1”), Order1:=xlAscending, Header:=xlYes
‘ 作業列を削除
Columns(1).Delete
‘ 画面更新を再開
Application.ScreenUpdating = True
MsgBox “4文字目以降をキーとした並べ替えが完了しました。”
End Sub
応用・注意点：現場でのトラブル回避
1. データのバックアップ：
プログラムで列の挿入・削除を行う際は、必ず実行前に元データのバックアップを取るか、テスト環境で動作確認を行ってください。特に「列の削除」は取り消し（Ctrl+Z）ができないため注意が必要です。
2. エラーハンドリング：
もしデータの中に「3文字未満」の文字列が含まれている場合、Mid関数は空文字を返します。これが並べ替えの挙動に影響を与える可能性があるため、データ内に極端に短い文字列が混在していないか事前に確認しておくのがプロの仕事です。
3. 処理速度の最適化：
データ件数が数万件を超える場合は、セルへ一つずつ書き込むループ処理ではなく、作業列に一度に「数式」を流し込んでから「値貼り付け」を行う方法に変えると、さらに高速に動作します。まずは上記のコードで仕組みを理解し、必要に応じて高度化させていきましょう。
