Skip i'r prif gynnwys

Sut i dynnu llythyren gyntaf pob gair o'r gell?

Dychmygwch fod gennych restr o enwau gwledydd yn eich taflen waith a'ch bod am dynnu llythyren gyntaf pob gair yn yr enwau hyn. Nid yw Excel yn darparu nodwedd uniongyrchol ar gyfer echdynnu llythrennau cychwynnol pob gair mewn cell. Fodd bynnag, byddaf yn cyflwyno rhai dulliau ymarferol i gyflawni'r dasg hon yn effeithlon, gan wneud y broses yn syml ac yn effeithiol.


Echdynnu llythyren gyntaf pob gair o Cell gyda fformiwla

I gael llythyren gyntaf pob gair o fewn cell, gall y fformiwla arae ganlynol eich helpu.

1. Copïwch y fformiwla ganlynol i mewn i gell wag lle rydych chi am gael y canlyniad, ac yna pwyswch Ctrl + Shift + Enter allweddi gyda'i gilydd i gael y canlyniad cyntaf.

=CONCAT(LEFT(FILTERXML("<a><b>"&SUBSTITUTE(A2," ","</b><b>")&"</b></a>","//b"),1))

2. Nesaf, tynnwch y fformiwla i lawr i lenwi'r celloedd eraill. Bydd y weithred hon yn tynnu llythyren gyntaf pob gair ym mhob cell yn awtomatig i gyd ar unwaith. Gweler y sgrinlun:

Esboniad o'r fformiwla hon:
  • SUBSTITUTE(A2," "," "): Mae'r swyddogaeth hon yn disodli pob gofod yn y testun yng nghell A2 gyda . Mae hyn i bob pwrpas yn gwahanu pob gair yn y testun gyda'r tagiau XML hyn. Er enghraifft, os yw A2 yn cynnwys "Helo Fyd", mae'r rhan hon o'r fformiwla yn ei throi'n "Helo Fyd".
  • " " &...&" ": Mae'r rhan hon yn lapio canlyniad y swyddogaeth SUBSTITUTE gyda ar y dechrau ac ar y diwedd. Gan barhau â'r enghraifft, mae'r llinyn bellach yn dod yn Hello World , gan ffurfio strwythur XML dilys lle mae pob gair wedi'i amgáu o fewn tagiau.
  • FILTERXML(...,"//b"): Defnyddir FILTERXML i ddosrannu'r llinyn XML a grëwyd yn y camau blaenorol. Mae'r ymholiad XPath //b yn dewis pob elfen o fewn y tagiau, hy, pob gair yn y llinyn gwreiddiol. Gan ddefnyddio ein hesiampl, byddai FILTERXML yn dychwelyd arae gyda dwy elfen: "Helo" a "World".
  • CHWITH(...,1): Yna mae'r ffwythiant CHWITH yn cael ei gymhwyso i bob elfen o'r arae a ddychwelir gan FILTERXML, gan dynnu llythyren gyntaf pob gair. Yn yr enghraifft, byddai hyn yn arwain at "H" a "W".
  • CONCAT(...): Yn olaf, mae swyddogaeth CONCAT yn concatenates holl elfennau'r arae i mewn i un llinyn. Ar gyfer ein enghraifft "Helo Fyd", byddai'n cydgatenate "H" a "W" i gynhyrchu "HW".

Tynnwch lythyren gyntaf pob gair o Cell gyda Kutools AI Aide

Tynnwch lythyren gyntaf pob gair mewn cell yn gyflym gyda Kutools AI Aide. Nid oes angen fformiwlâu cymhleth; mae'r cynorthwyydd AI yn awtomeiddio'r dasg i chi, gan wneud prosesu data yn syml ac yn effeithlon. Symleiddiwch eich llif gwaith Excel a gwnewch eich gwaith yn haws. Ceisiwch Kutools AI Aide a phrofwch weithrediadau Excel craff!

Nodyn: I ddefnyddio hwn Kutools AI Aide of Kutools ar gyfer Excel, os gwelwch yn dda lawrlwytho a gosod Kutools ar gyfer Excel gyntaf.

