Excel で名前のセルから敬称を削除するには？

著者Xiaoyang変更日2025-07-25

日常的なオフィス業務やデータクリーニング作業では、Excel の名前リストに「Mr.」や「Miss」「Mrs.」といった敬称が接頭辞として含まれているケースをよく目にします。マーケティングキャンペーンの準備やレポート作成、あるいはデータセットの標準化を目的として、これらの敬称を削除し、実際の名前だけを残したい場面もあるでしょう。たとえば、Mr. John SmithをJohn Smithのように、列全体にわたって一括変換する必要がある場合です。Excel でこの作業を効率的にこなせれば、特に大規模なデータセットや敬称の形式が統一されていないデータを扱う際に、手作業による膨大な工数を大幅に削減できます。

敬称付きの元の氏名と、敬称を削除した氏名を示すスクリーンショット

名前のセルから敬称を削除する数式
VBA マクロを使用して一括で敬称を削除する
Excel のフラッシュフィル機能を使用して敬称を削除する
数式を使用して敬称と名前を別々の列に分割する

名前のセルから敬称を削除する数式

Excel の数式を使えば、名前が入力されたセルから敬称を簡単に削除できます。この方法は、すべての名前が「敬称＋スペース＋氏名」という統一された形式に従っている場合に最適です。処理が高速で追加のアドインも不要なため、小～中規模のリストにぴったりです。ただし、「Dr. Prof.」などの複数語からなる敬称や、形式が統一されていないケースには対応できない可能性があります。

名前セルから敬称を削除するには、以下の手順を実行してください：

1．名前が入力されている列の隣の空セル（データがセル A2 から始まると仮定）に、次の数式を入力します：

=RIGHT(A2, LEN(A2) - FIND(" ",A2))

この数式は、セル内の最初のスペースの位置を特定し、その右側にあるすべてのテキストを抽出することで、敬称を効果的に取り除きます。

2．Enter キーを押して数式を確定し、セルの右下隅にあるフィルハンドル（小さな四角）を下方向にドラッグして、必要な範囲に数式をコピーしてください。

敬称を含まない氏名を取得するために数式を使用しているスクリーンショット

ヒントと注意事項：敬称を含まない（スペースなしの）名前が含まれている場合、数式がエラーを返す可能性があります。この方法を適用する前に、データに不整合がないか必ずご確認ください。

VBA マクロを使用して一括で敬称を削除する

大規模なデータセットや、敬称の形式が統一されていなかったり長さが異なる場合には、VBA マクロが非常に効果的な解決策です。VBA を使えば、さまざまな敬称を一括で削除でき、大規模なメールリストや人事データベースなど、手動での数式処理が非現実的なあらゆるシナリオにおけるデータクリーニングに特に威力を発揮します。

以下は、指定された範囲内で各名前の先頭から一般的な敬称（Mr、Ms、Mrs、Dr、Prof、Miss など）を削除するサンプル VBA スクリプトです。必要に応じて、このリストを簡単に拡張して追加の敬称を含めることも可能です。

1．開発タブ＞Visual Basicをクリックして、VBA エディターを開きます。VBA エディターで挿入＞モジュールを選択し、モジュールウィンドウに次のコードを貼り付けます：

Sub RemoveSalutationBulk()
    Dim WorkRng As Range
    Dim Rng As Range
    Dim cellValue As String
    Dim arrSalutations As Variant
    Dim i As Integer
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Select the range to remove salutations from:", xTitleId, WorkRng.Address, Type:=8)
    
    arrSalutations = Array("Mr. ", "Mr ", "Mrs. ", "Mrs ", "Ms. ", "Ms ", "Miss ", "Dr. ", "Dr ", "Prof. ", "Prof ")
    
    For Each Rng In WorkRng
        cellValue = Rng.Value
        For i = LBound(arrSalutations) To UBound(arrSalutations)
            If InStr(1, cellValue, arrSalutations(i), vbTextCompare) = 1 Then
                cellValue = Mid(cellValue, Len(arrSalutations(i)) + 1)
                Exit For
            End If
        Next i
        Rng.Value = cellValue
    Next Rng
End Sub

2．F5キーを押すか、実行ボタンをクリックしてコードを実行します。OKをクリックすると、処理したい名前を含む範囲を選択するダイアログボックスが表示されるので、該当セルをハイライトしてください。

注記：このマクロは、セルの先頭にある敬称のみを大文字・小文字を区別せずに削除します。一部の名前に一般的でない敬称が使われている場合は、コード内のarrSalutations 配列にそれらを追加してください。VBA を使って一括処理を行う際は、必ず事前にデータのバックアップを取り、意図しない変更を防ぎましょう。

Excel のフラッシュフィル機能を使用して敬称を削除する

Excel 2013 以降では、フラッシュフィル機能がデータのパターンを自動的に認識・適用することで、敬称を簡単に削除できます。この方法は視覚的で直感的であり、特に整ったデータ構造を持ち、インタラクティブな操作を好むユーザーに最適です。フラッシュフィルは、データセットがそれほど大きくなく、敬称と名前の間に明確かつ一貫したパターンがある場合に最も効果を発揮します。ただし、データが極めて不規則であったり、不整合が多い場合にはうまく機能しない可能性があります。

1．名前の隣に新しい列を挿入します。最初のデータセルの隣のセル（例：A2 が「Mr. John Smith」の場合、B2 に敬称を除いた「John Smith」と入力）します。

2．B3 セルに値の入力を始めましょう。Excel がパターンを認識すると（通常は1～2 件の入力後）、入力例に基づいて残りのセルに自動入力の候補を表示します。

3．提案内容を採用するには、Enterキーを押すだけで、フラッシュフィルが自動的に残りの列を完成させ、敬称を削除します。

