VBA 空白を削除するLTrim・RTrim・Trim関数 空白を追加するSpace関数

LTrim【ﾚﾌﾄﾄﾘﾑ】関数

RTrim【ﾗｲﾄﾄﾘﾑ】関数

Trim【ﾄﾘﾑ】関数

• 文字列の先頭にあるスペースを削除するには、LTrim【ﾚﾌﾄﾄﾘﾑ】関数
• 文字列の末尾にあるスペースを削除するには、RTrim【ﾗｲﾄﾄﾘﾑ】関数
• 先頭と末尾にあるスペースを削除するには、Trim【ﾄﾘﾑ】関数

を使用します。

LTrim関数、RTrim関数、Trim関数の書式と引数の説明

引数String【ｽﾄﾘﾝｸﾞ】は省略できません。
LTrim(String)
RTrim(String)
Trim(String)
【戻り値】バリアント型（内部処理形式StringのVariant）

コード例

Sub 空白削除()
Dim 文字 As String
文字 = "　Excel　VBA　"
MsgBox "削除前(" & 文字 & ")" & vbCrLf & _
"先頭削除(" & LTrim(文字) & ")" & vbCrLf & _
"末尾削除(" & RTrim(文字) & ")" & vbCrLf & _
"先頭末尾削除(" & Trim(文字) & ")"
End Sub

実行例

Space【ｽﾍﾟｰｽ】関数

文字列に指定した数だけスペースを追加するには、Space【ｽﾍﾟｰｽ】関数を使用します。固定長文字列としてデータの文字数を整えるために、スペースを追加する場合などに利用できます。なお、追加されるスペースは半角スペースです。

Space【ｽﾍﾟｰｽ】関数の書式と引数の説明

引数Number【ﾅﾝﾊﾞｰ】は省略できません。
Space(Number)
【戻り値】バリアント型（内部処理形式StringのVariant）

A列のデータを10文字の固定長にしてテキストファイルに書き出すコードと解説

Sub 固定長テキスト作成()
Dim ファイル名 As String
Dim 空白 As Integer
Dim 最終行 As Long
Dim i As Long
ファイル名 = ActiveSheet.Name & ". txt"
最終行 = Cells(Rows.Count, 1).End(xlUp).Row
Open ファイル名 For Output As #1
For i = 1 To 最終行
空白 = 10 - Len(Cells(i, 1).Value)
Print #1, Cells(i, 1).Value & Space(空白)
Next i
Close #1
End Sub

以上で、LTrim【ﾚﾌﾄﾄﾘﾑ】関数、RTrim【ﾗｲﾄﾄﾘﾑ】関数、Trim【ﾄﾘﾑ】関数、Space【ｽﾍﾟｰｽ】関数についての解説を終了します。
ありがとうございました。

文字列関数一覧表