LTrim、RTrim、Trim関数

LTrim、RTrim、Trim 関数はそれぞれ文字列の先頭、末尾、両端の空白(半角・全角)を削除します。

スポンサーリンク

LTrim、RTrim、Trim関数の使用方法

構文
LTrim(String)
RTrim(String)
Trim(String)

【戻り値】 バリアント型 (内部処理形式 String の Variant)
引数名 省略 説明
String × 任意の文字列式を指定します。

LTrim、RTrim、Trim関数の使用例

各種 Trim 関数、および、Replace 関数を使用して文字列内の空白を除去する例です。

Sub sample_ef02A_01()
    Dim wStr    As String

    '先頭に半角スペース1つ、末尾に全角スペース2つ
    wStr = " Hello World!!  "

    Debug.Print "[1]LTrim  :""" & LTrim(wStr) & """"
    Debug.Print "[2]RTrim  :""" & RTrim(wStr) & """"
    Debug.Print "[3]Trim   :""" & Trim(wStr) & """"

    '文字列内の空白を削除したい場合はReplaceを使用します。
    Debug.Print "[4]Replace:""" & Replace(Trim(wStr), " ", "") & """"
End Sub
  • マクロ実行結果(イミディエイトウィンドウ
    [1]LTrim  :"Hello World!!  "
    [2]RTrim  :" Hello World!!"
    [3]Trim   :"Hello World!!"
    [4]Replace:"HelloWorld!!"
タイトルとURLをコピーしました