Näpunäide. Teised keeled on Google'i tõlgitud. Võite külastada English selle lingi versioon.
Logi sisse
x
or
x
x
Regist.
x

or

Kuidas iga lahtri sõnast välja võtta esimene täht?

Oletades, et teil on teie töölehel riikide nimede loend, ja nüüd peate iga lahtri esimese tähe välja võtma lahtrisse, kui näidatakse ekraanipilte. Tavaliselt ei ole otsesõnu Exceli iga sõna esimese tähe võtmiseks. Aga siin võin rääkida kasulikust viisidest selle ülesande lahendamiseks.

doc-extract-esimene-täht1

Iga märteri esimese tähe väljavõtmine lahtrist koos kasutaja määratud funktsiooniga


nool sinine parempoolne mullIga märteri esimese tähe väljavõtmine lahtrist koos kasutaja määratud funktsiooniga


Excelis saate luua Kasutaja määratud funktsioon iga lahtri sõnade esimesed tähed välja võtma. Palun tee seda järgmisena:

1. Hoidke all ALT + F11 võtmed avada Microsoft Visual Basic for Applications aknas.

2. Klõpsa Sisesta > moodulidja kleepige järgmine kood sisse Mooduli aken. </ 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. Seejärel salvestage ja sulgege see kood, minge töölehe tagasi ja sisestage see valem = GetFirstLetters (A2) (A2 näitab lahtrit, kuhu soovite esimese kirja välja võtta, saate seda vajadusel muuta) tühjaks. Vaata pilti:

doc-extract-esimene-täht1

4. Ja siis vajuta sisenema võtme ja vali raku B2, seejärel lohistage täitekäepide lahtritesse, kuhu soovite seda valemit rakendada. Ja kõik esimesed tähed on sõnade seeriast välja võetud, vaata ekraanipilt:

doc-extract-esimene-täht1


Seotud artikkel:

Kuidas ekstrakt esimesest / viimasest / n-st sõna tekstistringist välja võtta?



Soovitatavad tööriistad

Office'i vahekaart

kuldne staatus1 Tooge kasulikke kaarte Exceli ja muudele Office'i tarkvaradele, nagu Chrome, Firefox ja uus Internet Explorer.

Kutools Exceli jaoks

kuldne staatus1 Amazing! Suurendage oma tootlikkust 5 minutiga. Ei vaja erilisi oskusi, välja arvatud kaks tundi iga päev!

kuldne staatus1 300 uued funktsioonid Exceli jaoks, tee Exceli palju lihtsaks ja võimsaks:

  • Ühendage lahtrid / ridad / veerud andmete kaotamata.
  • Mitme lehe ja töövihikute kombineerimine ja konsolideerimine.
  • Võrdlema diapasse, kopeeri mitu vahemikku, teisendades teksti kuupäeva, ühiku ja valuuta konverteerimise.
  • Värvide arv, lehtede vahesummad, täiustatud sorteerimine ja superfiltrid
  • Veel Vali / Lisa / Kustuta / Tekst / Vormindus / Link / Kommentaar / Töölehed / Töölehed Tööriistad ...

Kutoolsi ekraanipilt Exceli jaoks

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