Note: The other languages of the website are Google-translated. Back to English

 如何从文本字符串中提取大写字母或以大写字母开头的单词?

如果现在有文本字符串列表,则只想从单元格中提取所有大写字母或以大写字母开头的单词。 如何在Excel中解决呢?

使用用户定义的功能从文本字符串中提取大写字母

使用用户定义的功能从文本字符串中提取以大写字母开头的单词


使用用户定义的功能从文本字符串中提取大写字母

以下VBA代码可以帮助您仅从单元格中提取大写字母,请按照以下步骤操作:

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2. 单击 插页 > 模块,然后将以下代码粘贴到 模块 窗口。

VBA代码:仅从文本字符串中提取大写字母:

函数ExtractCap(Txt As String)As String'Updateby Extendoffice
    Application.Volatile Dim xRegEx作为对象集xRegEx = CreateObject(“ VBSCRIPT.REGEXP”)xRegEx.Pattern =“ [^ AZ]” xRegEx.Global = True ExtractCap = xRegEx.Replace(Txt,“”)Set xRegEx = Nothing End Function

3。 然后保存代码并关闭此代码,返回工作表,输入以下公式: = EXTRACTCAP(A2) 到要输出结果的空白单元格中,然后将填充手柄向下拖动到要应用此公式的单元格中,并且所有大写字母均已被提取,请参见屏幕截图:


使用用户定义的功能从文本字符串中提取以大写字母开头的单词

如果您需要从文本字符串中提取以大写字母开头的单词,则以下VBA代码可能会对您有所帮助。

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。 点击 插页 > 模块,然后将以下代码复制并粘贴到 模块 窗口。

VBA代码:提取以大写字母开头的单词:

函数StrExtract(Str作为字符串)As字符串'Updateby Extendoffice
    Application.Volatile Dim xStrList as变体Dim xRet as字符串Dim I只要Len(Str)= 0,则退出函数xStrList = Split(Str,“”)如果UBound(xStrList)> = 0,则对于I = 0到UBound( xStrList)如果xStrList(I)= StrConv(xStrList(I),vbProperCase),则xRet = xRet&xStrList(I)&“”如果下一个StrExtract = Left(xRet,Len(xRet)-1)结束,如果结束函数

3。 然后保存代码并关闭代码窗口,输入以下公式: = StrExtract(A2) 放入数据旁边的空白单元格中,然后将填充手柄向下拖动到要获取结果的单元格中,并提取所有以大写字母开头的单词,请参见屏幕截图:


最佳办公效率工具

Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能 30 天免费试用。 60 天退款保证。
kte选项卡201905

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
按评论排序
注释 (8)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化


感谢这个公式,但是我的 =EXTRACTCAP(A2) 不断返回错误。

你能帮我吗?
该评论由网站上的主持人最小化
嗨,索尼娅,
上述用户定义函数在我的 Excel 工作簿中运行良好,您使用哪个 Excel 版本?
或者您是否将上述代码复制并粘贴到您的 VBA 模块中?
该评论由网站上的主持人最小化
У вас так и написано “вставьте следующий код в модуль”。
У меня тоже ошибка
该评论由网站上的主持人最小化
у вас страница была открыта на русском языке? Удалите /ru из ссылки: https://www.extendoffice.com/documents/excel/4554-excel-extract-capital-letters.html#a1
该评论由网站上的主持人最小化
嗨,

如何仅将此功能分配给 1 个特定工作表?
该评论由网站上的主持人最小化
Nvm - 不再需要
该评论由网站上的主持人最小化
jestem Excelowym laikiem, ale próbowałam postępować zgodnie z wytycznymi... Przy próbie zapisu wywala mi błąd, coś o makrach...帮助!
该评论由网站上的主持人最小化
你好,哈尼亚

你能把你的问题说得更详细一点吗? 如果您不介意,请将您的问题作为屏幕截图插入此处。
谢谢!
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护