Як витягти ініціали з імен у Excel?

Коли ви обробляєте записи клієнтів або зливаєте пошту, отримання ініціалів від певного імені може бути для вас корисним, наприклад, HG для Hal Greer. Отже, тут я представляю кілька прийомів для швидкого вилучення ініціалів зі списку імен в Excel.

Витягнути ініціали за формулою в Excel

Витяг ініціалів використовує визначену функцію в Excel

Витягнути ініціали за формулою в Excel

Перший метод - використання формули для вилучення ініціалів з імен у Microsoft Excel.

Виберіть порожню комірку, наприклад, комірку С2, введіть цю формулу =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 - перша клітинка у вашому списку імен), натисніть Що натомість? Створіть віртуальну версію себе у , а потім перетягніть маркер заповнення, щоб заповнити діапазон. Тепер ви бачите, що всі ініціали кожного імені витягуються зі списку імен.

Витяг ініціалів використовує визначену функцію в Excel

Окрім формули, ви можете використовувати визначену функцію, щоб легко витягувати ініціали із зазначених імен у Microsoft Excel.

1. Виділіть комірку стовпця, який потрібно виділити, та натисніть Alt + F11 відкрити Microsoft Visual Basic для додатків вікна.

2. У спливаючому вікні натисніть Insert > Модулі, потім вставте наступний код 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), Потім натисніть Що натомість? Створіть віртуальну версію себе у і перетягніть маркер заповнення, щоб заповнити потрібний діапазон. Після цього ви зможете побачити, як витягуються ініціали кожного імені.

Чайові: Ви можете змінити роздільники "." ініціалів, як вам потрібно у наведеному вище VBA.

Відносні статті:

• Витяг унікальних значень у Excel
• Витягніть жирний текст у Excel