Excelってセルの中を改行して複数行にできるんですが、特定の行だけほしいっていうのがあって、
探してみるとマクロで作成してる人がいました。

で、自分なりに関数でできるようにオリジナルの関数を作成してみました。
動いた時にはちょっと感動しました。

ーーーーーーーーーーー
[Alt]+[F11]で開くウィンドウの[挿入]-[標準モジュール]で表示される
画面に以下を記述したら、そのウィンドウを閉じます。

Function getLineValue(val As Variant, line As Integer) As Variant

Dim SPL
SPL = Split(val.Value, Chr(10))
getLineValue = SPL(line - 1)

End Function
ーーーーーーーーーーーー
あとは、通常の式と同じようにすれば使えます。

自分で関数を作ったのは初めてで、便利だなって勝手に満足してしまいました。