Excelのセルの末尾の余分な改行をまとめて削除するVBAのサンプルコード

Option Explicit

Sub deleteLineBreak()
    Dim i As Long
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    
        Dim CellValue As String
        CellValue = Worksheets("Sheet1").Cells(i, 1).value
        
        '文字数回繰り返す
        Dim j As Long
        For j = 1 To Len(CellValue)
            
            '最後の文字が改行コードの場合
            If Right(CellValue, 1) = vbLf Or Right(CellValue, 1) = vbCr Then
            
                '最後の文字以外を格納
                CellValue = Left(CellValue, Len(CellValue) - 1)
                
            '最後の文字が改行コード以外の場合
            Else
                '繰り返しから抜ける
                Exit For
            End If
        
        Next
    
        Worksheets("Sheet1").Cells(i, 1).value = CellValue
    
    Next
    
End Sub