Tip: Andre sprog er Google-oversat. Du kan besøge English version af dette link.
Log på
x
or
x
x
Tilmeld
x

or

Hvordan udtages første bogstav i hvert ord fra celle?

Hvis du antager, at du har en liste over landenes navn i dit regneark, og nu skal du udtrække det første bogstav i hvert ord i cellen som følgende skærmbilleder vist. Normalt er der ingen direkte funktion til at hente det første bogstav i hvert ord i Excel. Men her kan jeg tale om en nyttig måde at løse denne opgave på.

doc-ekstrakt-først-letter1

Uddrag første bogstav af hvert ord fra Cell med brugerdefineret funktion


pil blå højre bobleUddrag første bogstav af hvert ord fra Cell med brugerdefineret funktion


I Excel kan du oprette en Brugerdefineret funktion at udtrække de første bogstaver af hvert ord i en celle. Venligst gør som dette:

1. Hold nede i ALT + F11 nøgler til at åbne Microsoft Visual Basic for Applications-vinduet.

2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue. </ 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. Gem derefter og luk denne kode ved at gå tilbage til regnearket og indtaste denne formel = GetFirstLetters (A2) (A2 angiver den celle, som du vil udtrække det første bogstav, du kan ændre det som du har brug for) til en tom celle. Se skærmbillede:

doc-ekstrakt-først-letter1

4. Og tryk derefter på Indtast nøgle og vælg celle B2, og træk derefter fyldehåndtaget til de celler, du vil anvende denne formel. Og alle de første bogstaver er blevet hentet fra række af ord, se screenshot:

doc-ekstrakt-først-letter1


Relateret artikel:

Hvordan udtrækkes første / sidste / nte ord fra tekststreng i Excel?



Anbefalede produktivitetsværktøjer

Office-fanen

guld star1 Medbring praktiske faner til Excel og andre Office-software, ligesom Chrome, Firefox og nye Internet Explorer.

Kutools til Excel

guld star1 Fantastiske! Forøg din produktivitet i 5 minutter. Har ikke brug for særlige færdigheder, spar to timer hver dag!

guld star1 300 Nye funktioner til Excel, gør Excel meget nemt og kraftfuldt:

  • Fusionere celler / rækker / kolonner uden at miste data.
  • Kombiner og konsolidér flere ark og arbejdsbøger.
  • Sammenlign ranges, kopier flere rækker, konverter tekst til dato, enheds- og valutaomregning.
  • Tæl efter farver, Personsøgning Subtotaler, Avanceret Sort og Super Filter,
  • Mere Vælg / Indsæt / Slet / Tekst / Format / Link / Kommentar / Arbejdsbøger / Regneark Værktøjer ...

Skærmbillede af Kutools til 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