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でテキスト文字列から数字を削除するにはどうすればよいですか？