VBA - キャリッジリターンを回避する方法

Question

これはかなり簡単に行うべきだと思いますが、私は苦労しています： - 複数のキャリッジリターンで区切られたデータを持つセルがあります。私はいつも2行目のデータが必要ですが、これをどうやって引き出すのかは分かりません。データの例は、以下のようなものです：

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)) 

この場合動作しません、を使用してください。それは `VbCrlf`と配列の '1'番目の要素にアクセスを使用して

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