Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

文字列：文字列の空白を削除（Trim 関数, LTrim関数, RTrim関数）

2015/05/07 2015/05/08

Trim 関数・LTrim 関数・RTrim 関数の使い方

【書式】

＜先頭と末尾の空白を削除
result = Trim ( string )

＜先頭の空白を削除
result_l = LTrim ( string )

＜末尾の空白を削除
result_r = RTrim ( string )

引数・戻り値

string ・・・任意の文字列・文字列式を指定します。
result ・・・引数 string の先頭または末尾にある空白文字（半角スペース・全角スペース）全てを削除した結果（文字列型：String）。
result_l ・・・引数 string の先頭にある空白文字（半角スペース・全角スペース）全てを削除した結果（文字列型：String）。
result_u ・・・引数 string の末尾にある空白文字（半角スペース・全角スペース）全てを削除した結果（文字列型：String）。

引数 string が、Null 値 を含む場合は、Null 値 を返します

Trim,LTrim,RTrim 関数は、「半角スペース」のみ削除、「全角スペース」のみ削除、また文字列内の「スペース」を削除といったことはできません。このような場合は、Replace 関数（文字の置き換え）を使用するといいでしょう。
　（例）newStr = Replace ( string, ” “, “” )
　 ※ 文字列 string から「半角スペース」を全て削除した結果を newStr に代入

Trim 関数・LTrim 関数・RTrim 関数の使用例

サンプルVBAソース

　

Sub Sample_Trim02()

    Dim myStr As String, newStr As String
    
    myStr = "　こんにちは>　<abc "      '文字列先頭に「全角スペース」「>」と「<」の間に「全角スペース」末尾に「半角スペース」
    Debug.Print myStr
    Debug.Print Len(myStr)              '文字数の確認（13）

    newStr = LTrim(myStr)               '先頭の空白文字を削除
    Debug.Print newStr
    Debug.Print Len(newStr)             '文字数の確認（12）

    newStr = RTrim(myStr)               '末尾の空白文字を削除
    Debug.Print newStr
    Debug.Print Len(newStr)             '文字数の確認（12）

    newStr = Trim(myStr)                '先頭末尾の空白文字を削除
    Debug.Print newStr
    Debug.Print Len(newStr)             '文字数の確認（11）

    
    ' Replace 関数を使用
    
    newStr = Replace(myStr, " ", "")    '文中にあるすべての半角スペースを削除
    Debug.Print newStr
    Debug.Print Len(newStr)             '文字数の確認（12）
    
    newStr = Replace(newStr, "　", "")  '文中にあるすべての全角スペースを削除
    Debug.Print newStr
    Debug.Print Len(newStr)             '文字数の確認（10）

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

　

Sub Sample_Trim02()

Dim myStr As String, newStr As String

myStr = "　こんにちは>　<abc " '文字列先頭に「全角スペース」「>」と「<」の間に「全角スペース」末尾に「半角スペース」

Debug.Print myStr

Debug.Print Len(myStr) '文字数の確認（13）

newStr = LTrim(myStr) '先頭の空白文字を削除

Debug.Print newStr

Debug.Print Len(newStr) '文字数の確認（12）

newStr = RTrim(myStr) '末尾の空白文字を削除

Debug.Print newStr

Debug.Print Len(newStr) '文字数の確認（12）

newStr = Trim(myStr) '先頭末尾の空白文字を削除

Debug.Print newStr

Debug.Print Len(newStr) '文字数の確認（11）

' Replace 関数を使用

newStr = Replace(myStr, " ", "") '文中にあるすべての半角スペースを削除

Debug.Print newStr

Debug.Print Len(newStr) '文字数の確認（12）

newStr = Replace(newStr, "　", "") '文中にあるすべての全角スペースを削除

Debug.Print newStr

Debug.Print Len(newStr) '文字数の確認（10）

End Sub

　

実行結果

- VBA基本 LTrim 関数, RTrim 関数, Trim 関数, VBA基本, エクセルVBA, 空白削除

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 文字列：文字列の長さを取得（ Len 関数、LenB 関数）

Len 関数（文字列の長さを取得）【書式】 result_len = Len …

: Math 関数（ Abs,Atn,Cos,Exp,Log,Rnd,Sgn,Sin,Sqr,Tan ）

Abs 関数【書式】 value = Abs ( number ) 【引数・戻 …

: メッセージボックスを表示（MsgBox関数）

MsgBox関数【書式】 result = MsgBox ( Prompt [ …

: Option Compare ステートメント

Option Compare ステートメントの使い方【書式】 Option C …

: XlThemeColor 列挙型

XlThemeColor 列挙定数値内容 xlThemeColorDark …

: 文字列：文字列変数の値を右詰めまたは左詰めにする（RSet ステートメント・LSet ステートメント）

RSet ステートメント・LSet ステートメント【書式】＜ RSet ステ …

: カレントフォルダ（CurDir 関数、ChDir ステートメント、ChDrive ステートメント）

カレントフォルダカレントフォルダとは、ブックを開いたり保存するときに既定で参照 …

: CPU に制御を移す（DoEvents 関数）

DoEvents 関数 DoEvents 関数を実行すると、CPU に制御を移し …

: Erase ステートメント（配列の初期化・動的配列のメモリ解放）

Erase ステートメントの使い方【書式】 Erase myArray [, …

: 日付時刻：日付時刻から情報取得（ DatePart 関数）

DatePart 関数（日付・時刻の値から情報を取得）【書式】 result …

PREV: 文字列：アルファベットを小文字または大文字に変換（LCase 関数,UCase 関数）
NEXT: 文字列：文字列の一部を別の文字列で置換（Replace 関数）