## How to extract initials from names in Excel?

When you are processing customer records or doing mail merge, getting initials from a given name may be useful for you, for instance, HG for Hal Greer. So here I introduce some tricks for you to quickly extract initials from the name list in Excel.

**Extract initials with formula in Excel**

**Extract initials use Defined Function in Excel**

** Extract initials with formula in Excel**

First method is using formula to extract initials from names in Microsoft Excel.

Select a blank cell, for instance, Cell C2, type this formula *=LEFT(A2)&IF(ISNUMBER(FIND(" ",A2)),MID(A2,FIND(" ",A2)+1,1),"")&IF(ISNUMBER(FIND(" ",A2,FIND(" ",A2)+1)),MID(A2,FIND(" ",A2,FIND(" ",A2)+1)+1,1),"")*(A2 is the first cell of your name list), press **Enter** button, then drag the fill handle to fill the range. Now you see all initials of each name are extracted from the name list.

** Extract initials use Defined Function in Excel**

Besides formula, you can use the Defined Function to extract initials from specified names easily in Microsoft Excel.

1. Select a cell of the column you want to select and press **Alt + F11** to open the **Microsoft Visual Basic for Applications** window.

2. In the pop-up window, click **Insert** > **Module**, then paste the following VBA code into the module.

**VBA: Extract initials from names**

```
Function FirstCharacters(pWorkRng As Range) As String
'Updateby20140514
Dim arr As Variant
Dim xValue As String
Dim OutValue As String
xValue = pWorkRng.Value
arr = VBA.Split(Trim(xValue))
For i = 0 To UBound(arr)
OutValue = OutValue & VBA.Left(arr(i), 1) & "."
Next
FirstCharacters = OutValue
End Function
```

3. Save the code and close the window, select a blank cell and type this formula *= FirstCharacters(A2)*, then press** Enter** button, and drag the fill handle to fill the range you want. After that, you can see the initials of each name are extracted.

**Tip**: You can change the separators "." of the initials as you need in the above VBA.

**Relative Articles:**

### Best Office Productivity Tools

Supports Office/Excel 2007-2021 and 365 | Available in 44 Languages | Easy to Uninstall Completely

**Kutools for Excel Boasts Over 300 Features, Ensuring That What You Need Is Just A Click Away...**

**Supercharge Your Excel Skills: Experience Efficiency Like Never Before with Kutools for Excel** (Full-Featured 30-Day Free Trial)

#### Office Tab Brings Tabbed interface to Office, and Make Your Work Much Easier

- Enable tabbed editing and reading in Word, Excel, PowerPoint, Publisher, Access, Visio and Project.
- Open and create multiple documents in new tabs of the same window, rather than in new windows.
- Increases your productivity by 50%, and reduces hundreds of mouse clicks for you every day! (Full-Featured 30-Day Free Trial)