如何從文本字符串中提取大寫字母或以大寫字母開頭的單詞？

如果現在有文本字符串列表，則只想從單元格中提取所有大寫字母或以大寫字母開頭的單詞。 如何在Excel中解決呢？

使用用戶定義的功能從文本字符串中提取大寫字母

使用用戶定義的功能從文本字符串中提取以大寫字母開頭的單詞

使用用戶定義的功能從文本字符串中提取大寫字母驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！每天節省50％的時間，并減少數千次鼠標單擊！

以下VBA代碼可以幫助您僅從單元格中提取大寫字母，請按照以下步驟操作：

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。

2. 點擊 插頁 > 模塊，然后將以下代碼粘貼到 模塊 窗口。

VBA代碼：僅從文本字符串中提取大寫字母：

函數ExtractCap（Txt As String）As StringUpdateby ExtendofficeApplication.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 ExtendofficeApplication.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!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel