Excelセル内のスペースを削除 – 先頭のスペース、末尾のスペース、余分なスペース、またはすべてのスペース

時々、他のアプリケーションからデータをコピーしてワークシートに貼り付けると、データと一緒に無意識に余分なスペースが含まれていることで問題が発生することがあります。例えば、先頭にスペースがある数値のセルを2つ足し合わせると、正しい結果ではなく0が返されることがあります。また、同じ内容を持つ2つのセルを比較する際、片方に先頭や末尾のスペースがあると誤った結果を得ることがあります。これらのスペースをどのように削除すればよいでしょうか？このチュートリアルでは、いくつかの方法をご紹介します。

セルから先頭、末尾、および間の余分なスペースを削除

列のリストに先頭、末尾、および間の余分なスペースが含まれているセルがあると仮定します。これらの余分なスペースをすべて削除するには、TRIM関数を使用できます。

空白のセルを選択し、入力します =TRIM(B3) それを押して Enter キーを押します。そしてその フィルハンドル をドラッグして、他のセルにも数式を適用します。スクリーンショットをご覧ください：
注釈：B3は、スペースを削除したいテキストを含むセルです。

これで、指定されたセルから先頭、末尾、および間の余分なスペースがすべて削除されました。

注: この操作は新しい列で行う必要があります。すべての余分なスペースを削除した後、Ctrl + Cを押して元のデータ範囲を選択し、右クリックして「貼り付けオプション」セクションの「値」を選択して、元のデータをトリムされたデータで置き換える必要があります。

セルから先頭のスペースのみを削除

場合によっては、下のスクリーンショットに示すように、先頭のスペースだけを削除し、セル内のすべての中間スペースを保持する必要があるかもしれません。このセクションでは、別の数式とVBAコードを紹介します。

MID関数を使用して先頭のスペースのみを削除

空白のセル（ここではD3を選択）を選択し、以下の数式をコピーしてEnterキーを押します。その後、フィルハンドルを下にドラッグして他のセルにも数式を適用します。

=MID(B3,FIND(MID(TRIM(B3),1,1),B3),LEN(B3))

この数式では、B3は先頭のスペースを削除したいテキストを含むセルです。

注: この操作は新しい列で行う必要があります。すべての先頭スペースを削除した後、数式なしでトリムされたデータで元のデータを置き換える必要があります。

VBAコードを使用して先頭のスペースのみを削除

1. 先頭のスペースを削除するセルを含むワークシートを開き、Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. [挿入] > [モジュール]をクリックし、以下のVBAコードをモジュールウィンドウにコピーします。

Sub RemoveLeadingSpaces()
'Updateby20190612
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = VBA.LTrim(Rng.Value)
Next
End Sub

3. F5キーを押してコードを実行します。Kutools for Excelダイアログがポップアップ表示されますので、先頭のスペースを削除する連続したセルを選択し、OKボタンをクリックします。

これで、選択したセルから先頭のスペースのみが削除されたことが確認できます。

セルから末尾のスペースのみを削除

1. 末尾のスペースを削除するセルを含むワークシートを開き、Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

2. [挿入] > [モジュール]をクリックし、以下のVBAコードをモジュールウィンドウにコピーします。

Sub RemoveTrailingSpaces()
'Updateby20190612
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = VBA.RTrim(Rng.Value)
Next
End Sub

3. F5キーを押してコードを実行します。Kutools for Excelダイアログがポップアップ表示されますので、末尾のスペースを削除する連続したセルを選択し、OKボタンをクリックします。これで、選択したセルから末尾のスペースのみが削除されたことが確認できます。

セルからすべてのスペースを削除

特定のセルからすべてのスペースを取り除きたい場合、このセクションの方法が役立ちます。

SUBSTITUTE関数を使用してセルからすべてのスペースを削除

=SUBSTITUTE(text, old_text, new_text, [instance_num])

空白のセルを選択し、以下の数式をコピーしてEnterキーを押します。次に、フィルハンドルを下にドラッグして他のセルにも数式を適用します。

=SUBSTITUTE(B3," ","")

ヒント：この数式では、 B3 は、すべてのスペースを削除したいテキストを含むセルです；
         " " （二重引用符で囲まれたスペース）は、削除したいスペースを表します；
         "" これは、すべてのスペースを何も置き換えずに削除することを意味します。

