Ábending: Önnur tungumál eru Google-þýdd. Þú getur heimsótt English útgáfa af þessum tengil.
Skrá inn
x
or
x
x
Nýskráning
x

or

Hvernig á að draga fyrstu staf hvers orðs úr frumu?

Segjum að þú hafir lista yfir heiti landa í vinnublaðinu þínu og nú þarftu að draga fyrstu staf hvers orðs í reitinn eins og eftirfarandi skjámyndir birtast. Venjulega er engin bein eiginleiki að taka upp fyrstu staf hvers orðs í Excel. En hér, ég get talað um gagnlegar leiðir til að leysa þetta verkefni.

doc-extract-first-letter1

Taktu fyrstu stafinn af hverju orði úr frumu með notendaskilaðri virkni


ör blár hægri kúlaTaktu fyrstu stafinn af hverju orði úr frumu með notendaskilaðri virkni


Í Excel er hægt að búa til Notandi Skilgreindur Virka að draga fyrstu stafina af öllum orðum í reit. Vinsamlegast gerðu eftirfarandi:

1. Haltu niður ALT + F11 lyklar til að opna Microsoft Visual Basic for Applications glugga.

2. Smelltu Setja > Mát, og líma eftirfarandi kóða í Module Window. </ 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. Þá vistaðu og lokaðu þessum kóða, farðu aftur á verkstæði og sláðu inn þessa formúlu = GetFirstLetters (A2) (A2 gefur til kynna klefann sem þú vilt draga úr fyrstu stafnum, þú getur breytt því eins og þú þarft) í auða reit. Sjá skjámynd:

doc-extract-first-letter1

4. Og ýttu síðan á Sláðu inn takkann og veldu reitinn B2, dragðu þá fyllahandfangið við frumurnar sem þú vilt nota þessa formúlu. Og allir fyrstu stafina hafa verið dregin út úr röð orða, sjá skjámynd:

doc-extract-first-letter1


Tengd grein:

Hvernig á að draga fyrstu / síðasta / nth orð úr textastreng í Excel?



Ráðlögð framleiðni verkfæri

Office flipi

gull star1 Komdu með handan flipa í Excel og önnur Office hugbúnaður, eins og Króm, Firefox og nýjan Internet Explorer.

Kutools fyrir Excel

gull star1 Ótrúlegt! Auka framleiðni þína á 5 mínútum. Ekki þörf á sérstökum hæfileikum, spara tvær klukkustundir á hverjum degi!

gull star1 300 Nýjar eiginleikar fyrir Excel, Gera Excel mjög auðvelt og öflugt:

  • Sameina Cell / Rows / dálka án þess að tapa gögnum.
  • Sameina og sameina margar töflur og vinnubækur.
  • Bera saman sviðum, afritaðu margar línur, umbreyta texta í dag, einingar og gjaldmiðil viðskipta.
  • Fjöldi með litum, síðuskiptafjölda, háþróaður flokkur og frábær sía,
  • Meira Veldu / Setja / Eyða / Texti / Snið / Link / Athugasemd / Vinnubækur / Verkstæði Verkfæri ...

Skjár skot af Kutools fyrir 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