【VBAリファレンス｜実務向け】大量の名簿も一瞬で検索可能に！PHONETIC関数を使ったインデックス作成術

ExcelVBA

2026.10.18

なぜ「インデックス」が必要なのか

実務で数百、数千件規模の顧客名簿を扱う際、特定の名前を探すのにスクロールを繰り返していませんか？「あ行」「か行」といったインデックス（見出し）が横に添えてあるだけで、目的のデータにたどり着くまでの時間は劇的に短縮されます。今回は、Excelの強力な関数を活用して、名簿から自動的にインデックスを生成する方法を解説します。

基礎知識：PHONETIC関数の仕組み

Excelには、セルに入力された漢字の「読み」を抽出するPHONETIC関数という便利な機能があります。これにLEFT関数を組み合わせることで、「氏名の頭文字」だけを抽出することが可能です。
・PHONETIC関数：対象セルの文字列から「ふりがな」情報を取得します。
・LEFT関数：文字列の先頭から指定した文字数分だけを切り出します。

実装手順：インデックス列の作成

以下の手順で、名簿にインデックス列を追加しましょう。

1. 名簿の横に「インデックス」用の列を新規挿入します。
2. 挿入した列の先頭行に、以下の数式を入力します。
=LEFT(PHONETIC(対象セル), 1)
（例：氏名がB2セルにある場合、=LEFT(PHONETIC(B2), 1) と入力します）
3. 数式を下方向にコピー（オートフィル）すれば完成です。

サンプルプログラム：VBAで一括作成する

実務では、データが更新されるたびに数式を再入力するのは手間です。VBAを使ってボタン一つでインデックスを生成するコードを紹介します。

Sub CreateIndex()
    ' 名簿の氏名列からインデックスを自動生成するマクロ
    Dim ws As Worksheet
    Dim lastRow As Long
    
    Set ws = ActiveSheet
    
    ' B列の最終行を取得
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' C列をインデックス列として数式を埋め込む
    ' PHONETIC関数を使用してB列の頭文字を取得
    ws.Range("C2:C" & lastRow).Formula = "=LEFT(PHONETIC(B2),1)"
    
    ' 値として固定する場合（数式を消して結果のみにする）
    ' ws.Range("C2:C" & lastRow).Value = ws.Range("C2:C" & lastRow).Value
    
    MsgBox "インデックスの作成が完了しました！", vbInformation
End Sub

応用・注意点：現場でハマらないために

・ふりがな情報の確認：PHONETIC関数は、セルに入力された「ふりがな情報」を参照します。手入力したデータの場合、Excelが正しく読みを認識していないことがあります。その際は、セルを選択して[ホーム]タブの[ふりがなの表示]機能で読みを修正してください。
・並べ替えとの併用：インデックスを作成する前に、必ず「ふりがな順」で並べ替えを行ってください。バラバラの順序でインデックスをつけても、見やすさは向上しません。
・コピー＆ペーストの注意：数式でインデックスを作った後、データ並び替え等で数式がエラーにならないよう、作成後は「値の貼り付け」で固定しておくのが実務上の定石です。

この手法をマスターすれば、膨大なリスト管理のストレスが大幅に減るはずです。ぜひ今日からの業務に取り入れてみてください。