Ar ôl gosod Kutools ar gyfer Excel, cliciwch Kutools AI > AI Aide i agor y Kutools AI Aide cwarel:

  1. Dewiswch y rhestr ddata, yna teipiwch eich gofyniad yn y blwch sgwrsio, a chliciwch anfon botwm neu wasg Rhowch allwedd i anfon y cwestiwn;
  2. Ar ôl dadansoddi, cliciwch Gweithredu botwm i redeg. Bydd Kutools AI Aide yn prosesu'ch cais gan ddefnyddio AI ac yn dychwelyd y canlyniadau yn uniongyrchol yn Excel.


Tynnwch lythyren gyntaf pob gair o Cell gyda Swyddogaeth Diffiniedig Defnyddiwr

Mae tynnu llythyren gyntaf pob gair o gell yn dasg y gellir ei hoptimeiddio'n fawr trwy ddefnyddio Swyddogaeth a Ddiffiniwyd gan Ddefnyddiwr (UDF) yn Excel. Mae'r adran hon yn archwilio sut i greu a defnyddio UDF i gyflawni'r dasg hon yn effeithlon.

1. Daliwch 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.

Function GetFirstLetters(rng As Range) As String
'Updateby Extendoffice
    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 arbed a chau'r cod hwn, ewch yn ôl y daflen waith, a nodwch y fformiwla hon = GetFirstLetters (A2) i mewn i gell wag. Ac yna, llusgwch yr handlen llenwi i'r celloedd rydych chi am gymhwyso'r fformiwla hon. Ac mae'r holl lythrennau cyntaf wedi'u tynnu o'r gyfres o eiriau, gweler y sgrinlun:


