csv回车不显示在Excel中

Question

我想在Excel中导入一个csv文件。 csv文件包含回车符，但Excel不会显示它们（请参见图片1）。仅当我在单元格中选择文本并按Enter时，回车才会出现。

有没有办法自动解决此问题？ （vba）

• 我试图用分号代替回车符，但是Excel找不到回车符。 （= SUBSTITUTE（F2，CHAR（10），“;”）
• 在单元格中打开了自动换行
• 我试图用宏和“ instr（）”函数找到回车符，但是Excel找不到Chr（10）。

Sub FindCarriageReturn()

myPos = InStr(1, Range("F2"), Chr(10))

End Sub

所有文档：https://drive.google.com/open?id=1Kwr1VjCSdxtbtNcM6h5Rl8tc_Mo9XIA6

谢谢！

Dieter

picture

Answer 1

您的CSV文件包含数据中的回车符（在VBA中为 CR ，CHAR（13），Chr(13)或vbCr），以及回车符和换行符（在每行末尾 CR LF ，CHAR（10）和CHAR（13），在VBA中为vbCrLf。

如果使用e打开CSV文件。 G。 notepad++，看起来像这样：

由于Excel需要在单元格中进行换行以获取可见的自动换行，因此您可以使用以下公式：

=SUBSTITUTE(F2, CHAR(13), CHAR(10))