如何在Excel中提取大寫字母或以大寫字母開頭的單詞

Microsoft Excel 是資料分析和處理領域中一個強大的工具，具有廣泛的操作和功能。從文字字串中提取特定資訊是一項常見活動。例如，假設您擁有一個包含文字條目的資料集，並希望提取所有大寫字母或以大寫字母開頭的術語。

在本教程結束時，您將掌握在Excel中從文字字串中提取大寫字母和以大寫字母開頭的單詞的過程。這項專業知識將使您能夠在資料分析專案中處理類似的任務，從而節省您的時間和精力。

從文字字串中提取大寫字母或以大寫字母開頭的單詞

這裡，我們將首先使用VBA建立一個使用者自定義公式，然後使用該公式來完成任務。讓我們來看一個簡單的過程，瞭解如何在Excel中從文字字串中提取大寫字母或以大寫字母開頭的單詞。

步驟1

考慮一個Excel表格，其中表格中的資料類似於下圖。

首先，右鍵單擊工作表名稱，然後選擇“檢視程式碼”以開啟VBA應用程式。

步驟2

然後單擊“插入”，選擇“模組”，然後將下面的程式碼複製到文字框中。

示例

Function ExtractCap(Txt As String) As String
   Application.Volatile
   Dim xRegEx As Object
   Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
   xRegEx.Pattern = "[^A-Z]"
   xRegEx.Global = True
   ExtractCap = xRegEx.Replace(Txt, "")
   Set xRegEx = Nothing
End Function

步驟3

然後在Excel中，單擊一個空單元格，輸入公式`=EXTRACTCAP(A2)`，然後單擊回車鍵以提取第一個值的大寫字母。然後使用自動填充向下拖動以完成任務。

空單元格 > 公式 > 回車 > 拖動。

注意

如果您想提取單詞，請使用以下程式碼並使用公式“=StrExtract(A2)” 。

示例

Function StrExtract(Str As String) As String
   Application.Volatile
   Dim xStrList As Variant
   Dim xRet As String
   Dim I As Long
   If Len(Str) = 0 Then Exit Function
   xStrList = Split(Str, " ")
   If UBound(xStrList) >= 0 Then
      For I = 0 To UBound(xStrList)
         If xStrList(I) = StrConv(xStrList(I), vbProperCase) Then
            xRet = xRet & xStrList(I) & " "
         End If
     Next
     StrExtract = Left(xRet, Len(xRet) - 1)
   End If
End Function

結論

在本教程中，我們使用了一個簡單的示例來演示如何從Excel中的文字字串中提取大寫字母或以大寫字母開頭的單詞，以突出顯示特定資料集。

更新於：2023年7月12日

3K+ 次檢視

開啟你的職業生涯

透過完成課程獲得認證

開始學習
廣告
© . All rights reserved.