如何提取Excel单元格内按ALT+Enter换行的最后一行内容

方法一：使用Excel公式 #

适用于Excel 365/2021及以上版本 #

直接在目标单元格输入以下公式，替换A1为你要处理的单元格地址：

=TEXTAFTER(A1,CHAR(10),-1)

CHAR(10)对应ALT+Enter生成的换行符，-1参数指定提取最后一次分隔后的内容。

兼容旧版本Excel #

如果你的Excel不支持TEXTAFTER，用这个组合公式：

=RIGHT(A1,LEN(A1)-FIND("~",SUBSTITUTE(A1,CHAR(10),"~",LEN(A1)-LEN(SUBSTITUTE(A1,CHAR(10),"")))))

原理是先把单元格里最后一个换行符替换成特殊符号~，定位到这个符号的位置后，提取它后面的所有内容。

方法二：VBA批量处理 #

如果需要批量提取多个单元格的最后一行，可以用自定义函数：

1. 按Alt+F11打开VBA编辑器
2. 右键点击当前工作簿，选择「插入」→「模块」
3. 粘贴以下代码：

Function GetLastLine(cell As Range) As String
    Dim lines() As String
    lines = Split(cell.Value, Chr(10))
    GetLastLine = lines(UBound(lines))
End Function

4. 返回Excel，在目标单元格输入=GetLastLine(A1)（替换A1为目标单元格）即可。

内容的提问来源于stack exchange，提问作者Bulent