मुख्य सामग्री पर जाएं

सेल से प्रत्येक शब्द का पहला अक्षर कैसे निकालें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2024-03-14

कल्पना कीजिए कि आपकी वर्कशीट में देश के नामों की एक सूची है और आप इन नामों में से प्रत्येक शब्द का पहला अक्षर निकालना चाहते हैं। एक्सेल किसी सेल में प्रत्येक शब्द के शुरुआती अक्षर निकालने के लिए कोई सीधी सुविधा प्रदान नहीं करता है। हालाँकि, मैं इस कार्य को कुशलतापूर्वक पूरा करने के लिए कुछ व्यावहारिक तरीके पेश करूँगा, जिससे प्रक्रिया सीधी और प्रभावी हो जाएगी।


सूत्र के साथ सेल से प्रत्येक शब्द का पहला अक्षर निकालें

सेल के भीतर प्रत्येक शब्द का पहला अक्षर प्राप्त करने के लिए, निम्नलिखित सरणी सूत्र आपकी सहायता कर सकता है।

1. कृपया निम्नलिखित सूत्र को एक रिक्त कक्ष में कॉपी करें जहां आप परिणाम प्राप्त करना चाहते हैं, और फिर दबाएँ Ctrl + Shift + Enter पहला परिणाम प्राप्त करने के लिए कुंजियाँ एक साथ।

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

2. इसके बाद, अन्य कोशिकाओं को भरने के लिए सूत्र को नीचे खींचें। यह क्रिया स्वचालित रूप से प्रत्येक कक्ष में प्रत्येक शब्द का पहला अक्षर एक ही बार में निकाल लेगी। स्क्रीनशॉट देखें:

इस सूत्र की व्याख्या:
  • स्थानापन्न(A2," "," "):यह फ़ंक्शन सेल A2 में टेक्स्ट के प्रत्येक स्थान को . से बदल देता है। यह इन XML टैग के साथ पाठ के प्रत्येक शब्द को प्रभावी ढंग से अलग करता है। उदाहरण के लिए, यदि A2 में "हैलो वर्ल्ड" है, तो सूत्र का यह भाग इसे "हैलो वर्ल्ड" में बदल देता है।
  • " "&...&" ": यह भाग SUBSTITUTE फ़ंक्शन के परिणाम को शुरुआत और अंत में लपेटता है। उदाहरण को जारी रखते हुए, स्ट्रिंग अब हैलो वर्ल्ड बन जाती है, जिससे एक वैध XML संरचना बनती है जहां प्रत्येक शब्द टैग के भीतर संलग्न होता है।
  • FILTERXML(...,"//b"): FILTERXML का उपयोग पिछले चरणों में बनाई गई XML स्ट्रिंग को पार्स करने के लिए किया जाता है। XPath क्वेरी //b टैग के भीतर सभी तत्वों का चयन करती है, यानी, मूल स्ट्रिंग में प्रत्येक शब्द। हमारे उदाहरण का उपयोग करते हुए, FILTERXML दो तत्वों के साथ एक सरणी लौटाएगा: "हैलो" और "वर्ल्ड"।
  • बाएँ(...,1): LEFT फ़ंक्शन को FILTERXML द्वारा लौटाए गए सरणी के प्रत्येक तत्व पर लागू किया जाता है, प्रत्येक शब्द का पहला अक्षर निकाला जाता है। उदाहरण में, इसका परिणाम "H" और "W" होगा।
  • कॉनकैट(...): अंत में, CONCAT फ़ंक्शन सरणी के सभी तत्वों को एक स्ट्रिंग में जोड़ता है। हमारे "हैलो वर्ल्ड" उदाहरण के लिए, यह "एच" और "डब्ल्यू" को जोड़कर "एचडब्ल्यू" उत्पन्न करेगा।

कुटूल्स एआई सहयोगी के साथ सेल से प्रत्येक शब्द का पहला अक्षर निकालें

