Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

Sut i dynnu llythyr cyntaf pob gair o'r gell?

Gan dybio bod gennych restr o enw gwledydd yn eich taflen waith, a nawr, mae angen ichi dynnu llythyr cyntaf pob gair yn y gell fel y dangosir sgriniau sgrin canlynol. Fel rheol, nid oes unrhyw nodwedd uniongyrchol i godi llythyr cyntaf pob gair yn Excel. Ond, dyma, gallaf siarad am ffordd ddefnyddiol o ddatrys y dasg hon.

doc-extract-first-letter1

Detholwch lythyr cyntaf pob gair o Cell gyda Swyddogaeth Diffiniedig Defnyddiwr


swigod saeth cywir glasDetholwch lythyr cyntaf pob gair o Cell gyda Swyddogaeth Diffiniedig Defnyddiwr


Yn Excel, gallwch greu a Swyddogaeth Diffiniedig Defnyddiwr i dynnu llythyrau cyntaf pob gair mewn cell. Gwnewch fel hyn:

1. Dal i lawr y ALT + F11 allweddi i agor y Ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl. </ 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. Yna, cadwch a chadwch y cod hwn, ewch yn ôl y daflen waith, a nodwch y fformiwla hon = GetFirstLetters (A2) (A2 yn dangos y gell yr hoffech chi dynnu'r llythyr cyntaf, gallwch ei newid fel y mae ei angen) i mewn i gell wag. Gweler y sgrin:

doc-extract-first-letter1

4. Ac yna pwyswch Rhowch allweddol, a dewiswch B2 celloedd, yna llusgo'r daflen lenwi i'r celloedd yr ydych am wneud cais am y fformiwla hon. Ac mae'r holl lythyrau cyntaf wedi'u tynnu o'r gyfres o eiriau, gweler y sgrin:

doc-extract-first-letter1


Erthygl gysylltiedig:

Sut i dynnu gair gyntaf / olaf / nth o llinyn testun yn Excel?



Offer Cynhyrchiant a Argymhellir

Tab Swyddfa

star1 aur Dewch â thafiau defnyddiol i Excel a meddalwedd Swyddfa eraill, yn union fel Chrome, Firefox a Internet Explorer newydd.

Kutools ar gyfer Excel

star1 aur Yn rhyfeddol! Cynyddu eich cynhyrchedd mewn munudau 5. Peidiwch ag angen unrhyw sgiliau arbennig, arbed dwy awr bob dydd!

star1 aur 300 Nodweddion Newydd ar gyfer Excel, Gwnewch Excel Yn Fach Hawdd a Phwerus:

  • Cyfuno Cell / Rows / Colofnau heb Colli Data.
  • Cyfuno a Chyfuno Taflenni Lluosog a Llyfrau Gwaith.
  • Cymharwch Rangau, Copi Lluosog, Trosi Testun hyd yma, Uned ac Addasu Arian.
  • Count by Colors, Subtotals Paging, Trefnu Uwch ac Uwch Hidlo,
  • Mwy Dethol / Mewnosod / Delete / Text / Format / Link / Comment / Llyfrau Gwaith / Taflenni Gwaith Offer ...

Sgrîn sgript o Kutools ar gyfer 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