如何删除Excel单元格中的换行符或回车符

我有一个Excel表，我需要转换成一个CSV文件导入到数据库。 Excel工作表有一列有一些有返回字符的单元格，我想是因为我看不到它真的在那里，导致我的csv文件有额外的logging应该是以前的logging集。 我尝试了Vba代码，但是只有一些返回字符，下面的代码。

Public Sub GetCarriageReturn() Dim mString As String With ActiveSheet lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row End With For i = 2 To lastRow mString = Cells(i, "B") LfPosition = InStr(mString, vbLf) 'Chr(10) 'MsgBox LfPosition If LfPosition > 0 Then mNewString = Left(mString, LfPosition - 2) & " " & Mid(mString, LfPosition + 1, 20) Trim (mNewString) 'Debug.Print mNewString Cells(i, "B").Value = mNewString End If CrPosition = InStr(mString, vbCr) 'Chr(10) 'MsgBox CrPosition If CrPosition > 0 Then mNewString = Left(mString, CrPosition - 2) & " " & Mid(mString, CrPosition + 1, 20) Trim (mNewString) 'Debug.Print mNewString Cells(i, "B").Value = mNewString End If Next i End Sub 

我在这里错过了什么？ 任何援助将不胜感激。

Answer 1

尝试这个：

 Sub TryThis() Cells.Replace what:=vbCr, Replacement:=" " Cells.Replace what:=vbLf, Replacement:=" " End Sub 

它应该扫描工作表中的所有单元格，并用空白replaceASCII10和ASCII13 。