Как извлечь инициалы из имен в Excel?

При обработке записей клиентов или выполнении почтового слияния, получение инициалов из полного имени может быть полезным, например, HG для Hal Greer. Поэтому я представляю несколько приемов для быстрого извлечения инициалов из списка имен в Excel.

Извлечение инициалов с помощью формулы в Excel

Извлечение инициалов с использованием определенной функции в Excel

Извлечение инициалов с помощью формулы в Excel

Первый метод заключается в использовании формулы для извлечения инициалов из имен в Microsoft Excel.

Выберите пустую ячейку, например, Ячейку C2, введите эту формулу =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 — это первая ячейка вашего списка имен), нажмите кнопку Enter, затем перетащите маркер заполнения, чтобы заполнить диапазон. Теперь вы видите, что все инициалы каждого имени извлечены из списка имен.

Извлечение инициалов с использованием определенной функции в Excel

Помимо формулы, вы можете использовать определенную функцию для легкого извлечения инициалов из указанных имен в Microsoft Excel.

1. Выберите ячейку столбца, который хотите выбрать, и нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В появившемся окне нажмите Вставить > Модуль, затем вставьте следующий код VBA в модуль.

VBA: Извлечение инициалов из имен

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. Сохраните код и закройте окно, выберите пустую ячейку и введите эту формулу = FirstCharacters(A2), затем нажмите кнопку Enter и перетащите маркер заполнения, чтобы заполнить нужный диапазон. После этого вы увидите, что инициалы каждого имени извлечены.

Совет: Вы можете изменить разделители "." инициалов по мере необходимости в приведенном выше коде VBA.

Связанные статьи:

• Извлечение уникальных значений в Excel
• Извлечение жирного текста в Excel