将Excel换行符转换为vbCrLf？

Question

我的专栏有换行符，但在使用vbCrLf阅读时如何将这些换算转换为Range("A" & r).Value？

Answer 1

在Excel中，单元格换行符由vbLf，不 vbCrLf表示。

您可以手动替换换行符：

Dim CellValue As String

CellValue = Replace(Range("A" & r).Value, vbLf, vbCrLf)

用标准Windows换行符替换所有Excel换行符。