Excel でセル内の最初または最後のスペース以降の文字をすべて削除するには、どうすればよいですか？

このセクションでは、Excel で最初または最後のスペース以降のすべての文字を削除する数式をご紹介します。以下の手順に従ってください。

最後のスペース以降のすべての文字を削除

空白セルを選択し、数式 =LEFT(A2,FIND(「^^」,SUBSTITUTE(A2,「 」,「^^」,LEN(A2)-LEN(SUBSTITUTE(A2,「 」,「」))))-1)（A2は、最後のスペース以降のすべての文字を削除する対象セルです）を入力し、必要に応じてフィルハンドルをドラッグして適用範囲を指定してください。

複雑すぎる数式、覚えきれませんか？それを定型文として保存しておけば、今後はワンクリックでサッと再利用できます！続きを読む…     無料トライアル

すると、各セルで最後のスペース以降の文字がすべて削除されていることが確認できます。スクリーンショットをご参照ください。

最初のスペース以降のすべての文字を削除

空白セルを選択し、数式 =LEFT(A2,FIND(「 」,A2)-1)（A2は、最初のスペース以降のすべての文字を削除したいセルです）を入力し、必要に応じてフィルハンドルを下方向にドラッグしてください。

この方法では、Kutools for Excel の名前の分割ユーティリティを使えば、Excel のセルから最初のスペース以降の文字をすべてすばやく削除できます。

1。最初のスペース以降のすべての文字を含む範囲を選択し、Kutools > テキスト > 名前の分割をクリックしてください（スクリーンショットを参照）。

2。「名前の分割」ダイアログボックスが開いたら、名オプションのみをチェックして、OKボタンをクリックしてください。

3。次に、2 番目の名前の分割ダイアログボックスで宛先範囲の最初のセルを指定し、OKボタンをクリックします。

これで、各セルの最初のスペース以降の文字がすべて削除されたことをご確認いただけます。スクリーンショットをご参照ください。

ユーザー定義関数を使って、Excel のセルから最後のスペース以降の文字をすべて削除することも可能です。以下の手順に従ってください。

1。Alt+F11キーを同時に押すと、「Microsoft Visual Basic for Applications」ウィンドウが開きます。

2。挿入＞モジュールをクリックし、次のコードを新しいモジュールウィンドウにコピー＆ペーストしてください。

VBA：Excel で最後のスペース以降のすべての文字を削除

Function RemoveAfterLastSpace(Txt As String) As String
With CreateObject("VBScript.RegExp")
.Pattern = "\s+\w+$"
RemoveAfterLastSpace = .Replace(Txt, "")
End With
End Function

4。空白セルを選択し、数式 =RemoveAfterLastSpace(A2)（A2は最後のスペース以降の文字をすべて削除する対象セルです）を入力し、必要に応じてフィルハンドルをドラッグして範囲を広げましょう。

すると、各セルの最後のスペース以降の文字がすべて削除されていることが確認できます。スクリーンショットをご参照ください。

Excel で文字列／数値／セルから文字を削除する方法は？

Excel でテキスト文字列から数字を削除するには、どうすればよいですか？