Excel で大文字の前にスペースを挿入するには、どうすればよいですか？

著者Xiaoyang変更日2025-09-30

Excel でデータを適切に整形することは、明確性と分析のしやすさのために不可欠です。特に、読みづらいインポート済みまたは連結されたテキスト文字列を扱う際にはその重要性が際立ちます。「DataFormattingTool」のように単語がスペースなしでつながったテキストは、読み取りや処理が困難です。大文字の直前にスペースを挿入して単語を分離すれば、スプレッドシートがデータの解釈・共有の両面でよりユーザーフレンドリーで見やすいものになります。本ガイドでは、Excel で大文字の前に素早くスペースを挿入できる実用的な方法を複数ご紹介します。これにより、さまざまなシナリオでデータを常に整理され、管理しやすい状態に保つことができます。

Excel で大文字の前にスペースを挿入する

数式を使用（Excel 2019 以降のバージョン）
Kutools for Excel を使用
ユーザー定義関数（UDF）を使用
VBA コードを使用

数式を使用して大文字の前にスペースを挿入する（Excel 2019 以降のバージョン）

Excel の数式を使えば、大文字の前にスペースを挿入する作業をシンプルかつ確実に実行できます。この方法ではプログラミングスキルや特別なツールは一切不要で、Excel の組み込み関数だけで処理を自動化したいユーザーに最適です。以下では、Excel 2019、Excel 2021、および Microsoft 365 で利用可能な最新の動的配列関数とテキスト操作関数を活用した手法をご紹介します。

素晴らしい！Excel でChrome、Edge、Firefox、Safari のような効率的な Tabs をご利用いただけます！
毎日数千回のマウスクリックを削減し、50% もの時間を節約できます！

適用シナリオ：最新バージョンのExcel をご利用で、VBA やアドインを使わず、数式ベースの解決策をスピーディーに求めている方に最適です。この方法のメリットは、セルの内容を変更したりデータを貼り付けたりした際に自動で更新されることですが、古いバージョンのExcel では互換性がない場合があります。

実装手順は以下の通りです：

1．空白セル（たとえば、元のテキストがセル A2 にある場合はセル B2）に次の数式をコピー＆ペーストし、Enter キーを押してExcel 365 または2021 で最初の結果を取得します。Excel 2019 をご利用の場合は、Ctrl+Shift+Enter を押して配列数式として適用してください：

=TRIM(LEFT(A2,1) & TEXTJOIN("", TRUE, IF(CODE(MID(A2, ROW(INDIRECT("2:" & LEN(A2))), 1))>=65, IF(CODE(MID(A2, ROW(INDIRECT("2:" & LEN(A2))), 1))<=90, " "&MID(A2, ROW(INDIRECT("2:" & LEN(A2))), 1), MID(A2, ROW(INDIRECT("2:" & LEN(A2))), 1)), MID(A2, ROW(INDIRECT("2:" & LEN(A2))), 1))))

2．最初の結果が表示されたら、必要に応じてフィルハンドルを下にドラッグして、他の行にも同じ数式を適用しましょう。出力結果には、大文字の直前にスペースが挿入された元のテキストが表示されます。

数式を使用して大文字の前にスペースを挿入

この数式の説明：

LEFT(A2,1): 文字列の先頭文字をそのまま返し、先頭に不要なスペースが入るのを防ぎます。
INDIRECT("2:" & LEN(A2)):2 文字目から末尾まで、各文字の位置を参照するシーケンスを生成します。
MID(A2, ROW(...),1): 位置に基づいて、1 文字ずつ抽出します。
CODE(...):抽出した各文字の ASCII 値を評価します。65～90 の値は英大文字（A～Z）に対応しています。
TEXTJOIN(「」, TRUE, ...):各文字を結合し、大文字と判定された文字の前にスペースを挿入します。TRUE を指定すると、空のテキストはスキップされます。
TRIM(...):処理中に追加される可能性のある前後のスペースを削除します。

