メニュー 表示 非表示

Trim処理@Excel マクロ・VBA

Trim処理は、文字列の両端にある半角、全角空白文字列を取り除きます。

LTrim:左端の空白文字を取り除く
RTrim:右端の空白文字を取り除く
Trim :両端の空白文字を取り除く

両端の文字が対象なので、文字列中にある空白は取り除きません。



Sub test()

    Dim sheet As Worksheet
    Dim str As String

    Set sheet = Worksheets("Sheet1")

    '左端の半角空白文字をTrim
    str = " LTrim"
    sheet.Range("A1").Value = str
    sheet.Range("B1").Value = LTrim(str)

    '右端の半角空白文字をTrim
    str = "RTrim "
    sheet.Range("A2").Value = str
    sheet.Range("B2").Value = RTrim(str)

    '両端の半角空白文字をTrim
    str = " Trim "
    sheet.Range("A3").Value = str
    sheet.Range("B3").Value = Trim(str)

    '両端の全角空白文字をTrim
    str = "  Trim  "
    sheet.Range("A4").Value = str
    sheet.Range("B4").Value = Trim(str)

    '真ん中の全角空白文字は取り除かれない
    str = "  Tr im  "
    sheet.Range("A5").Value = str
    sheet.Range("B5").Value = Trim(str)
    
    Set sheet = Nothing

End Sub




Copyright (C) Excelマクロ・VBAのお勉強. All Rights Reserved.