Excel VBA Trim関数で文字列の先頭と末尾の空白を取り除く方法

以下のようなシーンで利用されます。

・フォームやセルに入力されたデータの前後にある不要な空白を取り除く。

・データベースから取得したデータや外部ファイルから読み込んだデータの前後の空白を削除して、正確なデータ処理を行う。

Option Explicit

Sub RemoveLeadingAndTrailingSpaces()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    Dim originalText As String
    Dim cleanedText As String
    
    originalText = ws.Range("A1").Value
    cleanedText = Trim(originalText)
    
    ws.Range("B1").Value = cleanedText
End Sub

ユーザーフォームから入力されたデータの前後の空白を取り除く例

Option Explicit

Sub CleanUserInput()
    Dim userInput As String
    Dim cleanedInput As String
    
    userInput = InputBox("Enter some text with leading or trailing spaces:")
    cleanedInput = Trim(userInput)
    
    MsgBox "Cleaned Input: " & cleanedInput
End Sub