How to Extract Capital Letters or Words Starting with Capital Letter from Text Strings in Excel

Microsoft Excel is a strong tool in the realm of data analysis and manipulation, with a vast range of operations and capabilities. Extraction of specific information from text strings is a common activity. For example, suppose you have a dataset with text entries and wish to extract all capital letters or terms that begin with a capital letter.

By the end of this tutorial, you will have a firm grasp on the procedures used to extract capital letters and words beginning with capital letters from text strings in Excel. This expertise will enable you to manage comparable duties in your data analysis projects, which will save you time and effort.

Extract Capital Letters or Words Starting with Capital Letter from Text Strings

Here we will first create a user-defined formula using VBA and then use the formula to complete the task. So let us see a simple process to know how you can extract capital letters or words starting with a capital letter from text strings in Excel.

Step 1

Consider an Excel sheet where the data in the sheet is similar to the below image.

First, right-click on the sheet name and select View code to open the VBA application.

Step 2

Then click on Insert and select Module, then copy the below code into the text box.

Example

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

Step 3

Then in Excel, click on an empty cell and enter the formula as =EXTRACTCAP(A2), and click enter to extract the capital letters for the first value. Then drag down using the autofill to complete the task.

Empty cell > Formula > Enter > Drag.

Note

If you want to extract the words, use the following code and use the formula "=StrExtract(A2)".

Example

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

Conclusion

In this tutorial, we have used a simple example to demonstrate how you can extract capital letters or words starting with a capital letter from text strings in Excel to highlight a particular set of data.