Vba: 先頭と末尾のスペースを削除する方法

VBA を使用して文字列から先頭と末尾のスペースを削除するには、次の基本構文を使用できます。

 Sub RemoveLeadingTrailingSpaces()

    Dim i As Integer

    For i = 2 To 7
    Range(" B " & i) = Trim(Range(" A " & i))
    Next i
    
End Sub

この特定の例では、範囲A2:A7内の各文字列から先頭と末尾のスペースを削除し、結果を範囲B2:B7に出力します。

次の例は、この構文を実際に使用する方法を示しています。

例: VBA を使用して文字列から先頭と末尾のスペースを削除する

Excel に次の文字列リストがあるとします。

多くの文字列には先頭または末尾にスペースがあることに注意してください。

各文字列から先頭と末尾のスペースを削除するとします。

これを行うには、次のマクロを作成できます。

 Sub RemoveLeadingTrailingSpaces()

    Dim i As Integer

    For i = 2 To 7
    Range(" B " & i) = Trim(Range(" A " & i))
    Next i
    
End Sub

このマクロを実行すると、次の出力が表示されます。

列 B には、列 A の各文字列の先頭と末尾のスペースが削除されて表示されます。

文字列から先頭または末尾のスペースのみを削除する場合は、それぞれLTrim関数またはRTrim関数を使用できることに注意してください。

注: 各 VBA Trim関数の完全なドキュメントはここで見つけることができます。

追加リソース

次のチュートリアルでは、VBA を使用して他の一般的なタスクを実行する方法について説明します。

VBA: 文字列内の文字の出現を数える方法
VBA: 文字列に別の文字列が含まれているかどうかを確認する方法
VBA: 特定のテキストを含むセルを数える方法