VBA(エクセルで改行したもの→改行なしでコピー)

質問

VBAでシート１の指定セルの内容をシート２の指定セルにコピーするプログラムをつくりました。
a.Cells(r, 1).Copy Sheets("Sheet2").Range("A1")
こんな感じです。
これだとシート１で１つのセル内で改行してると、そのままの状態でシート２にコピーされてしまいます。
これをシート１では改行されていますが、シート２では改行なしで出力したいのです。
こんなプログラムを組むことは可能なのでしょうか？
知っている方がいましたらお願いします。知恵を貸してください。
本当に困っています。

回答No.1

BLUEPIXY · ベストアンサー

Sheets("Sheet2").Range("A1").Value = Application.WorksheetFunction.Clean(a.Cells(r, 1).Value)