見習いエンジニアがゆく

見習いエンジニアの勉強帳 VBA・NWなどなどITの勉強用ブログです。のんびり、のんびり。

Excel VBA 『関数』 Trim・LTrim・RTrim ~スペースを削除する~

こんばんは。ハイルナーです。

本日はスペースを削除するTrim・LTrim・RTrim関数をご紹介します。

 

 

Trim・LTrim・RTrim

構文

Trim(文字列)

LTrim(文字列)

RTrim(文字列)

 

説明

「Trim」が引数の文字列の両端にあるスペースを削除する関数です。

「LTrim」が引数の文字列の左側にあるスペースを削除する関数です。

「RTrim」が引数の文字列の右側にあるスペースを削除する関数です。

※スペースは、半角・全角問わず削除します。

※文字列の中のスペースは削除しません。

 

スペースの削除はReplace関数でも可能です。Replace関数を使った場合は、半角スペースのみ削除したり、全角スペースのみ削除したり、半角・全角スペースを削除したりできます。

また、Trim系関数では文字列内のスペースは削除できませんが、Replace関数では文字列内の関数を削除します。

 

Replace関数の記事はこちら

www.heilnervba.work

 

Trim関数の使用例

例1

Debug.PrintでイミディエイトウィンドウにTrim関数の結果を表示する。

※イミディエイトウィンドウは、VBE画面で「Ctrl」+「G」を押すと表示できます。

 

コードの例

Sub trimLesson1()
    Debug.Print Trim(" Hello World ")
End Sub

Hello Worldの両端のスペースが削除されてイミディエイトウィンドウに表示されます。

f:id:melancholy198x:20190204013901j:plain

Trim関数の結果

 

例2

A2:A4セルの値のスペースをTrim関数を利用して削除する。

以下のようなデータをセルA2:A4に入力しました。

f:id:melancholy198x:20190204013540j:plain

 

コードの例

Sub trimLesson2()
    Cells(2, 1) = Trim(Cells(2, 1))
    Cells(3, 1) = Trim(Cells(3, 1))
    Cells(4, 1) = Trim(Cells(4, 1))
End Sub

 

For文を使った別のコード例も書いてみました。

Sub trimLesson3()
    Dim i As Long
   
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        Cells(i, 1) = Trim(Cells(i, 1))
    Next i
End Sub

 

結果

結果は以下のようにセルの値の両端のスペースが削除されます。

f:id:melancholy198x:20190204014634j:plain

Trim関数の結果

 

LTrim関数の使用例

A2:A4のセルの値の左側のスペースをLTrim関数を使って削除する

f:id:melancholy198x:20190204014937j:plain

 

コード例

Sub ltrimLesson()
    Cells(2, 1) = LTrim(Cells(2, 1))
    Cells(3, 1) = LTrim(Cells(3, 1))
    Cells(4, 1) = LTrim(Cells(4, 1))
End Sub

 

結果

結果は以下のように左側のスペースのみが削除されます。右側にはスペースが残っています。そこがTrim関数との違いになります。

f:id:melancholy198x:20190204015055j:plain

LTrim結果

以下のように右揃えにするとスペースが残っていることが分かります。

f:id:melancholy198x:20190204015554j:plain

 

 

RTrim関数の使用例

A2:A4セルの値の右側のスペースを削除する。

f:id:melancholy198x:20190204013540j:plain

 

コード例

Sub rtrimLesson()
    Cells(2, 1) = RTrim(Cells(2, 1))
    Cells(3, 1) = RTrim(Cells(3, 1))
    Cells(4, 1) = RTrim(Cells(4, 1))
End Sub
 

 

結果

右側のスペースが削除されています。

f:id:melancholy198x:20190204013540j:plain

 

右揃えにしてみると以下のように、右側のスペースが削除されていることが分かります。

f:id:melancholy198x:20190204015847j:plain


今回はTrim・LTrim・RTrim関数について紹介いたしました。

いろいろ試してみていただければと思います。