Tips: Andra språk är Google-översatta. Du kan besöka English version av den här länken.
Logga in
x
or
x
x
Registrera
x

or

Hur man extraherar första bokstaven i varje ord från cellen?

Anta att du har en lista över länder namn i ditt arbetsblad, och nu måste du extrahera första bokstaven i varje ord i cellen som följande skärmdumpar visas. Normalt finns det ingen direkt funktion att hämta den första bokstaven i varje ord i Excel. Men här kan jag prata om ett användbart sätt att lösa denna uppgift.

doc-extrakt-först-letter1

Extrahera första bokstaven i varje ord från Cell med användardefinierad funktion


pilblå höger bubblaExtrahera första bokstaven i varje ord från Cell med användardefinierad funktion


I Excel kan du skapa en Användardefinierad funktion att extrahera de första bokstäverna i varje ord i en cell. Vänligen gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic for Applications-fönstret.

2. Klicka Infoga > Modulerna, och klistra in följande kod i Modulfönster. </ 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. Spara och stäng sedan koden, gå tillbaka kalkylbladet och ange den här formeln = GetFirstLetters (A2) (A2 indikerar den cell som du vill extrahera första bokstaven, du kan ändra den som du behöver) till en tom cell. Se skärmdump:

doc-extrakt-först-letter1

4. Och tryck sedan på ange nyckel och välj cell B2 och dra sedan fyllningshandtaget till de celler som du vill använda denna formel. Och alla de första bokstäverna har extraherats från ordsorden, se skärmdump:

doc-extrakt-först-letter1


Relaterad artikel:

Hur extraheras första / sista / n: a ord från textsträng i Excel?



Rekommenderade produktivitetsverktyg

Fliken Office

guld star1 Hämta praktiska flikar till Excel och annan Office-programvara, precis som Chrome, Firefox och ny Internet Explorer.

Kutools för Excel

guld star1 Fantastiskt! Öka din produktivitet i 5 minuter. Behöver inte några speciella färdigheter, spara två timmar varje dag!

guld star1 300 Nya funktioner för Excel, gör Excel mycket enkelt och kraftfullt:

  • Sammanfoga cell / rader / kolumner utan att förlora data.
  • Kombinera och konsolidera flera ark och arbetsböcker.
  • Jämför rader, kopiera flera rader, konvertera text till datum, enhet och valutaomvandling.
  • Räkna med färger, personsökande subtotaler, avancerad sortering och superfilter,
  • Mer Välj / Infoga / Radera / Text / Format / Länk / Kommentar / Arbetsböcker / Arbetsblad Verktyg ...

Skärmdump av 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 · 10 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