Excel VBA vbCrLfはテキストを複数行に分ける改行コードを示す定数

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

・メッセージボックスで複数行のメッセージを表示する

・テキストファイルに複数行のデータを書き込む

・セルに複数行のテキストを入力する

Option Explicit

Sub ShowMultiLineMessage()
    Dim message As String
    message = "これは1行目" & vbCrLf & "これは2行目" & vbCrLf & "これは3行目"
    MsgBox message
End Sub

セルに複数行のテキストを入力する

Option Explicit

Sub InsertMultiLineTextInCell()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    Dim multiLineText As String
    multiLineText = "行1" & vbCrLf & "行2" & vbCrLf & "行3"
    
    ws.Range("A1").Value = multiLineText
    ws.Range("A1").WrapText = True  ' セルのテキストを折り返す設定を有効にする
End Sub

テキストファイルに複数行を書き込む

Option Explicit

Sub WriteMultiLineTextToFile()
    Dim filePath As String
    filePath = "C:\Users\User\Desktop\DataCsv\File.txt"
    
    Dim fileNum As Integer
    fileNum = FreeFile
    
    Dim multiLineText As String
    multiLineText = "行1" & vbCrLf & "行2" & vbCrLf & "行3"
    
    Open filePath For Output As #fileNum
    Print #fileNum, multiLineText
    Close #fileNum
End Sub

このように、vbCrLfを使用すると、簡単にテキスト内に改行を挿入し、複数行のテキストを処理できます。