如何在Excel中查找指定文本并删除其前方内容？求VBA及公式方案

一、公式实现方案 #

假设目标文本在A1单元格，要查找的关键词为ACC，提供以下几种场景的公式：

1. 基础场景（关键词仅出现一次） #

通过FIND定位关键词位置，再用RIGHT截取关键词及后续内容：

=RIGHT(A1,LEN(A1)-FIND("ACC",A1)+1)

逻辑：FIND("ACC",A1)获取关键词起始位置，LEN(A1)-FIND("ACC",A1)+1计算从关键词到文本末尾的字符长度，最终用RIGHT截取对应内容。

2. 兼容关键词不存在的情况 #

如果担心单元格无目标关键词，用IFERROR返回原文本避免报错：

=IFERROR(RIGHT(A1,LEN(A1)-FIND("ACC",A1)+1),A1)

3. 关键词多次出现时保留最后一次的内容 #

若单元格内有多个ACC，需保留最后一次出现的关键词及后续内容：

=RIGHT(A1,LEN(A1)-SEARCHB("?",SUBSTITUTE(A1,"ACC","?",LEN(A1)-LEN(SUBSTITUTE(A1,"ACC",""))))+1)

二、VBA解决方案 #

你提供的原代码是Word专用VBA，不适用于Excel场景，以下是适配Excel的正确代码：

1. 处理单个指定单元格 #

Sub DeleteBeforeKeyword()
    Dim targetCell As Range
    Dim keyword As String
    Dim pos As Integer
    
    ' 自定义目标单元格和关键词
    Set targetCell = Range("A1")
    keyword = "ACC"
    
    pos = InStr(targetCell.Value, keyword)
    If pos > 0 Then
        ' 保留关键词及后续内容
        targetCell.Value = Mid(targetCell.Value, pos)
    End If
End Sub

2. 处理批量区域（如A列所有非空单元格） #

Sub DeleteBeforeKeywordInRange()
    Dim rng As Range
    Dim cell As Range
    Dim keyword As String
    Dim pos As Integer
    
    keyword = "ACC"
    ' 定义要处理的区域：A列有内容的单元格
    Set rng = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    
    For Each cell In rng
        pos = InStr(cell.Value, keyword)
        If pos > 0 Then
            cell.Value = Mid(cell.Value, pos)
        End If
    Next cell
End Sub

核心逻辑：

• 用InStr函数定位关键词在文本中的起始位置
• Mid(cell.Value, pos)从关键词位置开始截取文本，自动删除前方内容
• 若未找到关键词，单元格内容保持不变

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