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

関連記事

: 指定した数値に対応する選択肢の値・数式を返す（Choose 関数）

Choose 関数の使い方 Choose 関数は、指定されたインデックス値（１ …

: 変数のデータ型・宣言（Dim ステートメント）

変数の宣言一般的な方法【書式】 Dim varname [ As type, …

: 四捨五入・切り上げ・切り捨て・丸め（Round 関数他）

Round 関数（丸め）の使い方【書式】 value = Round ( ex …

: VBA の演算子（算術演算子）

算術演算子算術演算を行うときに使用する演算子です。 ^（べき乗）、*（積）、/ …

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

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

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

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

: 取り消し線を設定する（Strikethrough プロパティ)

取り消し線を設定する（Strikethrough プロパティ) Striketh …

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

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

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

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

: VBA の演算子（演算子の優先順位）

演算子の優先順位演算子の優先順位とは、１つの式の中に演算子が複数ある場合、どの …

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