メインコンテンツへスキップ

Excelのセルから複数のスペースを単一のスペースに置き換える方法は?

docは複数のスペースを置き換えます1

複数のスペースを含むテキスト文字列のリストがあるとすると、次のスクリーンショットのように、これらのスペースをテキスト文字列内のXNUMXつのスペースに置き換えて、単語を区切る必要があります。 複数のスペースをXNUMXつずつ削除せずに、一度にXNUMXつのスペースに置き換えるにはどうすればよいですか?

式を使用して、複数のスペースを単一のスペースに置き換えます

VBAコードを使用して、複数のスペースを単一のスペースに置き換えます

Kutools for Excelを使用して、複数のスペースを単一のスペースに置き換えます


式を使用して、複数のスペースを単一のスペースに置き換えます

Excelでは、通常の検索と置換機能がこの問題を解決するのにうまく機能しない可能性があるため、簡単な数式を適用して問題を処理できます。 このようにしてください:

1。 次の式を入力します。 = TRIM(SUBSTITUTE(A2、CHAR(32)、 "")) セル値以外の空白のセルに、スクリーンショットを参照してください。

docは複数のスペースを置き換えます2

2。 次に、 入力します キーを押して結果を取得し、セルB2を選択してから、この数式を適用する範囲セルに塗りつぶしハンドルをドラッグすると、余分なスペースがすべてテキスト文字列から削除され、XNUMXつのスペースのみが保持されます。テキスト。 スクリーンショットを参照してください:

docは複数のスペースを置き換えます3


VBAコードを使用して、複数のスペースを単一のスペースに置き換えます

VBAコードに興味がある場合は、複数のスペースをXNUMXつのスペースに置き換えるためのコードを作成できます。次のようにしてください。

1。 押し続けてください Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 次に、をクリックします インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

VBAコード:複数のスペースを単一のスペースに置き換えます

Sub replace_multiplespaces()
'Updateby Extendoffice
Dim x As Range
Dim Workx As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set Workx = Application.Selection
Set Workx = Application.InputBox("Range", xTitleId, Workx.Address, Type:=8)
    For Each x In Workx
        x = WorksheetFunction.Trim(x)
    Next x
End Sub

3。 次に、 F5 このコードを実行するためのキーを押すと、余分なスペースを削除するデータ範囲を選択するように促すプロンプトボックスが表示されます。スクリーンショットを参照してください。

docは複数のスペースを置き換えます4

4。 そして、 OK ボタンをクリックすると、余分なスペースはすべてテキスト内のXNUMXつのスペースに置き換えられます。


Kutools for Excelを使用して、複数のスペースを単一のスペースに置き換えます

先頭のスペース、末尾のスペース、テキストのすべてのスペースを削除するなど、他の種類のスペースを削除する必要がある場合は、強力なツールをお勧めします-Excel用のKutools、 そのと スペースを削除する ユーティリティでは、先頭のスペース、末尾のスペース、すべてのスペースなど、必要に応じて任意のスペースを削除できます。

Kutools for Excel : 300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます

インストールした後 Kutools for Excel、次のようにしてください。

1。 余分なスペースを削除するデータ範囲を選択します。

2に設定します。 OK をクリックします。 クツール > テキスト > スペースを削除する、スクリーンショットを参照してください:

3。 の中に スペースを削除する ダイアログボックスで、 すべての余分なスペース スペースタイプ セクション、およびあなたはからの結果を見ることができます プレビュー ペイン、スクリーンショットを参照してください:

docは複数のスペースを置き換えます6

4。 そして、 Ok or 申し込む ボタンをクリックすると、余分なスペースがすべてセルから削除され、テキスト内にXNUMXつのスペースだけが残ります。

このスペースの削除機能の詳細については、クリックしてください。

クリックしてKutoolsfor Excelと無料トライアルを今すぐダウンロードしてください!


デモ:Kutools for Excelを使用して、複数のスペースを単一のスペースに置き換えます

Kutools for Excel:300以上の便利なExcelアドインがあり、30日以内に制限なしで無料で試すことができます。 今すぐダウンロードして無料トライアル!

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

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi Thanks for a useful Blog. It helped me get the answer I was looking for. _................ I was just wondering if this is acceptable and correct for removing Replace Multiple Spaces With Single Space From Cells: Taking your example, Formal to be dragged down: =Trim(A2) ( I do not understand why you have SUBSTITUTE(A2,CHAR(32)," ") instead of just A2 ??? ) It appear to give the correct results. _..... Here is one way I would do it using VBA Sub TrimRange() Let Range("B2:B9").Value = Evaluate("=If({1},TRIM(" & Range("A2:A9").Address & "))") End Sub Alan
This comment was minimized by the moderator on the site
I should have checked the Microsoft Doco: https://support.office.com/en-us/article/TRIM-function-410388fa-c5df-49c6-b16c-9e5630b479f9<br />".....The TRIM function was designed to trim the 7-bit ASCII space character (value 32) from text. In the Unicode character set, there is an additional space character ....." etc - hence the need to make sure the TRIM is working on Char 32 for any spaces...
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations