Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie extrahiert man den ersten Buchstaben jedes Wortes aus der Zelle?

Angenommen, Sie haben in Ihrem Arbeitsblatt eine Liste von Ländernamen, und jetzt müssen Sie den ersten Buchstaben jedes Wortes in der Zelle extrahieren, wie in den folgenden Screenshots gezeigt. Normalerweise gibt es keine direkte Funktion zum Abrufen des ersten Buchstabens jedes Worts in Excel. Aber hier kann ich über einen nützlichen Weg sprechen, um diese Aufgabe zu lösen.

doc-extract-first-letter1

Extrahiere den ersten Buchstaben jedes Wortes aus der Zelle mit benutzerdefinierter Funktion


Pfeil blaue rechte BlaseExtrahiere den ersten Buchstaben jedes Wortes aus der Zelle mit benutzerdefinierter Funktion


In Excel können Sie ein erstellen Benutzerdefinierte Funktion um die ersten Buchstaben jedes Wortes in einer Zelle zu extrahieren. Bitte mach folgendes:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen-Fenster.

2. Klicken Sie Einsatz > Modul, und fügen Sie den folgenden Code in die Modulfenster. </ p>

Function GetFirstLetters(rng As Range) As String
'Update 20140325
    Dim arr
    Dim I As Long
    arr = VBA.Split(rng, " ")
    If IsArray(arr) Then
        For I = LBound(arr) To UBound(arr)
            GetFirstLetters = GetFirstLetters & Left(arr(I), 1)
        Next I
    Else
        GetFirstLetters = Left(arr, 1)
    End If
End Function

3. Dann speichern und schließen Sie diesen Code, gehen Sie zurück das Arbeitsblatt, und geben Sie diese Formel ein = GetFirstLetters (A2) (A2 Gibt die Zelle an, aus der Sie den ersten Buchstaben extrahieren möchten. Sie können ihn nach Bedarf in eine leere Zelle ändern. Siehe Screenshot:

doc-extract-first-letter1

4. Und dann drücken Weiter Wählen Sie die Zelle B2 aus, und ziehen Sie das Füllzeichen auf die Zellen, auf die Sie diese Formel anwenden möchten. Und alle ersten Buchstaben wurden aus der Wortfolge extrahiert, siehe Screenshot:

doc-extract-first-letter1


In Verbindung stehender Artikel:

Wie extrahiert man das erste / letzte / n-te Wort aus einer Textzeichenfolge in Excel?



Empfohlene Produktivitätswerkzeuge

Office Tab

Goldstern1 Bringen Sie praktische Tabs zu Excel und anderer Office-Software, genau wie Chrome, Firefox und den neuen Internet Explorer.

Kutools for Excel

Goldstern1 Tolle! Steigern Sie Ihre Produktivität in 5 Minuten. Brauche keine besonderen Fähigkeiten, spare zwei Stunden pro Tag!

Goldstern1 300 Neue Funktionen für Excel, machen Excel viel einfacher und leistungsfähiger:

  • Zelle / Zeilen / Spalten zusammenführen, ohne Daten zu verlieren.
  • Kombinieren und konsolidieren Sie mehrere Arbeitsblätter und Arbeitsmappen.
  • Bereiche vergleichen, Mehrere Bereiche kopieren, Text in Datum umwandeln, Einheit und Währungsumrechnung.
  • Zählen nach Farben, Paging-Zwischensummen, Erweiterte Sortierung und Super-Filter,
  • Mehr Auswählen / Einfügen / Löschen / Text / Formatieren / Verknüpfen / Kommentieren / Arbeitsmappen / Arbeitsblätter Werkzeuge ...

Screenshot von Kutools für Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Oleg · 9 months ago
    Подскажите пожалуйста, можно ли модифицировать код чтобы забиралась не первые а Заглавные буквы?
  • To post as a guest, your comment is unpublished.
    nawal jha · 2 years ago
    i think it has one bug, it's automatically removed from module when sheet is closed, need to again every time when open sheet same process to be required, please advice how to save this formula in excel permanently.
  • To post as a guest, your comment is unpublished.
    NoOne · 2 years ago
    Please include this part:

    If you create a function called DISCOUNT in a workbook called Personal.xlsb and you call that function from another workbook, you must type =personal.xlsb!discount(), not simply =discount().

    https://support.office.com/en-us/article/Create-Custom-Functions-in-Excel-2007-2f06c10b-3622-40d6-a1b2-b6748ae8231f
  • To post as a guest, your comment is unpublished.
    Adam Pavey · 2 years ago
    Very helpful. Exactly what I was after.
  • To post as a guest, your comment is unpublished.
    Sridhar · 3 years ago
    Thank you very much.. its working.. u rocks