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

関連記事

: 文字列：指定した文字の文字コードを取得する（Asc 関数）

Asc 関数【書式】 result = Asc ( string ) 引数・戻 …

: 色の設定（ColorIndex プロパティ・Colors プロパティ）

ColorIndex プロパティ ColorIndex プロパティは、指定したオ …

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

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

: 文字列：文字列を指定した形式に変換する（StrConv 関数）

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

: ある数値が、複数の範囲のどの範囲に含まれるかを示す文字列を返す（Partition 関数）

Partition 関数の使い方 Partition 関数は、ある数値が、区切 …

: 日付時刻：年・月・日を取得（Year、Month、Day 関数）

日付から年・月・日を取得する関数【書式】 date_year = Year ( …

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

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

: 画面の更新を停止（ScreenUpdating プロパティ）

画面の更新を停止マクロを実行すると、画面が更新されます。これにより、実行速度が …

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

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

: 文字列：文字列変数内の一部を置き換える（Mid・MidB ステートメント）

Mid・MidB ステートメントの使い方【書式】 { Mid | MidB } …

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