くせなので。 Sub appendBreak() If TypeName(Selection) <> "Range" Then MsgBox "Selection Empty" Exit Sub End If Dim obj As Range For Each obj In Selection.Cells obj.Value = obj.Value & vbCrLf Next End Sub