Patarimas: kitos kalbos yra "Google" išverstos. Galite aplankyti English šios nuorodos versija.
Prisijungti
x
or
x
x
Registruotis
x

or

Kaip ištraukti kiekvieno žodžio pirmąją raidę iš ląstelės?

Teigiant, kad jūsų darbalapyje yra šalių vardų sąrašas, o dabar turite išskleisti pirmąją kiekvieno žodžio raidę langelyje, kaip parodyta toliau pateiktuose ekranuose. Paprastai nėra jokios tiesioginės ypatybės, kad pasiimti kiekvieno žodžio pirmąją raidę "Excel". Bet čia aš galiu kalbėti apie naudingą būdą išspręsti šią užduotį.

doc-extract-first-letter1

Ištraukite kiekvieno žodžio pirmąją raidę iš "Cell" su vartotojo apibrėžta funkcija


rodyklė mėlyna dešinė burbulasIštraukite kiekvieno žodžio pirmąją raidę iš "Cell" su vartotojo apibrėžta funkcija


"Excel" galite kurti Vartotojo apibrėžta funkcija ištraukti pirmą raidę iš kiekvieno žodžio ląstelėje. Prašau, taip:

1. Laikykite nuspaudę ALT + F11 raktus atidaryti Langas "Microsoft Visual Basic for Applications".

2, Spauskite įsiuvas > Moduliaiir įklijuokite šį kodą Modulio langas. </ 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. Tada išsaugokite ir uždarykite šį kodą, grįžkite į darbalapį ir įveskite šią formulę = GetFirstLetters (A2) (A2 nurodo ląstelę, į kurią norite išgauti pirmąją raidę, galite ją pakeisti taip, kaip jums reikia) į tuščią langelį. Žr. Ekrano kopiją:

doc-extract-first-letter1

4. Ir tada paspauskite įeiti klavišą ir pasirinkite ląstelę B2, tada vilkite užpildymo juostą į ląsteles, kurioms norite taikyti šią formulę. Ir visi pirmieji raidės buvo ištraukti iš žodžių serijos, žiūrėkite zrzutki:

doc-extract-first-letter1


Susijęs straipsnis:

Kaip išskleisti pirmąjį / paskutinį / n žodį iš teksto eilutės Excel?



Rekomenduojami įrankiai našumui

Office Tab

aukso žvaigždutė1 Pateikite patogius skirtukus "Excel" ir kitai "Office" programinei įrangai, kaip ir "Chrome", "Firefox" ir "Internet Explorer".

Kutools for Excel

aukso žvaigždutė1 Nuostabi! Padidinkite savo našumą per 5 min. Nereikia jokių specialių įgūdžių, išskyrus dvi valandas kiekvieną dieną!

aukso žvaigždutė1 "300" naujos funkcijos "Excel", "Excel" daug lengvumo ir galingumo:

  • Sujungti elementus / eilutes / stulpelius neprarandant duomenų.
  • Suderinkite ir susinenkite kelis lapus ir darbaknygius.
  • Palyginkite diapazonus, nukopijuokite keletą diapazonų, konvertuokite tekstą į datą, vienetą ir valiutos konvertavimą.
  • Skaičiuojamas pagal spalvas, tarpinių pranešimų vidurkis, išplėstinis rūšiavimas ir super filtras,
  • Daugiau Pasirinkite / Įterpti / Ištrinti / Tekstas / Formatas / Nuoroda / Komentaras / Darbaknygiai / Užduotys Įrankiai ...

Kutools ekrano kopija 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