如何在Excel中从指定列提取特定关键词至新列？

以下是几种适配不同Excel版本的实用方案，直接套用即可解决需求：

方案一：Excel 365/2021 极简公式法 #

假设长文本所在列为A列，在新列（比如B1单元格）输入以下公式，下拉填充即可：
=IFERROR(TEXTBEFORE(TEXTAFTER(A1,"assign to ")," "),"")

• 逻辑说明：先提取assign to 之后的文本片段，再截取该片段中第一个空格前的内容（即目标姓名）；IFERROR用于处理无匹配短语的行，返回空值避免报错。
• 若姓名是文本最后一段（无后续空格），可简化为：=IFERROR(TEXTAFTER(A1,"assign to "),"")

方案二：兼容旧版Excel的组合公式 #

针对没有TEXTAFTER/TEXTBEFORE函数的旧版Excel，使用经典函数组合实现：
=IFERROR(MID(A1,FIND("assign to ",A1)+LEN("assign to "),FIND(" ",A1,FIND("assign to ",A1)+LEN("assign to "))-(FIND("assign to ",A1)+LEN("assign to "))),"")

• 逻辑说明：通过FIND定位assign to 的位置，计算出姓名的起始点；再找到姓名后的第一个空格，用MID提取中间的姓名内容；同样用IFERROR处理无匹配的情况。

方案三：VBA宏批量处理（适合大数据量） #

如果数据行数较多，或需要重复执行提取操作，用VBA宏效率更高：

1. 按Alt+F11打开VBA编辑器；
2. 右键当前工作表 → 插入 → 模块；
3. 粘贴以下代码，按F5运行：

Sub ExtractAssignee()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim noteText As String
    Dim assignPos As Integer
    Dim nameStart As Integer
    Dim nameEnd As Integer
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row 'Notes列设为A列，可按需修改
    
    For i = 1 To lastRow
        noteText = ws.Cells(i, "A").Value
        assignPos = InStr(noteText, "assign to ")
        If assignPos > 0 Then
            nameStart = assignPos + Len("assign to ")
            nameEnd = InStr(nameStart, noteText, " ")
            '如果姓名是文本最后部分，直接取到文本结尾
            If nameEnd = 0 Then nameEnd = Len(noteText) + 1
            ws.Cells(i, "B").Value = Mid(noteText, nameStart, nameEnd - nameStart)
        Else
            ws.Cells(i, "B").Value = ""
        End If
    Next i
End Sub

• 注意：代码默认Notes在A列，结果输出到B列，可根据实际列号修改代码中的"A"和"B"。

额外提示 #

• 若姓名包含空格（如assign to Bob Smith），需调整匹配规则：比如将终止符从空格改为标点、换行或特定关键词，根据你的文本实际格式修改公式或VBA中的判断条件即可；
• 你之前用条件格式高亮了目标词汇，说明匹配逻辑已验证可行，上述方案可直接复用该匹配规则。

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