跳到主要内容

在Excel中提取以特定字符开头的单词

作者:晓阳 最后修改时间:2020-10-20

例如,您可能需要为每个单元格提取一个以特定字符“ =”开头的单词,如下图所示,您如何在Excel中快速轻松地解决此任务?


在Excel中提取以特定字符开头的单词

要从每个单元格中提取以特定字符或文本开头的单词,您可以创建一个包含TRIM,LEFT,SUBSTITUTE,MID,FIND,LEN和REPT函数的组合的公式,通用语法为:

=TRIM(LEFT(SUBSTITUTE(MID(text, FIND(char, text), LEN(text))," ",REPT(" ",LEN(text))),LEN(text)))
  • text:要从中提取单词的文本字符串或单元格值。
  • char:要提取单词的字符或文本开始。

1。 请将以下公式复制或输入到空白单元格中:

=TRIM(LEFT(SUBSTITUTE(MID(A2, FIND("=",A2), LEN(A2))," ",REPT(" ",LEN(A2))),LEN(A2)))

2。 然后,向下拖动填充手柄以将公式应用于您要使用的单元格,并且所有以特定“ =”字符开头的单词都已被一次提取出来,请参见屏幕截图:


公式说明:

1. MID(A2,FIND(“ =”,A2),LEN(A2):

  • LEN(A2):此LEN函数返回单元格A2中的字符数。 该部分在MID函数中被识别为num_char参数。
  • FIND(“ =”,A2):此FIND函数用于获取单元格A2中第一个特定字符“ =”的位置。 该部分在MID函数中被识别为start_num参数。
  • MID(A2,FIND(“ =”,A2),LEN(A2):此MID函数用于从单元格A2中的FIND函数返回的位置和LEN函数返回的特定长度的位置提取子字符串。

2. SUBSTITUTE(MID(A2,FIND(“ =”,A2),LEN(A2)),“”,REPT(“”,LEN(A2))):

  • REPT(“”,LEN(A2):REPT函数将LEN函数返回的单元格A2的空字符串重复特定的次数。
  • 替代():此SUBSTITUTE函数会将所有空字符串替换为REPT函数从MID函数返回的文本字符串返回的另一个新的文本多空格。
  • MID(A2,FIND(“ =”,A2),LEN(A2):此MID函数用于从单元格A2中的FIND函数返回的位置和LEN函数返回的特定长度的位置提取子字符串。

3. LEFT(SUBSTITUTE(MID(A2,FIND(“ =”,A2),LEN(A2)),“”,REPT(“”,LEN(A2))),LEN(A2)):此LEFT函数用于从SUBSTITUTE函数返回的文本字符串的左侧提取LEN函数返回的特定数目的字符。

4. TRIM():TRIM函数从LEFT函数返回的文本字符串中删除所有多余的空格。


:

1.在上面的公式中,您可以将“ =”字符更改为所需的任何其他字符或文本。

2.如果有多个单词以特定字符开头,则仅提取第一个单词。


使用的相对功能:

  • REPT:
  • REPT功能用于将字符重复指定的次数。
  • SUBSTITUTE:
  • SUBSTITUTE函数将文本字符串中的文本或字符替换为另一个文本或字符。
  • TRIM:
  • TRIM函数从文本字符串中删除所有多余的空格,并且仅在单词之间保留单个空格。
  • MID:
  • MID函数从文本字符串的中间返回特定字符。
  • LEN:
  • LEN函数返回文本字符串中的字符数。
  • REPT:
  • REPT功能用于将字符重复指定的次数。
  • FIND:
  • FIND函数用于在另一个字符串中查找一个字符串,并返回该字符串在另一个字符串中的起始位置。

更多文章:

  • 在Excel中提取包含特定文本的单词
  • 有时,您可能希望从包含特定字符或文本的单元格中提取单词,例如下面的屏幕截图,以提取所有包含“ =”字符的单词。 您如何在Excel中解决此任务?
  • 从文本字符串中提取括号之间的文本
  • 现在,如果文本字符串中有一部分用括号括起来,则需要提取括号之间的所有文本字符串,如下面的屏幕截图所示。 您如何在Excel中快速轻松地解决此任务?
  • 从一个单元格中提取多行
  • 现在,如果您有由换行符分隔的文本字符串列表(在输入文本时按Alt + Enter键会发生这种情况),现在,您要将这些文本行提取到多个单元格中,如下面的屏幕截图所示。 您如何用Excel中的公式解决它?

最佳办公效率工具

Kutools for Excel-帮助您从人群中脱颖而出

🤖 Kutools 人工智能助手:基于以下内容彻底改变数据分析: 智能执行   |  生成代码  |  创建自定义公式  |  分析数据并生成图表  |  调用 Kutools 函数...
热门特色: 查找、突出显示或识别重复项  |  删除空白行  |  合并列或单元格而不丢失数据  |  不使用公式进行四舍五入 ...
超级VLookup: 多重标准  |  多重价值  |  跨多页  |  模糊查询...
副词。 下拉列表: 简易下拉列表  |  依赖下拉列表  |  多选下拉列表...
列管理器: 添加特定数量的列  |  移动列  |  切换隐藏列的可见性状态  将列与 选择相同和不同的单元格 ...
特色功能: 网格焦点  |  设计图  |  大方程式酒吧  |  工作簿和工作表管理器 | 资源库 (自动文本)  |  日期选择器  |  合并工作表  |  加密/解密单元格  |  按列表发送电子邮件  |  超级筛选  |  特殊过滤器 (过滤粗体/斜体/删除线...)...
前 15 个工具集12 文本 工具 (添加文本, 删除字符 ...)  |  50+ 图表 类型 (甘特图 ...)  |  40+ 实用 公式 (根据生日计算年龄 ...)  |  19 插入 工具 (插入二维码, 从路径插入图片 ...)  |  12 转化 工具 (小写金额转大写, 货币兑换 ...)  |  7 合并与拆分 工具 (高级组合行, 拆分 Excel 单元格 ...)  |  ... 和更多

Kutools for Excel 拥有超过 300 个功能, 确保只需点击一下即可获得您所需要的...

描述


Office 选项卡 - 在 Microsoft Office(包括 Excel)中启用选项卡式阅读和编辑

  • 一秒钟即可在数十个打开的文档之间切换!
  • 每天为您减少数百次鼠标单击,告别鼠标手。
  • 查看和编辑多个文档时,可将您的工作效率提高50%。
  • 为 Office(包括 Excel)带来高效的选项卡,就像 Chrome、Edge 和 Firefox 一样。
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This formula works for a single match only. What if there are multiple matches?
This comment was minimized by the moderator on the site
Hello, Mdhdy,
If you need to extract all matches from a cell, the following User Defined Function may help you:
Note: In the code, please change the "=" character from this sctipt .Pattern = "=\S+" to any other character you need.
Function ExtractEx(Target As Range) As String
    ExtractEx = ""
    If Target.Count > 1 Then Exit Function
    On Error Resume Next
    
    Dim xRetList As Object
    Dim xRegEx As Object
    Dim I As Long
    Dim xRet As String
    Application.Volatile
    Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
    With xRegEx
        .Pattern = "=\S+"
        .Global = True
        .MultiLine = True
        .IgnoreCase = True
    End With
    Set xRetList = xRegEx.Execute(Target.Formula)

    If xRetList.Count > 0 Then
        For I = 0 To xRetList.Count - 1
            xRet = xRet & xRetList.Item(I) & " "
        Next
        ExtractEx = xRet
    Else
        ExtractEx = ""
    End If

End Function

After pasting the code, please apply this formula:=ExtractEx(A2), see the below screenshot:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-extract-text-1.png
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations