Excel セル内のスペースを削除 – 前のスペース、後ろのスペース、余分なスペース、またはすべてのスペース

他のアプリケーションからワークシートにデータをコピー＆ペーストすると、気づかないうちに余分なスペースが貼り付けられ、思わぬ問題が起きることがあります。たとえば、先頭にスペースが含まれる数値セルを2 つ加算しても、正しい結果ではなく「0」が返されることがあります。また、見た目は同じでも、片方のセルに先頭または末尾のスペースが含まれていると、比較結果が誤って表示されることも。 こうした不要なスペースを簡単に削除するにはどうすればよいでしょうか？このチュートリアルでは、その方法をいくつかご紹介します。

セルから先頭、末尾、単語間の余分なスペースを含むすべての余分なスペースを削除する

先頭や末尾、単語間に不要なスペースを含むセルの列があると仮定しましょう。こうした余分なスペースを一括で削除するには、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。検索と置換ダイアログボックスの置換タブで、「検索する文字列」テキストボックスに半角スペースを1 つ入力し、「置換後の文字列」テキストボックスは空欄のままにしてから、すべて置換ボタンをクリックします。

Kutools でセルから先頭・末尾・余分なスペースおよびすべてのスペースを簡単に削除

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

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

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

次に、OKボタンをクリックして、操作をスタートしましょう。

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

セルからスペースを削除する以外にも、セル内のスペースをカウントしたり、スペースを追加したり、他の文字に置き換えたりする必要に迫られたことはありませんか？以下のご提案が、Excel 作業をより迅速に行うお手伝いをします。

---

最高のオフィス生産性ツール

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

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

続きを読む…全機能を30 日間無料でお試しください…購入… 

---

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

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

続きを読む…全機能を30 日間無料でお試しください…購入…