Як витягти ініціали з імен у 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 Function3. Збережіть код і закрийте вікно, виберіть порожню комірку і введіть цю формулу = FirstCharacters (A2), Потім натисніть Що натомість? Створіть віртуальну версію себе у і перетягніть маркер заповнення, щоб заповнити потрібний діапазон. Після цього ви зможете побачити, як витягуються ініціали кожного імені.
Чайові: Ви можете змінити роздільники "." ініціалів, як вам потрібно у наведеному вище VBA.
Відносні статті:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