Erthyglau cysylltiedig:

  • Echdynnu dau neu n gair cyntaf neu olaf o'r llinyn testun
  • Os oes gennych chi restr o dannau testun sydd wedi'u gwahanu gan ofod, ac yn awr, rydych chi am dynnu tri neu n gair cyntaf neu olaf o werth y gell i gael y canlyniad screenshot canlynol. Yr erthygl hon, byddaf yn cyflwyno rhai fformiwlâu i dynnu dau neu n gair cyntaf neu olaf o linyn testun yn Excel.
  • Tynnwch destun cyn/ar ôl gofod neu goma yn unig
  • Pan fyddwch chi am echdynnu'r testun cyn neu ar ôl y gofod o'r rhestr fel y dangosir isod, a oes gennych chi ffordd dda i'w gyflawni? Gadewch imi ddweud wrthych rai ffyrdd anodd o dynnu testun cyn neu ar ôl gofod yn Excel yn unig.
  • Echdynnu cyfeiriad e-bost o'r llinyn testun
  • Pan fyddwch yn mewnforio rhywfaint o gyfeiriadau e-bost o'r Wefan i daflen waith Excel, mae testun amherthnasol bob amser, ond nawr rydych chi am dynnu'r cyfeiriadau e-bost pur o'r llinyn testun (gweler y sgrinluniau canlynol). Sut y gallech chi gael y cyfeiriadau e-bost yn gyflym o'r testun cell?
  • Tynnu llinyn rhwng dau gymeriad gwahanol
  • Os oes gennych chi restr o linyn yn Excel y mae angen i chi dynnu rhan o linyn rhwng dau nod o'r isod a ddangosir y screenshot, sut i'w drin cyn gynted â phosibl? Yma, rwy'n cyflwyno rhai dulliau ar gyfer datrys y swydd hon.

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
Comments (18)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hello, If the the nth Word is enclosed in a (), it is returning the ( since it comes before the First Letter.

Example:
Word Word (Word)

How to return WWW instead of WW( ?
This comment was minimized by the moderator on the site
Hello, Sharmane
Maybe the following code can help you:
Function GetFirstLetters(rng As Range) As String
    Dim arr() As String
    Dim i As Long
    
    arr = VBA.Split(rng.Value, " ")
    
    For i = LBound(arr) To UBound(arr)
        If Left(arr(i), 1) <> "(" And Right(arr(i), 1) <> ")" Then
            GetFirstLetters = GetFirstLetters & Left(arr(i), 1)
        ElseIf Left(arr(i), 1) = "(" And Right(arr(i), 1) = ")" Then
            GetFirstLetters = GetFirstLetters & Mid(arr(i), 2, 1)
        End If
    Next i
End Function


Please have a try, thank you!
This comment was minimized by the moderator on the site
Another suggestion if using Microsoft 365: =TEXTJOIN("",,LEFT(TEXTSPLIT(D9," "),1)) where the source string is in B9.
Wrap in UPPER function to enforce uppercase: =UPPER(TEXTJOIN("",,LEFT(TEXTSPLIT(D9," "),1)))
@Pradeep Gyawali -> add space: =UPPER(TEXTJOIN(" ",,LEFT(TEXTSPLIT(D9," "),1)))
This comment was minimized by the moderator on the site
Wondering how to add this into the existing formula I have that works to bring the value over from a cell in another sheet? I only want to bring over the first character in each cell. Here's the formula

=IF(LOOKUP(2,1/(OriginalSubmission!D:D<>""),ROW(OriginalSubmission!D:D))=ROW(OriginalSubmission!D4),"",INDIRECT("OriginalSubmission!D5:"&"D"&(LOOKUP(2,1/(OriginalSubmission!D:D<>""),ROW(OriginalSubmission!D:D)))))
This comment was minimized by the moderator on the site
Hello, SARAH
Do you mean extracting each first character in cells from another worksheet? If so, you just need to copy and paste the code in this article, and then apply this formula into another sheet.
=GetFirstLetters(OriginalSubmission!D4)


Note: OriginalSubmission is the sheet name that you want to extract charatcers from.
Please try, hope it can help you!
This comment was minimized by the moderator on the site
How to create space between the letters?

South Korea= S K
This comment was minimized by the moderator on the site
Hi, Gyawali
If you want to add space for each character, please apply the following VBA code:
Function GetFirstLetters(Rng As Range) As String
'Updateby Extendoffice
    Dim xStr
    Dim arr
    Dim I As Long
    xStr = " "
    arr = VBA.Split(Rng, " ")
    If IsArray(arr) Then
        For I = LBound(arr) To UBound(arr)
            GetFirstLetters = GetFirstLetters & Left(arr(I), 1) & xStr
        Next I
    Else
        GetFirstLetters = Left(arr, 1) & xStr
    End If
End Function


After insert the code, and then apply this formula: =GetFirstLetters(A2) to get the result you need.
Please try, hope it can help you!
This comment was minimized by the moderator on the site
Why is this giving me the first 2 letters in each word?
This comment was minimized by the moderator on the site
This is awesome. Such a time saver
This comment was minimized by the moderator on the site
This code is good for upto five words, where D20 is the cell with data.



=IF(ISERR(LEFT($D$20,1)&MID($D$20,SEARCH(" ",$D$20)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",
$D$20)+1)+1)+1)+1,1)),IF(ISERR(LEFT($D$20,1)&MID($D$20,SEARCH(" ",$D$20)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1)+1,1)),
IF(ISERR(LEFT($D$20,1)&MID($D$20,SEARCH(" ",$D$20)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1,1)),
IF(ISERR(LEFT($D$20,1)&MID($D$20,SEARCH(" ",$D$20)+1,1)),
IF(ISERR(LEFT($D$20,1)),"",LEFT($D$20,1)),LEFT($D$20,1)
&MID($D$20,SEARCH(" ",$D$20)+1,1)),LEFT($D$20,1)&MID($D$20,SEARCH(" ",$D$20)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1,1)),
LEFT($D$20,1)&MID($D$20,SEARCH(" ",$D$20)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1)+1,1)),LEFT($D$20,1)
&MID($D$20,SEARCH(" ",$D$20)+1,1)&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)+1)+1,1)
&MID($D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20,SEARCH(" ",$D$20)+1)
+1)+1)+1,1))
This comment was minimized by the moderator on the site
Подскажите пожалуйста, можно ли модифицировать код чтобы забиралась не первые а Заглавные буквы?
This comment was minimized by the moderator on the site
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.
This comment was minimized by the moderator on the site
Pls save excel as Excel Macro-Enablel work book.
This comment was minimized by the moderator on the site
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
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations