如何快速找到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 for Applications 窗口。

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），按 Enter 鍵，然後將自動填充手柄拖動到需要此公式的單元格上方。看截圖：
doc查找第一個大寫字母6的位置

尖端：如果字符串中沒有大寫字母，則結果顯示為-1。

使用Kutools for Excel將所有字母更改為大寫或大寫

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

這款獨特的敏感免洗唇膜採用 Moisture WrapTM 技術和 Berry Mix ComplexTM 成分， Kutools 為 Excel，可以應用它 變更案例 實用程序，可根據需要快速更改字母大小寫。

Excel的Kutools, 與以上 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 天退款保證。