注記：元のセルが空であったり、テキスト以外の値を含んでいる場合、エラーが発生する可能性があります。最良の結果を得るには、データがテキスト形式であることを事前に確認してください。数式をドラッグする際は、セル参照が正しく設定されているかを必ずチェックし、データの開始行や列が異なる場合は適宜調整してください。

Kutools for Excel で大文字の前にスペースを挿入する

「Kutools for Excel」は、選択範囲内のすべての大文字の直前にスペースを挿入する非常に効率的な方法を提供します。内蔵の「テキストの追加」機能を使えば、複雑な数式やコードを覚える必要は一切なく、わずか数回のクリックでこの作業を完了できる実用的な代替手段となります。

適用シナリオ：大量のデータを頻繁に処理する方、グラフィカルインターフェースを好む方、または数式やコードの使用に慣れていない方に最適なソリューションです。この方法なら、高速な一括処理が可能で、数式エラーのリスクも軽減します。必要なのは、Kutools for Excel がインストールされていることだけです。

Kutools for Excelは300 以上の高度な機能を提供し、複雑な作業を効率化して、創造性と生産性を高めます。AI 機能と統合されたKutools は、正確にタスクを自動化し、データ管理を簡単にします。Kutools for Excel の詳細情報。。。 無料トライアル。。。

1．大文字の前にスペースを挿入したいセル範囲を選択し、「Kutools」メニュー＞「テキスト」＞「テキストの追加」の順にクリックします。これで関連オプションが開きます。
Kutools の「テキストの追加」をクリック

2．「テキストの追加」ダイアログボックスで、「テキスト」ボックスにスペースを入力し、「次の場合のみ追加」オプションを有効にして、ドロップダウンメニューから「大文字の前」を選択します。
ダイアログボックスでオプションを指定

3．「OK」をクリックして変更を適用してください。選択範囲内のすべての大文字の前にスペースが自動で挿入されます（下図参照）：
Kutools を使用してすべての大文字の前にスペースを挿入

注意事項：

この操作はデータに直接適用されるため、選択範囲をよくご確認ください。バッチ編集機能をご利用になる前に、必ずバックアップを取得することをおすすめします。
この関数は大文字と小文字を区別し、英大文字（A～Z）にのみ適用されます。

ユーザー定義関数（UDF）で大文字の前にスペースを挿入する

より柔軟性が必要な方や、カスタム処理のための再利用可能なソリューションをお探しの方には、VBA でユーザー定義関数（UDF）を作成し、大文字の前にスペースを挿入する正確なロジックを実装することをお勧めします。この方法により、スプレッドシートが動的になり、その関数は他のExcel 数式と同様に動作して自動的に更新されます。

メリット：完全にカスタマイズ可能で、コードをコピーすれば別のブックでも簡単に再利用できます。
デメリット：VBA エディターの基本的な操作知識が必要です。また、UDF ベースの数式はExcel Online やマクロが制限された環境では動作しない場合があります。

1．処理対象のテキストが含まれるワークシートを開きます。

2．ALT + F11を押して、Microsoft Visual Basic for Applications（VBA）エディターを開きます。

3．VBA エディターで、「挿入」＞「標準モジュール」をクリックすると、新しいモジュールウィンドウが開きます。そこに以下のコードをコピー＆ペーストしてください。

VBA コード：大文字の前にスペースを挿入する

Function AddSpaces(pValue As String) As String
'Updateby Extendoffice
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
   xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
   If xAsc >= 65 And xAsc <= 90 Then
      xOut = xOut & " " & VBA.Mid(pValue, i, 1)
   Else
      xOut = xOut & VBA.Mid(pValue, i, 1)
   End If
Next
AddSpaces = xOut
End Function

4．プロジェクトを保存して VBA エディターを閉じ、ワークシートに戻ったら、データの隣にある空白セル（例：データが A2 にある場合は B2）に次の数式を入力し、Enter キーを押してください。

