跳到主要内容

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

例如，您可能需要为每个单元格提取一个以特定字符“ =”开头的单词，如下图所示，您如何在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!
Mahdy
Mahdy
This comment was minimized by the moderator on the site
This formula works for a single match only. What if there are multiple matches?
Reply
0
0
skyyang
skyyang     Mahdy
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
Reply
Report
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations