スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
［Alt］キー＋［Enter］キーで入力できるセル内改行を一括で削除するには、RangeオブジェクトのReplaceメソッドを利用します。

　構文 Replace(What, Replacement, [LookAt])
　設定項目　　　内容
　What　　　　　検索文字列
　Replacement　 置換文字列
　LookAt　　　　検索方法

次のサンプルは、InputBoxメソッドを利用して指定されたセル範囲内のセル改行を一括で削除します。

●サンプル●
Sub Sample()
  Dim selectedRange As Range
  
  On Error Resume Next
  Set selectedRange = Application.InputBox("範囲を選択してください" _
                                                         , Type:=8)
  On Error GoTo 0
  
  If selectedRange Is Nothing Then Exit Sub
      
  selectedRange.Replace vbLf, Empty, xlPart
End Sub