Как извлечь инициалы из имен в Excel?
Когда вы обрабатываете записи клиентов или выполняете рассылку писем, получение инициалов от имени может быть полезно для вас, например, HG для Хэла Грира. Итак, я предлагаю вам несколько уловок для быстрого извлечения инициалов из списка имен в 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 для приложений окно.
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. Сохраните код и закройте окно, выберите пустую ячейку и введите эту формулу. = Первые символы (A2), Затем нажмите Enter кнопку и перетащите маркер заполнения, чтобы заполнить нужный диапазон. После этого вы можете увидеть, что инициалы каждого имени извлекаются.
Функции: Вы можете изменить разделители "". инициалов, как вам нужно в приведенном выше VBA.
Относительные статьи:
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!