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