如何快速找到Excel文本字符串中第一个大写字母的位置？

假设有一个包含数字，大写和小写字母的文本字符串列表，如何快速从字符串中找到第一个大写字母的位置？在本文中，我介绍了一些技巧，这些技巧可以快速指定第一个大写字母的位置，而无需在Excel中手动逐个计数。

使用Kutools for Excel将所有字母更改为大写或适当的大小写

用公式查找字符串中第一个大写字母的位置

这是一个可以帮助您从字符串中快速找到第一个大写字母的位置的公式，请执行以下操作：

选择要查找第一个大写字母的字符串旁边的空白单元格，例如B1，输入此公式 =MIN(IF(ISERROR(FIND(CHAR(ROW(INDIRECT("65:90"))),A1)),"",FIND(CHAR(ROW(INDIRECT("65:90"))),A1)))

新闻 Shift + Ctrl + 输入 键以获取正确的结果，然后将自动填充手柄拖到应用此公式所需的单元格上。看截图：
doc查找第一个大写字母1的位置

使用定义的函数查找字符串中第一个大写字母的位置

除公式外，还可以使用“定义的函数”找出字符串中第一个大写字母的位置。

1.启用包含您要查找的大写字符串的工作表，然后按 Alt + F11键 打开钥匙 Microsoft Visual Basic应用程序 窗口。

2.右键单击要在其中使用代码的工作表 项目探索 窗格，然后单击插页 > 模块，然后将以下代码粘贴到空白的模块脚本中。看截图：

代码：从字符串中查找第一个大写字母的位置。

Function GetFirstUpper(Rg As Range) As Integer
'UpdatebyExtendoffice20160726
    Dim xStr As String
    Dim I As Integer
    Application.Volatile
    GetFirstUpper = -1
    On Error Resume Next
    xStr = Trim(Rg.Value)
    For I = 1 To Len(xStr)
        If (Asc(Mid(xStr, I, 1)) < 91) And (Asc(Mid(xStr, I, 1)) > 64) Then
            GetFirstUpper = I
            Exit Function
        End If
    Next
End Function

doc查找第一个大写字母5的位置

3.保存代码并返回到您使用的工作表，然后在要查找大写字母的字符串旁边选择一个空白单元格，输入此公式 = GetFirstUpper（F1），按输入键，然后将自动填充手柄拖动到需要此公式的单元格上方。看截图：
doc查找第一个大写字母6的位置

小技巧：如果字符串中没有大写字母，则结果显示为-1。

使用Kutools for Excel将所有字母更改为大写或大写

在一般的Excel工作中，通常可能需要将字母字符串更改为大写字母，大写字母，小写字母，句子大小写或ToGgLe CaSe，如下图所示。
doc查找第一个大写字母2的位置

Kutools 为 Excel，可以应用它 变更案 实用程序，可根据需要快速更改字母大小写。

Kutools for Excel, 与超过 300 方便的功能，使您的工作更加轻松。

免费下载
免费全功能 30 天

后 免费安装 Kutools for Excel，请执行以下操作：

1.选择要更改大小写的字符串，然后单击 库工具 > 文本 > 变更案。看截图：
doc查找第一个大写字母3的位置

2.然后在弹出 变更案 对话框中，选中所需的选项 变更类型 部分，您可以在“预览”窗格中预览更改的结果。看截图：
doc查找第一个大写字母4的位置

3。然后点击 Ok or 使用改变大小写。

最佳办公效率工具

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

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