शेवटचा शब्द

एक साधी, पहिल्या दृष्टीक्षेपात, गैर-स्पष्ट समाधानासह समस्या: मजकूराच्या ओळीतून शेवटचा शब्द काढा. बरं, किंवा, सर्वसाधारण बाबतीत, शेवटचा तुकडा, दिलेल्या परिसीमक वर्णाने (स्पेस, स्वल्पविराम, इ.) विभक्त केलेला दुसऱ्या शब्दांत, स्ट्रिंगमध्ये उलट शोध (शेवटपासून सुरुवातीपर्यंत) लागू करणे आवश्यक आहे. दिलेले वर्ण आणि नंतर त्याच्या उजवीकडे सर्व वर्ण काढा.

पारंपारिकपणे निवडण्याचे अनेक मार्ग पाहू या: सूत्र, मॅक्रो आणि पॉवर क्वेरीद्वारे.

पद्धत 1. सूत्रे

सूत्राचे सार आणि यांत्रिकी समजून घेणे सोपे करण्यासाठी, चला दुरून थोडी सुरुवात करूया. प्रथम, आपल्या स्त्रोत मजकूरातील शब्दांमधील स्पेसची संख्या वाढवू, उदाहरणार्थ, 20 तुकडे. तुम्ही हे रिप्लेस फंक्शनसह करू शकता. सबस्टिट्यूट (बदली) आणि दिलेल्या वर्ण N- वेळा पुनरावृत्ती करण्याचे कार्य - पुन्हा करा (REPT):

आता आम्ही फंक्शन वापरून परिणामी मजकूराच्या शेवटी 20 वर्ण कापले योग्य (उजवीकडे):

ते गरम होत आहे, बरोबर? फंक्शन वापरून अतिरिक्त जागा काढून टाकणे बाकी आहे टीआरआयएम (TRIM) आणि समस्या सोडवली जाईल:

इंग्रजी आवृत्तीमध्ये, आमचे सूत्र असे दिसेल:

=TRIM(उजवीकडे(उपस्थित(A1;» «;REPT(» «;20));20))

मला आशा आहे की हे स्पष्ट आहे की तत्वतः 20 स्पेस टाकणे आवश्यक नाही – कोणतीही संख्या असेल, जोपर्यंत ती स्त्रोत मजकूरातील सर्वात लांब शब्दाच्या लांबीपेक्षा जास्त असेल.

आणि जर स्त्रोत मजकूर स्पेसने नव्हे तर दुसर्या विभाजक वर्णाने (उदाहरणार्थ, स्वल्पविरामाने) विभाजित करणे आवश्यक असेल, तर आमचे सूत्र थोडे दुरुस्त करणे आवश्यक आहे:

पद्धत 2. मॅक्रो फंक्शन

मजकूरातील शेवटचा शब्द किंवा तुकडा काढण्याचे काम मॅक्रो वापरून देखील सोडवले जाऊ शकते, म्हणजे, व्हिज्युअल बेसिकमध्ये रिव्हर्स सर्च फंक्शन लिहिणे जे आपल्याला आवश्यक ते करेल - विरुद्ध दिशेने स्ट्रिंगमध्ये दिलेल्या सबस्ट्रिंगसाठी शोधा - येथून शेवट ते सुरुवात.

कीबोर्ड शॉर्टकट दाबा alt+F11 किंवा बटण व्हिज्युअल बेसिक टॅब विकसक (विकासक)मॅक्रो एडिटर उघडण्यासाठी. नंतर मेनूद्वारे नवीन मॉड्यूल जोडा घाला - मॉड्यूल आणि तेथे खालील कोड कॉपी करा:

 फंक्शन LastWord(txt String म्हणून, Optional delim as String = " ", Optional n Integer = 1) String as arFragments = Split(txt, delim) LastWord = arFragments(UBound(arFragments) - n + 1) फंक्शन समाप्त करा  

आता तुम्ही वर्कबुक सेव्ह करू शकता (मॅक्रो-सक्षम फॉरमॅटमध्ये!) आणि खालील सिंटॅक्समध्ये तयार केलेले फंक्शन वापरू शकता:

=अंतिम शब्द(txt ; delim ; n)

जेथे

