特定文字で改行する【Replace関数】【ExcelVBA】

特定文字で改行コードを追加したい
特定文字で改行するサンプルコード
1. 実際の使い方
関連記事

特定文字で改行コードを追加したい

カンマや句読点が発生した場合、改行コードを追加したい場合があります。
改行コードを追加する概念ではなく、置換(Replace関数)する形で実装可能です。

特定文字で改行するサンプルコード

'■特定文字が出現したら、特定文字出現後に改行コードを追加する。
Public Function call_replaceNewLine(str As String, keyword As String)
    '■vbCrlfでの改行の場合
    call_replaceNewLine = Replace(str, keyword, keyword & vbCrLf)
    
    '■vbLfでの改行の場合
    'call_replaceNewLine = Replace(str, keyword, keyword & vbLf)
End Function

実際の使い方

下記コードのように使用します。

Public Sub sample()
    
    Debug.Print call_replaceNewLine("あいうえおあいうえおあいうえお", "お")
    'あいうえおあいうえおあいうえお
    '↓
    'あいうえお
    'あいうえお
    'あいうえお
    
End Sub