Cum se extrag inițiale din nume în Excel?
Când prelucrați înregistrări ale clienților sau faceți îmbinarea corespondenței, obținerea inițialelor de la un nume dat vă poate fi utilă, de exemplu, HG pentru Hal Greer. Așadar, aici vă prezint câteva trucuri pentru a extrage rapid inițialele din lista de nume din Excel.
Extrageți inițiale cu formulă în Excel
Extragerea inițialelor utilizează Funcția definită în Excel
Extrageți inițiale cu formulă în Excel
Prima metodă este utilizarea formulei pentru a extrage inițialele din nume în Microsoft Excel.
Selectați o celulă necompletată, de exemplu, Celula C2, tastați această formulă =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 este prima celulă din lista de nume), apăsați Intrați , apoi glisați mânerul de umplere pentru a umple intervalul. Acum vedeți că toate inițialele fiecărui nume sunt extrase din lista de nume.
Extragerea inițialelor utilizează Funcția definită în Excel
Pe lângă formulă, puteți utiliza funcția definită pentru a extrage inițialele din numele specificate cu ușurință în Microsoft Excel.
1. Selectați o celulă a coloanei pe care doriți să o selectați și apăsați Alt + F11 pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În fereastra pop-up, faceți clic pe Insera > Module, apoi lipiți următorul cod VBA în modul.
VBA: extrageți inițialele din nume
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. Salvați codul și închideți fereastra, selectați o celulă goală și tastați această formulă = FirstCharacters (A2), Apoi apăsați Intrați și trageți mânerul de umplere pentru a umple intervalul dorit. După aceea, puteți vedea inițialele fiecărui nume sunt extrase.
varful: Puteți schimba separatoarele "." a inițialelor după cum aveți nevoie în VBA de mai sus.
Articole relative:
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
