F016 文字列を改行で分割する関数

　文字列を改行で分割する関数です。行番号を指定して取り出しできます。1行目、2行目、3行目と行を分けて取り出しすることで、行間の設定ができます。

VBEの標準モジュールに下のコードを登録して「Excelマクロ有効フォーム」で保存してください。
関数の登録方法は⇒♯000 ユーザー定義関数を登録する方法

登録されたら、シート上からユーザー関数「RoSplit」が使用できます。
使い方は　
ワークシート上で　=RoSplit (文字列)の関数として使用できます。
【例】
　セル　Ａ1
　拝啓
　日頃は弊社業務にご協力いただきありがとうございます。

　RoSplit (A1,1) 　　→　拝啓
　RoSplit (A1,2) 　　→ 日頃は弊社業務にご協力いただきありがとうございます。

Function RoSplit(S, Optional R As Long)
’改行のあるセル内の文字列を列番号を指定してに取り出す関数
’ RoSplit(文字列, 取り出す文字列の列数)
’ RoSplit(“aaa 改行 bbb 改行 ccc”,2) →　bbb
On Error GoTo EXITFUN
Dim A As Variant
A = Split(S, vbLf)

If R = 0 Then
　RoSplit = A(0)
ElseIf R- 1 <= UBound(A) And R >= 1 Then
　RoSplit = A(R- 1)
Else
　RoSplit = “”
End If

EXITFUN:
End Function

ここで紹介したコード使用による損害に対しては一切責任は負えません。