Как извлечь инициалы из имён в 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 Function3. Сохраните код и закройте это окно, выберите пустую ячейку и введите формулу = FirstCharacters(A2), затем нажмите клавишу Enter и перетащите маркер заполнения на нужный диапазон. После этого вы увидите извлечённые инициалы каждого имени.
Совет: вы можете изменить разделители «.» между инициалами по своему усмотрению в приведённом выше коде VBA.
См. также:
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек