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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 指定したセル範囲のサイズを変更（Resize プロパティ）

Resize プロパティ指定したセル範囲のサイズ（行数や列数）を変更します。 …

: 式の値に応じて多分岐を行う（Switch 関数）

Switch 関数の使い方 Switch 関数は、「式・値」を対にして指定して …

: 上付き文字・下付き文字（Superscript,Subscript）

上付き文字（Superscript プロパティ） Superscript プロパ …

: 変数がEmpty 値かどうかをチェックする（ IsEmpty 関数）

IsEmpty 関数の使い方【書式】 result = IsEmpty ( e …

: VBA で正規表現を使う（RegExp オブジェクトのプロパティ）

RegExp オブジェクトのプロパティ RegExp オブジェクトの詳細に関して …

: 文字列：２つの文字列を比較する（StrComp 関数）

StrComp 関数の使い方【書式】 result = StrComp ( s …

: 文字列：文字列の一部を別の文字列で置換（Replace 関数）

Replace 関数の使い方【書式】 result = Replace ( s …

: 乱数ジェネレータを初期化 (乱数系列を再設定) する（Randomize ステートメント）

Randomize ステートメントの使い方 Rnd 関数を使用する前に使用しま …

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

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

: 日付時刻：日付から曜日を取得（ Weekday 関数、WeekdayName 関数）

Weekday 関数（日付から曜日を表す数値を返す）の使い方【書式】 week …

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