>>358じゃないけど、実験がてらExcelで
Worksheets("Sheet1").Range("B2").Replace What:=vbCrLf, Replacement:=""
とかやってみたけど詰まらないな。
識者の方に任せるわ。