Jak wyodrębnić inicjały z nazw w programie Excel?
Podczas przetwarzania rekordów klientów lub korespondencji seryjnej pobieranie inicjałów z danego nazwiska może być dla Ciebie przydatne, na przykład HG dla Hala Greera. Dlatego przedstawiam kilka sztuczek, aby szybko wyodrębnić inicjały z listy nazwisk w programie Excel.
Wyodrębnij inicjały za pomocą formuły w programie Excel
Wyodrębnij inicjały za pomocą funkcji zdefiniowanej w programie Excel
Wyodrębnij inicjały za pomocą formuły w programie Excel
Pierwsza metoda polega na użyciu formuły do wyodrębnienia inicjałów z nazw w programie Microsoft Excel.
Wybierz pustą komórkę, na przykład Komórka C2, wpisz tę formułę =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 to pierwsza komórka na liście nazwisk), naciśnij Wchodzę , a następnie przeciągnij uchwyt wypełniania, aby wypełnić zakres. Teraz widzisz, że wszystkie inicjały każdej nazwy są wyodrębniane z listy nazwisk.
Wyodrębnij inicjały za pomocą funkcji zdefiniowanej w programie Excel
Oprócz formuły możesz użyć funkcji Zdefiniowana, aby łatwo wyodrębnić inicjały z określonych nazw w programie Microsoft Excel.
1. Wybierz komórkę kolumny, którą chcesz zaznaczyć i naciśnij Alt + F11 otworzyć Microsoft Visual Basic for Applications okno.
2. W wyskakującym okienku kliknij wstawka > Moduł, a następnie wklej następujący kod VBA do modułu.
VBA: Wyodrębnij inicjały z nazw
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. Zapisz kod i zamknij okno, wybierz pustą komórkę i wpisz tę formułę = Pierwsze znaki (A2), A następnie naciśnij przycisk Wchodzę i przeciągnij uchwyt wypełniania, aby wypełnić żądany zakres. Następnie możesz zobaczyć, jak inicjały każdej nazwy są wyodrębniane.
Wskazówka: Możesz zmienić separatory "." inicjałów, jak potrzebujesz w powyższym VBA.
Względne artykuły:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
