VBA: セル内改行取り除き

投稿日時: 投稿者: 

Function cnv_crlf(inDesc As String) As String
	inDesc = Replace(inDesc, vbCrLf, "")
	inDesc = Replace(inDesc, vbCr, "")
	inDesc = Replace(inDesc, vbLf, "")
	cnv_crlf = inDesc
End Function