सेल में प्रत्येक शब्द का पहला अक्षर तुरंत निकालें कुटूल्स एआई सहयोगी. जटिल सूत्रों की कोई आवश्यकता नहीं; एआई सहायक आपके लिए कार्य को स्वचालित करता है, जिससे डेटा प्रोसेसिंग सरल और कुशल हो जाती है। अपने एक्सेल वर्कफ़्लो को सुव्यवस्थित करें और अपना काम आसान बनाएं। कोशिश कुटूल्स एआई सहयोगी और स्मार्ट एक्सेल संचालन का अनुभव करें!

नोट: इसका उपयोग करने के लिए कुटूल्स एआई सहयोगी of एक्सेल के लिए कुटूल, कृपया एक्सेल के लिए कुटूल डाउनलोड और इंस्टॉल करें पहले।

एक्सेल के लिए कुटूल इंस्टॉल करने के बाद कृपया क्लिक करें कुटूल्स एआई > ऐ सहयोगी को खोलने के लिए कुटूल्स एआई सहयोगी फलक:

  1. डेटा सूची का चयन करें, फिर चैट बॉक्स में अपनी आवश्यकता टाइप करें और क्लिक करें भेजें बटन या प्रेस दर्ज प्रश्न भेजने की कुंजी;
  2. विश्लेषण करने के बाद क्लिक करें निष्पादित करना चलाने के लिए बटन. कुटूल्स एआई सहयोगी एआई का उपयोग करके आपके अनुरोध को संसाधित करेगा और परिणाम सीधे एक्सेल में लौटाएगा।


उपयोगकर्ता परिभाषित फ़ंक्शन के साथ सेल से प्रत्येक शब्द का पहला अक्षर निकालें

सेल से प्रत्येक शब्द का पहला अक्षर निकालना एक ऐसा कार्य है जिसे एक्सेल में यूजर डिफाइंड फ़ंक्शन (यूडीएफ) का उपयोग करके काफी अनुकूलित किया जा सकता है। यह अनुभाग इस कार्य को कुशलतापूर्वक करने के लिए यूडीएफ बनाने और उपयोग करने का तरीका बताता है।

1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.

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. फिर इस कोड को सेव करें और बंद करें, वर्कशीट पर वापस जाएं और इस फॉर्मूले को दर्ज करें =पहले पत्र प्राप्त करें(A2) एक रिक्त कक्ष में. और फिर, भरण हैंडल को उन कक्षों तक खींचें जहां आप इस सूत्र को लागू करना चाहते हैं। और सभी पहले अक्षर शब्दों की श्रृंखला से निकाले गए हैं, स्क्रीनशॉट देखें:


संबंधित आलेख:

  • टेक्स्ट स्ट्रिंग से पहले या अंतिम दो या n शब्द निकालें
  • यदि आपके पास टेक्स्ट स्ट्रिंग्स की एक सूची है जो रिक्त स्थान से अलग हो गई है, और अब, आप निम्न स्क्रीनशॉट परिणाम प्राप्त करने के लिए सेल मान से पहले या अंतिम तीन या एन शब्द निकालना चाहते हैं। इस लेख में, मैं एक्सेल में टेक्स्ट स्ट्रिंग से पहले या आखिरी दो या एन शब्द निकालने के लिए कुछ सूत्र पेश करूंगा।
  • टेक्स्ट स्ट्रिंग से ईमेल पता निकालें
  • जब आप वेबसाइट से एक्सेल वर्कशीट में कुछ ईमेल पते आयात करते हैं, तो वहां हमेशा अप्रासंगिक टेक्स्ट होता है, लेकिन अब आप केवल टेक्स्ट स्ट्रिंग से शुद्ध ईमेल पते निकालना चाहते हैं (निम्न स्क्रीनशॉट देखें)। आप सेल टेक्स्ट से केवल ईमेल पते कैसे तुरंत प्राप्त कर सकते हैं?
  • दो अलग-अलग वर्णों के बीच स्ट्रिंग निकालें
  • यदि आपके पास एक्सेल में स्ट्रिंग की एक सूची है जिसे आपको नीचे दिखाए गए स्क्रीनशॉट से दो अक्षरों के बीच स्ट्रिंग का हिस्सा निकालने की आवश्यकता है, तो इसे जितनी जल्दी हो सके कैसे संभालें? यहां, मैं इस कार्य को हल करने के बारे में कुछ तरीकों का परिचय देता हूं।

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup    मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार    कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल    सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description


ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
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