VBA - 如何绕过回车

Question

我认为这应该相当容易，但我正在努力： - 我有一个数据单元格，由多个回车分隔。我总是想要第二行数据，但我不确定如何解决这个问题？数据示例如下：

Line 1: This line can be any length
Line 2: Same with this one
Line 3: so on
Line 4: and so forth
Line 5: etc

谢谢，

詹姆斯

Answer 1

对于 A1 中的数据，在另一个单元格中输入：

=TRIM(MID(SUBSTITUTE($A1,CHAR(10),REPT(" ",999)),2*999-998,999))

如果这不起作用，请使用CHAR(13)。

要在VBA中执行此操作：

Public Function SecondLine(s As String) As String
    s = Replace(s, Chr(13), Chr(10))
    s = Replace(s, Chr(10) & Chr(10), Chr(10))
    SecondLine = Split(s, Chr(10))(1)
End Function