• txt - स्त्रोत मजकूरासह सेल
• डेलीम — विभाजक वर्ण (डिफॉल्ट — जागा)
• n - शेवटपासून कोणता शब्द काढावा (डिफॉल्टनुसार - शेवटपासून पहिला)

भविष्यात स्त्रोत मजकूरात कोणत्याही बदलांसह, आमचे मॅक्रो फंक्शन कोणत्याही मानक एक्सेल शीट फंक्शनप्रमाणे, फ्लायवर पुन्हा मोजले जाईल.

पद्धत 3. पॉवर क्वेरी

उर्जा प्रश्न जवळजवळ कोणत्याही स्रोतातून Excel मध्ये डेटा आयात करण्यासाठी आणि नंतर डाउनलोड केलेल्या डेटाचे कोणत्याही स्वरूपात रूपांतर करण्यासाठी Microsoft कडून विनामूल्य अॅड-ऑन आहे. या अॅड-इनची शक्ती आणि शीतलता इतकी उत्तम आहे की मायक्रोसॉफ्टने त्याची सर्व वैशिष्ट्ये एक्सेल 2016 मध्ये डीफॉल्टनुसार तयार केली आहेत. एक्सेल 2010-2013 साठी पॉवर क्वेरी येथून विनामूल्य डाउनलोड केली जाऊ शकते.

पॉवर क्वेरी वापरून दिलेल्या विभाजकाद्वारे शेवटचा शब्द किंवा तुकडा वेगळे करण्याचे आमचे कार्य अगदी सहजपणे सोडवले जाते.

प्रथम, कीबोर्ड शॉर्टकट वापरून आमच्या डेटा टेबलला स्मार्ट टेबलमध्ये बदलू या. Ctrl+T किंवा आज्ञा मुख्यपृष्ठ - सारणी म्हणून स्वरूपित करा (मुख्यपृष्ठ - सारणी म्हणून स्वरूपित):

त्यानंतर आपण कमांड वापरून तयार केलेले “स्मार्ट टेबल” पॉवर क्वेरीमध्ये लोड करतो टेबल/श्रेणीवरून (टेबल/श्रेणीवरून) टॅब डेटा (तुमच्याकडे Excel 2016 असल्यास) किंवा टॅबवर उर्जा प्रश्न (तुमच्याकडे Excel 2010-2013 असल्यास):

टॅबवर उघडणाऱ्या क्वेरी एडिटर विंडोमध्ये परिवर्तन (परिवर्तन) एक संघ निवडा स्प्लिट कॉलम - डिलिमिटरद्वारे (स्तंभ विभाजित करा — परिसीमकानुसार) आणि नंतर विभाजक वर्ण सेट करणे आणि पर्याय निवडणे बाकी आहे सर्वात उजवा सीमांककसर्व शब्द कापण्यासाठी नाही, परंतु फक्त शेवटचे:

वर क्लिक केल्यानंतर OK शेवटचा शब्द नवीन स्तंभात विभक्त केला जाईल. अनावश्यक पहिला स्तंभ त्याच्या शीर्षलेखावर उजवे-क्लिक करून आणि निवडून काढला जाऊ शकतो काढा (हटवा). तुम्ही टेबल हेडरमधील उर्वरित कॉलमचे नाव देखील बदलू शकता.

आदेश वापरून परिणाम पत्रकावर परत अपलोड केले जाऊ शकतात मुख्यपृष्ठ — बंद करा आणि लोड करा — बंद करा आणि त्यावर लोड करा… (घर — बंद करा आणि लोड करा — बंद करा आणि लोड करा...):

आणि परिणामी आम्हाला मिळते:

यासारखे – स्वस्त आणि आनंदी, सूत्रे आणि मॅक्रोशिवाय, जवळजवळ कीबोर्डला स्पर्श न करता 🙂

भविष्यात मूळ सूची बदलल्यास, उजवे-क्लिक करणे किंवा कीबोर्ड शॉर्टकट वापरणे पुरेसे असेल Ctrl+alt+F5 आमची विनंती अपडेट करा.

• चिकट मजकूर स्तंभांमध्ये विभाजित करणे
• रेग्युलर एक्स्प्रेशनसह मजकूर पार्स करणे आणि पार्स करणे
• SUBSTITUTE फंक्शनसह मजकूरातील पहिले शब्द काढणे