=addspaces(A2)

セルのフィルハンドルを下にドラッグして、リストの残りのセルにも UDF 数式を適用しましょう。設計どおり、各テキスト文字列の大文字の前にスペースが挿入され、表示されます。

ヒントとトラブルシューティング：

ファイルを再開した後もユーザー定義関数（UDF）をご利用いただくには、ブックをマクロ有効ファイル（*。xlsm または *。xlsb）として保存してください。
テキストデータを変更すると、ユーザー定義関数（UDF）の出力が自動的に更新されます。
ユーザー定義関数（UDF）は、Excel Online や一部の制限付きマクロ環境ではご利用いただけません。

VBA コードで大文字の前にスペースを挿入する

広範囲のデータを一度に処理し、ワークシート上のデータを直接恒久的に変更したい場合は、VBA マクロが最適です。この方法は上級ユーザー向けであり、一時的なクリーンアップ作業にもぴったりで、選択したセルをその場で変更できます。

メリット：大規模なデータセットを効率的に処理でき、セルに数式を入力する手間が不要です。さらに、処理対象のセルをより細かく制御できます。

考慮事項：この方法ではデータが直接変更されるため、マクロを実行する前に必ずバックアップを作成してください。セキュリティ上の理由から、一部のブックではマクロがデフォルトで無効になっている場合がありますので、必要に応じて有効化してください。

1．ALT + F11を押して、「Microsoft Visual Basic for Applications」ウィンドウを開きます。

2．「挿入」＞「標準モジュール」をクリックし、モジュールウィンドウに以下のコードをコピーします：

VBA コード：大文字の前にスペースを挿入する

Sub AddSpacesRange()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim xOut As String
Dim xValue As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
    xValue = Rng.Value
    xOut = VBA.Left(xValue, 1)
    For i = 2 To VBA.Len(xValue)
       xAsc = VBA.Asc(VBA.Mid(xValue, i, 1))
       If xAsc >= 65 And xAsc <= 90 Then
          xOut = xOut & " " & VBA.Mid(xValue, i, 1)
       Else
          xOut = xOut & VBA.Mid(xValue, i, 1)
       End If
    Next
    Rng.Value = xOut
Next
Application.ScreenUpdating = True
End Sub

3。マクロを実行するには、「F5」キーを押すか、「実行」ボタンをクリックしてください。すると、変更したい範囲を選択するよう促すダイアログが表示されます。
データ範囲を選択する VBA コード

4。範囲を選択して「OK」をクリックすると、マクロが選択したセル内のすべての大文字の直前に即座にスペースを挿入します。
VBA コードを使用して大文字の前にスペースを挿入

トラブルシューティングのための注意事項：

マクロが何も実行しないように見える場合は、目的の範囲が正しく選択されており、かつExcel の設定でマクロが有効になっていることをご確認ください。
この操作は実行後に元に戻せません。ご不安な場合は、事前にバックアップをご利用ください。
このマクロは英大文字（A～Z）に最適化されています。非標準文字やローカライズされたアルファベットを使用した場合、結果が異なることがあります。

どの方法を選んでも、Excel で大文字の前にスペースを挿入すれば、文字列の可読性が大幅に向上します。各方法には最適な使用シーンがあります—数式は動的計算に、Kutools はユーザー向けの自動化に、UDF（ユーザー定義関数）は再利用性に、VBA コードは強力な一括処理にそれぞれ最適です。いずれかの手法を使用する際は、一括適用前に必ずデータを確認し、処理中に元の値を誤って失わないよう、事前にバックアップを取っておきましょう。エラーが発生した場合は、手順を一つひとつ見直し、お使いのExcel バージョンが該当の関数またはコードに対応しているかを確認してください。Excel に関するさらに詳しい解決策やヒントは、当社の豊富なチュートリアル集をご覧ください。

Excel でカンマの後にスペースを追加するには？

最高の 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％も向上させ、毎日数百回ものマウスクリックを削減します！