VBA～セル内の改行を削除しよう～Excel

VBAでセル内の改行を削除したい場合はRange.Replaceメソッドで改行コードを空白で置換します。引数WhatにChr(10)を指定し、引数Replacementに空白を指定します。

単一セル内で改行を削除

下のコードを実行するとセルA4の改行が削除されます。

Sub test1()

Range("A4").Replace What:="" & Chr(10) & "", Replacement:=""

End Sub

範囲内で改行を削除

範囲を指定したい時はRange("範囲の左上のセル:範囲の右下のセル")で指定できます。

下のコードを実行するとセルA4からセルA6の範囲内の改行が削除されます。

Sub test2()

Range("A4:A6").Replace What:="" & Chr(10) & "", Replacement:=""

End Sub

シート全体で置換

シート全体で置換したい時はRangeオブジェクトをCellsにします。

下のコードを実行するとシート全体で改行が削除されます。

Sub test3()

Cells.Replace What:="" & Chr(10) & "", Replacement:=""

End Sub