Как извлечь инициалы из имен в 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек