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

Excelでのデータ書式の管理は、スプレッドシートが明確でプロフェッショナルであることを保証するための重要な側面です。一般的な書式設定のニーズの一つは、テキスト文字列の大文字の前にスペースを挿入することであり、これは連結されたデータや不適切にフォーマットされたデータを扱う際にしばしば必要になります。このガイドでは、これを実現するためのいくつかの効果的な方法を提供します。

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

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

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

Excelの数式は、大文字の前にスペースを挿入するための柔軟な方法を提供します。この方法は、プログラミング的アプローチを好まないユーザーに理想的です。

次の数式を空白のセルにコピーして貼り付け、"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))))

Kutools for Excelを使用してすべての大文字の前にスペースを挿入する

Kutools for Excelは、データ内のすべての大文字の前にスペースを挿入するための迅速かつ簡単な解決策を提供します。直感的な「テキストの追加」機能により、複雑な数式やコーディングなしでこのタスクを数回のクリックで自動化できます！

1. 大文字の前にスペースを挿入したい範囲を選択し、「Kutools」> 「テキスト」 > 「テキストの追加」をクリックします。スクリーンショットをご覧ください:

2. 開いた「テキストの追加」ダイアログボックスで、「テキスト」ボックスにスペースを入力し、「Only add to」オプションをチェックして、ドロップダウンリストから「大文字の前」を選択します。

3. 「OK」ボタンをクリックして、次のスクリーンショットに示すように、すべての大文字の前にスペースを挿入します:

ユーザー定義関数を使用してすべての大文字の前にスペースを挿入する

より柔軟性が必要な上級ユーザーのために、ユーザー定義関数（UDF）を作成して大文字の前にスペースを挿入することができます。

1. スペースを追加したいテキスト文字列が含まれているワークシートをアクティブにします。

2. 「ALT」+「F11」キーを押して「Microsoft Visual Basic for Applications」ウィンドウを開きます。

3. 「挿入」>「モジュール」をクリックし、以下のコードを「モジュール」ウィンドウに貼り付けます。

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. その後、このコードを保存して閉じ、ワークシートに戻り、データの隣の空白セルに以下の数式を入力します。次に、数式を他のセルにドラッグして埋めると、すべての大文字の前にスペースが挿入されます。

=addspaces(A2)

VBAコードを使用してすべての大文字の前にスペースを挿入する

このセクションでは、VBAコードを使用してExcelで大文字の前にスペースを挿入する方法を詳しく説明します。初心者でも上級者でも、このガイドはこのタスクを効率的に処理するためのツールと知識を提供します。

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」キーを押してこのコードを実行すると、使用したいデータ範囲を選択するためのプロンプトボックスが表示されます。

4. そして「OK」をクリックしてこのプロンプトボックスを閉じると、大文字の前にスペースが一度に挿入されます。スクリーンショットをご覧ください:

Excelで大文字の前にスペースを挿入することは、複数の方法で達成でき、それぞれ独自の利点があります。このガイドに記載されている手順やベストプラクティスに従って、作業フローを最適化し、このタスクを簡単に効率的に処理できるようになります。さらに多くのExcelのヒントやコツに興味がある場合、当社のウェブサイトでは数千ものチュートリアルを提供しています。

関連記事：

Excelでコンマの後にスペースを追加するにはどうすればよいですか？