セル内の前後のスペースや改行を削除

Sub TrimSpacesAndNewlines()
    Dim cell As Range
    For Each cell In Selection
        ' セルの前後のスペースと改行（Chr(10)）を削除
        cell.Value = Trim(Replace(cell.Value, Chr(10), ""))
    Next cell
End Sub