Savjet: drugi jezici su prevedeni na Google. Možete posjetiti English verzija ove veze.
Prijava
x
or
x
x
Registracija
x

or

Kako izdvojiti prvo slovo svake riječi iz ćelije?

Pretpostavimo da u radnom listu imate popis naziva zemalja, a sada morate izdvojiti prvo slovo svake riječi u ćeliji kao prikazane snimke zaslona. Normalno, nema izravne značajke za pokupiti prvo slovo svake riječi u programu Excel. Ali ovdje mogu razgovarati o korisnom načinu rješavanja ovog zadatka.

doc ekstrakt-prve letter1

Izvadite prvo slovo svake riječi iz ćelija s definiranom funkcijom korisnika


strelica plava desna mjehurićIzvadite prvo slovo svake riječi iz ćelija s definiranom funkcijom korisnika


U programu Excel možete stvoriti a Korisnička funkcija izvući prva slova svake riječi u ćeliji. Učinite sljedeće:

1, Držite pritisnuto ALT + F11 tipke za otvaranje Prozor Microsoft Visual Basic for Applications.

2, Klik umetak > Moduli, i zalijepite sljedeći kod u Prozor modula. </ 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, Zatim spremite i zatvorite ovaj kôd, vratite se na radni list i unesite ovu formulu = GetFirstLetters (A2) (A2 označava ćeliju na koju želite izvaditi prvo slovo, možete ga promijeniti po potrebi) u praznu ćeliju. Pogledajte snimak zaslona:

doc ekstrakt-prve letter1

4, A zatim pritisnite ući ključ i odaberite ćeliju B2, a zatim povucite ručicu za punjenje ćelijama za koje želite primijeniti ovu formulu. I sva su prva slova izdvojena iz niza riječi, pogledajte snimak zaslona:

doc ekstrakt-prve letter1


Povezani članak:

Kako izdvojiti prvu / zadnju / nju riječ iz teksta u Excelu?



Preporučeni alati za produktivnost

Kartica sustava Office

zlato star1 Donesite praktične kartice u program Excel i drugi Office, kao što su Chrome, Firefox i novi Internet Explorer.

Kutools za Excel

zlato star1 Nevjerojatno! Povećajte produktivnost u 5 minuta. Ne trebaju nikakve posebne vještine, osim dva sata svaki dan!

zlato star1 300 nove značajke za Excel, izraditi Excel mnogo jednostavan i snažan:

  • Spoji ćeliju / retke / stupce bez gubitka podataka.
  • Kombinirajte i konsolidirajte više tablica i radnih knjiga.
  • Usporedba raspona, kopiranje više raspona, pretvaranje teksta na datum, jedinica i pretvorba valuta.
  • Count po bojama, Paging Subtotal, Advanced Sort i Super Filter,
  • Više Odabir / umetanje / brisanje / tekst / oblikovanje / veza / komentar / radne knjige / alati za radne listove ...

Screen shot tvrtke Kutools za 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