フラッシュフィルが自動的に表示されない場合は、手動で有効化できます。最後に入力したセルのすぐ下のセルをクリックし、ツールバーのデータ＞フラッシュフィルをクリックするか、ショートカットキーCtrl+Eをご利用ください。

ヒント：フラッシュフィルはデータの不整合に非常に敏感です。特に一部の名前が期待されるパターンと一致しない場合、結果をしっかりと確認してください。この機能は自動更新されないため、元のデータが変更されたら、フラッシュフィルを再度実行する必要があります。

メリット：数式を覚える必要がなく、視覚的で明確なパターンを持つリストに対して非常に高速に処理できます。
制限事項：データセットが非常に大規模な場合やパターンが不均一な場合には適しておらず、Excel 2013 以降でのみご利用いただけます。

数式を使用して敬称と名前を別々の列に分割する

敬称を単に削除するのではなく、敬称と名前をそれぞれ別の列に分割したい場合にも、Excel の数式が大いに役立ちます。この方法は、敬称をレポート作成やその他の用途（たとえば、パーソナライズされたコミュニケーションや役職に基づくセグメンテーション）で引き続き活用したいときに特に有効です。この数式は、敬称と名前の間に常に同じ区切り文字（スペースなど）が使用されているデータに最も適しています。

1．敬称を抽出するには、空セル（例：名前が A 列にある場合、C2）に次の数式を入力します：

=LEFT(A2, FIND(" ",A2)-1)

これにより、最初のスペースより左側のテキストが抽出され、敬称だけが分離されます。

フィルハンドルを下にドラッグして、必要に応じて他の行にも数式をコピーしましょう。これにより、すべての敬称が新しい列に表示されます。

指定された氏名から敬称を抽出するために数式を使用しているスクリーンショット

2．名前部分のみを抽出するには、次の空白列（例：D2）に次の数式を入力します：

=MID(A2, FIND(" ",A2)+1,1024)

この数式は、最初のスペースの直後に続くすべてのテキストを取得し、それが実際の名前となります。ここでも、フィルハンドルを下にドラッグして他の行にも適用してください。

指定された氏名から氏名部分を抽出するために別の数式を使用しているスクリーンショット

ヒント：数式内の列参照（例：A2）は、実際のデータ位置に合わせて調整してください。名前フィールドが空白だったり、期待される形式と一致しない場合、数式エラーの原因となるため、ご注意ください。

最高の Office 業務効率化ツール

🤖	KUTOOLS AI アシスタント：次に基づいてデータ分析を革新します：インテリジェント実行｜コード生成｜カスタム数式作成｜データ分析とチャート生成｜拡張機能呼び出し…
	人気の機能：検索・ハイライト、または重複をマーキング｜空白行を削除する｜データを失うことなく列の結合またはセルを｜数式を使用しない四捨五入...
	スーパー LOOKUP：複数条件 VLookup ｜複数値 VLookup ｜複数シート間 VLookup ｜ファジーマッチ....
	高度なドロップダウンリスト：ドロップダウンリストをすばやく作成｜連動型ドロップダウンリスト｜複数選択可能なドロップダウンリスト....
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示状態を切り替え｜範囲および列の比較...
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブックとシートマネージャー｜リソースライブラリ（オートテキスト）｜日付ピッカー｜ワークシートの統合｜暗号化／セルの復号化｜リストからメール送信｜スーパーフィルター｜特殊フィルタ（太字のフォントを持つセルをフィルタリング／斜体／取り消し線。。。）。。。
	トップ15 ツールセット：12 テキストツール（テキストの追加、特定の文字を削除、...）｜ 50+チャートタイプ（ガントチャート、...）｜ 40+実用的関数（誕生日に基づいて年齢を計算します、...）｜ 19 挿入ツール（QR コードを挿入、パスから画像を挿入、...）｜ 12 変換ツール（単語に変換する、為替レートの変換、...）｜ 7 結合と分割ツール（高度な行のマージ、セルの分割、...）｜さらに多数

Kutools はお好みの言語でご利用いただけます。英語、スペイン語、ドイツ語、フランス語、中国語、および40+の他の言語をサポートしています！

Kutools for Excel でExcel スキルを強化し、これまでにない効率を体験しましょう。Kutools for Excel は、生産性を高め、時間を大幅に節約できる高度な機能を300 以上提供します。最も必要な機能を今すぐ入手するにはこちらをクリック。。。

Kutools for Excel の詳細はこちら。。。無料ダウンロード。。。

Office Tab は Office にタブインターフェースをもたらし、作業を大幅に簡単にします

Word、Excel、PowerPoint でタブを使った編集と閲覧を有効にします。Publisher、Access、Visio、Project でもご利用いただけます。
複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
日々の生産性を50％も向上させ、毎日数百回ものマウスクリックを削減します！

Office Tab の詳細はこちら。。。無料ダウンロード。。。

すべてのKutools アドインが、たった1 つのインストーラーで完結。

Kutools for Officeスイートには、Excel ・Word ・Outlook ・PowerPoint 用のアドインと Office Tab Pro が含まれており、複数の Office アプリを横断して作業するチームに最適です。

オールインワンスイート— Excel、Word、Outlook、PowerPoint 用アドイン＋Office Tab Pro
インストーラー1 つ、ライセンス1 つ— 数分でセットアップ可能（MSI 対応）
連携してさらにパワーアップ— Office アプリ全体で生産性が向上
30 日間のフル機能トライアル— 登録不要、クレジットカード不要
最高のお得感— 個別アドイン購入よりお得

Kutools for Office の詳細はこちら。。。無料ダウンロード。。。