これで、特定のセル内のすべてのスペースが即座に削除されたことが確認できます。

注: この操作は新しい列で行う必要があります。すべてのスペースを削除した後、数式なしでトリムされたデータで元のデータを置き換える必要があります。

検索と置換機能を使用してセルからすべてのスペースを削除

上記のSUBSTITUTE関数に加えて、検索と置換機能を使用しても、セルからすべてのスペースを削除できます。

1. スペースを削除するセルを選択し、Ctrl + Hキーを押して「検索と置換」ダイアログボックスを開きます。

2. 「 検索と置換」ダイアログの「置換」タブで、「検索内容」テキストボックスに半角スペースを入力し、「置換後の文字列 」テキストボックスは空のままにして、「すべて置換」ボタンをクリックします。

Kutoolsを使用して簡単にセルから先頭、末尾、余分なスペース、すべてのスペースを削除

1. スペースを削除するセルを含む範囲または複数の範囲を選択し、[Kutools] > [テキスト] > [スペースの削除]をクリックします。スクリーンショットをご覧ください：

2. 「スペースの削除」ダイアログボックスには5つのオプションがあります：

• 先頭のスペースのみを削除するには、「先頭のスペース」オプションを選択してください；
• 末尾のスペースのみを削除するには、「末尾のスペース」オプションを選択してください；
• 先頭のスペースと末尾のスペースを同時に削除するには、「先頭と末尾のスペース」オプションを選択してください；
• すべての余分なスペース（先頭、末尾、間の余分なスペースを含む）を削除するには、「すべての余分なスペース」オプションを選択してください；
• すべてのスペースを削除するには、 「すべてのスペース」オプションを選択してください。

次に、「OK」ボタンをクリックして操作を開始します。

Excelのスペースに関連するその他の実用的なケース

セルからスペースを削除する以外に、セル内のスペースをカウントしたり、スペースを追加したり、スペースを他の文字に置き換えたりする必要があったことはありませんか？以下の推奨事項があなたのExcel作業を加速させるかもしれません。

---

最高のOffice生産性ツール

Kutools for Excel は、ほとんどの問題を解決し、生産性を80%向上させます。

• スーパー数式バー（複数行のテキストや数式を簡単に編集可能）； 閲覧レイアウト（多数のセルを簡単に読み取り・編集可能）； フィルター範囲への貼り付け...
• セル/行/列を結合してデータを保持； セル内容を分割； 重複する行を統合して合計/平均を計算... 重複セルを防止； 範囲を比較...
• 重複または一意の行を選択； 空白行を選択（すべてのセルが空）； スーパー検索および多くのワークブックでのあいまい検索； ランダム選択...
• 数式参照を変更せずに複数のセルを正確にコピー； 複数のシートへの自動参照作成； 箇条書き、チェックボックスなどを挿入...
• お気に入りの数式、範囲、グラフ、画像を素早く挿入； パスワードでセルを暗号化； メーリングリストを作成してメールを送信...
• テキストの抽出、テキストの追加、特定の位置の文字を削除、スペースを削除； ページング小計の作成と印刷； セルの内容とコメント間の変換...
• スーパーフィルター（他のシートにフィルタースキームを保存して適用）； 月/週/日ごとの高度な並べ替え、頻度など； 太字、斜体による特殊フィルタリング...
• ワークブックとワークシートを統合； 主キーカラムに基づいてテーブルをマージ； データを複数のシートに分割； xls、xlsx、PDFの一括変換...
• ピボットテーブルのグループ化（週番号、曜日など）... ロックされたセルとロックされていないセルを異なる色で表示； 数式/名前を持つセルをハイライト...

続きを読む... 機能全種類 30日間無料トライアル... 購入... 

---

Office Tab - Officeにタブ付きインターフェースを導入し、作業を大幅に簡単に行えます

• Word、Excel、PowerPoint、Publisher、Access、Visio、Projectでタブ付き編集と閲覧を有効化します。
• 新しいウィンドウではなく、同じウィンドウ内の新しいタブで複数のドキュメントを開き、作成します。
• 生産性を50%向上させ、毎日数百回のマウスクリックを削減します！

続きを読む... 機能全種類 30日間無料トライアル... 購入...