特定文字で改行コードを追加したい
カンマや句読点が発生した場合、改行コードを追加したい場合があります。
改行コードを追加する概念ではなく、置換(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
コメント