Excel VBA 質問スレ Part63

[0829 デフォルトの名無しさん (ﾜﾝﾄﾝｷﾝ MMd3-Na0O) 2019/11/25(月) 15:16:08.90 ID:FfR4EE1kM]

Dim R As Range
For Each R In ActiveSheet.UsedRange
R = Replace(R, vbCr, "")
R = Replace(R, vbLf, "")
Next

あるいは

Cells.Replace What:=vbCr, Replacement:=""
Cells.Replace What:=vbLf, Replacement:=""