VBAコードでアクティブなシートのみの末尾のスペースをすべて削除したい場合は、この記事が間違いなく役立ちます。多くの場合、エラーの最後にスペースを残したり、Webからデータをコピーして気付かないことがあります。この記事では、エラーのあるスペースを削除する方法を学習します。

質問）：Excelでは、TRIM関数をSUBSTITUTE＆CHARで使用できます。つまり、= TRIM（SUBSTITUTE（A1、CHAR（160）、 “”））を使用して、テキストの末尾のスペースを削除できます。

文字列の最後に残っている不要なスペースをすべて削除するのに役立つマクロが欲しいのですが。

テキストの最後のスペースを削除するためのコードを取得するには; VBエディターを起動するには、以下の手順に従う必要があります。

[開発者]タブをクリックします。[コード]グループから、[VisualBasic]を選択します

img1

ワークシートモジュールに次のコードをコピーします

サブtrimspace（）

Dim c As Range、rngConstants As Range

エラー時に次を再開

Set rngConstants = ActiveSheet.UsedRange.SpecialCells（2、2）

エラー時GoTo0

rngConstantsが何もない場合

‘パフォーマンスを最適化

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

‘char160を含むセルのトリム

rngConstantsの各cについて

c.Value = Trim $（Application.Clean（Replace（c.Value、Chr（160）、 “”）））

次のc

‘設定をリセット

Application.ScreenUpdating = True

Application.Calculation = xlCalculationAutomatic

終了If

サブの終了

img2

  • これにより、最後のすべてのスペースが削除されます。

注：上記のマクロは、アクティブシートでのみ実行されます。

このようにして、VBAコードを使用して、最後の末尾のスペースを削除できます。

image 4