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

関連記事

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

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

: 文字列：指定した文字コードに対応する文字を返す（Chr 関数）

Chr 関数の使い方【書式】 result = Chr ( code ) 引数 …

: 引数が省略されたかどうかをチェックする（ IsMissing 関数）

IsMissing 関数の使い方【書式】 result = IsMissing …

: ユーザー定義関数：セルを取得する（ThisCell プロパティ）

入力されたセルを取得するワークシート上で使用する Function プロシージ …

: 文字列：文字列を検索してその最初の文字位置を返す（InStr 関数,InStrB 関数）

InStr 関数・InStrB 関数の使い方【書式】 result = { I …

: 日付時刻：日付時刻データを計算（ DateAdd 関数）

DateAdd 関数（日付・時刻の値を加算・減算結果を取得）【書式】 resu …

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

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

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

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

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

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

: VBA の演算子（文字連結演算子：& 演算子 + 演算子）

文字連結演算子文字連結演算子は、文字列の連結を行うときに使用する演算子で、「& …

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