文章目录
[+]
EXCEL中并没有一个公式可以迅速求出，此时，可用VBA写一个自定义的函数：
'获取 指定单元格内部换行的指定行的文本'
'index：指定行（从 0 开始）
（图片来自网络侵删）
Public Function GetRowText(rng As Range, index As Long) As Variant
Dim st As String
Dim m() As String
st = rng.Value
m = Split(st, Chr(10))
If index < LBound(m) Or index > UBound(m) Then
GetRowText = ""
Exit Function
End If
GetRowText = m(index)
End Function
函数功能是 获取单元格内换行内容中第几行的文本，index：是指定行号（从 0 开始）。
效果如下：
