末尾改行付与・削除 

セルの文字の末尾に改行を付与したり、全部削除したりする

2つ目のは検証していないけどたぶん大丈夫。

'末尾の改行をすべて削除する
Function removeLineBreakAtEnd(text As String)
    Dim trg As Range
    If Len(text) > 0 Then
        Do While Right(text, 1) = vbLf Or Right(text, 1) = vbCrLf Or Right(text, 1) = vbCr
            text = Left(text, Len(text) - 1)
        Loop
    End If
    removeLineBreakAtEnd = text
End Function
'末尾に改行が付いていなかったら付与する(状況に合わせて、vbLf,vbCrLf,vbCrを使い分けて)
Sub appendLineBreakAtEnd(text As String)
    If Len(text) > 0 Then
        If Right(text, 1) <> vbLf Then
            text = text & vbLf
        End If
    End If
    appendLineBreakAtEnd = text
End Sub


コメント