एक्सेल सेल की निर्दिष्ट स्थिति में टेक्स्ट और नंबर जोड़ता है
एक्सेल में, सेल में टेक्स्ट या नंबर जोड़ना एक बहुत ही सामान्य काम है। जैसे नामों के बीच स्थान जोड़ना, कोशिकाओं में उपसर्ग या प्रत्यय जोड़ना, सामाजिक संख्याओं में डैश जोड़ना। यहां इस ट्यूटोरियल में, यह एक्सेल में जोड़ने के लगभग सभी परिदृश्यों को सूचीबद्ध करता है और आपके लिए संबंधित तरीके प्रदान करता है।
नोट
इस ट्यूटोरियल में, मैं तरीकों को समझाने के लिए कुछ उदाहरण बनाता हूं, जब आप नीचे दिए गए वीबीए कोड या सूत्रों का उपयोग करते हैं तो आप अपनी आवश्यकता के अनुसार संदर्भ बदल सकते हैं, या आप सीधे तरीकों को आजमाने के लिए नमूने डाउनलोड कर सकते हैं।
नमूना फ़ाइल डाउनलोड करने के लिए क्लिक करें
यह भाग नीचे दिखाए गए स्क्रीनशॉट के अनुसार प्रत्येक सेल की शुरुआत में वर्ण जोड़ने के विभिन्न तरीकों को सूचीबद्ध करता है:
1.1 सूत्र का उपयोग करके कोशिकाओं की शुरुआत में जोड़ें
यहां आप नीचे दिए गए तीन फ़ॉर्मूले में से एक चुन सकते हैं:
फ़ॉर्मूला1 कॉनकेटनेट ऑपरेटर "&"
एक एम्परसेंड वर्ण "&" द्वारा अनेक पाठों को एक साथ जोड़ें।
"पाठ"&सेल
फॉर्मूला2 कॉन्काटेनेट फ़ंक्शन
CONCATENATE फ़ंक्शन का उपयोग टेक्स्ट को एक साथ जोड़ने के लिए किया जाता है।
CONCATENATE('पाठ',सेल)
फॉर्मूला3 CONCAT फ़ंक्शन
यह एक नया फ़ंक्शन है जो केवल Excel 2019, Office 365 और Excel ऑनलाइन में दिखाई देता है।
CONCAT('पाठ', सेल)
सामान्य सूत्रों में: सेल उस टेक्स्ट का सेल संदर्भ है जिसमें आप उपसर्ग जोड़ना चाहते हैं, और टेक्स्ट वह टेक्स्ट है जिसका उपयोग सेल में जोड़ने के लिए किया जाता है।
उपरोक्त उदाहरण का उपयोग करके, आप सूत्र बार में सूत्रों का उपयोग इस प्रकार कर सकते हैं:
"&"
=$E$3&B3 or = "आईफोन"&बी3
CONCATENATE फ़ंक्शन
=CONCATENATE($E$3,B3) or =CONCATENATE('आईफोन',बी3)
CONCAT समारोह
=CONCAT($E$3,B3) or =CONCAT('आईफोन',बी3)
दबाएँ दर्ज परिणाम प्राप्त करने के लिए कुंजी, फिर श्रेणी B3:B6 के प्रत्येक सेल में टेक्स्ट जोड़ने के लिए ऑटोफिल हैंडल को नीचे खींचें।
ध्यान दें: पाठ को दोहरे उद्धरण चिह्नों में संलग्न किया जाना चाहिए, या सूत्र एक त्रुटि मान #NAME? देता है। यदि किसी पाठ के लिए सेल संदर्भ का उपयोग कर रहे हैं, तो कृपया पूर्ण संदर्भ का उपयोग करना याद रखें, आप सापेक्ष संदर्भ को पूर्ण संदर्भ में बदलने के लिए F4 कुंजी दबा सकते हैं। |
1.2 फ्लैश फिल द्वारा सेल की शुरुआत में जोड़ें
यदि आप एक्सेल 2013 या बाद के संस्करणों में हैं, तो शक्तिशाली नई सुविधा, फ्लैश भरें, आपके द्वारा स्वचालित रूप से दर्ज की गई उपरोक्त कोशिकाओं के आधार पर कोशिकाओं को भर सकता है।
पहले मूल डेटा के आगे एक सेल चुनें, नीचे दिखाए अनुसार उपसर्ग पाठ के साथ पहला डेटा मैन्युअल रूप से टाइप करें:
फिर नीचे सेल में, उपसर्ग पाठ के साथ दूसरा डेटा टाइप करना जारी रखें, टाइपिंग के दौरान, ग्रे रंग में एक सूची प्रदर्शित होगी, दबाएँ दर्ज फ्लैश फिल को डेटा को स्वचालित रूप से भरने की अनुमति देने के लिए कुंजी।
यदि पूर्वावलोकन सूची उत्पन्न नहीं होती है, तो कृपया होम टैब पर जाएं और फिर क्लिक करें भरना > फ्लैश भरें इसे मैन्युअल रूप से चलाने के लिए.
1.3 वीबीए कोड का उपयोग करके कोशिकाओं की शुरुआत में जोड़ें
यदि आप वीबीए कोड से परिचित हैं, तो यहां एक श्रेणी में प्रत्येक सेल की शुरुआत में टेक्स्ट जोड़ने के लिए एक वीबीए कोड पेश किया गया है।
1. उन कक्षों की श्रेणी का चयन करें जिनमें आप उपसर्ग पाठ जोड़ना चाहते हैं, फिर दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2. फिर पॉपिंग विंडो में क्लिक करें सम्मिलित करें > मॉड्यूल एक रिक्त नया मॉड्यूल सम्मिलित करने के लिए।
3. नीचे दिए गए वीबीए कोड को नए मॉड्यूल में कॉपी और पेस्ट करें।
वीबीए: कोशिकाओं की शुरुआत में जोड़ें
Sub AppendToExistingOnLeft()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = "Iphone" & c.Value
Next
End Sub
ध्यान दें: कोड स्क्रिप्ट में, iPhone यह वह टेक्स्ट है जिसे आप चयनित सेल की शुरुआत में जोड़ना चाहते हैं, इसे अपनी आवश्यकता के अनुसार बदलें। |
4। दबाएँ F5 कुंजी या क्लिक रन बटन VBA कोड को सक्रिय करने के लिए विंडो में।
अब सभी चयनित सेल की शुरुआत में "Iphone" टेक्स्ट जोड़ दिया गया है।
सेल के आरंभ में टेक्स्ट जोड़ने के अलावा, सेल के अंत में टेक्स्ट जोड़ना भी आम है। यहां हम उदाहरण के लिए प्रत्येक सेल के अंत में इकाई जोड़ते हैं जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है:
2.1 सूत्र का उपयोग करके कोशिकाओं के अंत में जोड़ें
यहां आप नीचे दिए गए तीन फ़ॉर्मूले में से एक चुन सकते हैं:
फ़ॉर्मूला1 कॉनकेटनेट ऑपरेटर "&"
एक एम्परसेंड वर्ण "&" द्वारा अनेक पाठों को एक साथ जोड़ें।
सेल&"पाठ"
फॉर्मूला2 कॉन्काटेनेट फ़ंक्शन
CONCATENATE फ़ंक्शन का उपयोग टेक्स्ट को एक साथ जोड़ने के लिए किया जाता है।
CONCATENATE(सेल,"टेक्स्ट")
फॉर्मूला3 CONCAT फ़ंक्शन
यह एक नया फ़ंक्शन है जो केवल Excel 2019, Office 365 और Excel ऑनलाइन में दिखाई देता है।
CONCAT(सेल,"टेक्स्ट")
सामान्य सूत्रों में: सेल उस टेक्स्ट का सेल संदर्भ है जिसमें आप प्रत्यय जोड़ना चाहते हैं, और टेक्स्ट वह टेक्स्ट है जिसका उपयोग सेल में जोड़ने के लिए किया जाता है।
उपरोक्त उदाहरण का उपयोग करके, आप सूत्र बार में सूत्रों का उपयोग इस प्रकार कर सकते हैं:
"&"
=B3&$E$3 or =B3&"किग्रा"
CONCATENATE फ़ंक्शन
=CONCATENETATE(B3, $E$3) or =CONCATENETATE(B3, "किग्रा")
CONCAT समारोह
=CONCAT(बी3, $ई$3) or =CONCAT(बी3, "किग्रा")
दबाएँ दर्ज परिणाम प्राप्त करने के लिए कुंजी, फिर श्रेणी B3:B6 के प्रत्येक सेल के अंत में टेक्स्ट जोड़ने के लिए ऑटोफिल हैंडल को नीचे खींचें।
ध्यान दें: पाठ को दोहरे उद्धरण चिह्नों में संलग्न किया जाना चाहिए, या सूत्र एक त्रुटि मान #NAME? देता है। यदि किसी पाठ के लिए सेल संदर्भ का उपयोग कर रहे हैं, तो कृपया पूर्ण संदर्भ का उपयोग करना याद रखें, आप सापेक्ष संदर्भ को पूर्ण संदर्भ में बदलने के लिए F4 कुंजी दबा सकते हैं। |
2.2 फ्लैश फिल द्वारा सेल के अंत में जोड़ें
यदि आप एक्सेल 2013 या बाद के संस्करणों में हैं, तो शक्तिशाली नई सुविधा, फ्लैश भरें, आपके द्वारा स्वचालित रूप से दर्ज की गई उपरोक्त कोशिकाओं के आधार पर कोशिकाओं को भर सकता है।
पहले मूल डेटा के आगे एक सेल चुनें, नीचे दिखाए अनुसार प्रत्यय पाठ के साथ पहला डेटा मैन्युअल रूप से टाइप करें:
फिर पहले परिणाम के अंतर्गत सेल को सक्रिय करें, क्लिक करें जानकारी > फ्लैश भरें, सक्रिय सेल सहित नीचे की सभी सेल स्वचालित रूप से भर जाएंगी।
2.3 वीबीए कोड का उपयोग करके कोशिकाओं के अंत में जोड़ें
यहां एक VBA कोड है जो किसी श्रेणी में प्रत्येक सेल के अंत में टेक्स्ट जोड़ सकता है।
1. उन कक्षों की श्रेणी का चयन करें जिनमें आप प्रत्यय पाठ जोड़ना चाहते हैं, फिर दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2. फिर पॉपिंग विंडो में क्लिक करें सम्मिलित करें > मॉड्यूल एक रिक्त नया मॉड्यूल सम्मिलित करने के लिए।
3. नीचे दिए गए वीबीए कोड को नए मॉड्यूल में कॉपी और पेस्ट करें।
वीबीए: कोशिकाओं के अंत में जोड़ें
Sub AppendToExistingOnRight()
Dim c As Range
For Each c In Selection
If c.Value <> "" Then c.Value = c.Value & "Kg"
Next
End Sub
ध्यान दें: कोड स्क्रिप्ट में, Kg यह वह टेक्स्ट है जिसे आप चयनित सेल के अंत में जोड़ना चाहते हैं, इसे अपनी आवश्यकता के अनुसार बदलें। |
4। दबाएँ F5 कुंजी या क्लिक रन बटन VBA कोड को सक्रिय करने के लिए विंडो में।
अब प्रत्येक सेल के अंत में "Kg" टेक्स्ट जोड़ दिया गया है।
आप में से अधिकांश के लिए, सेल के आरंभ या अंत में टेक्स्ट जोड़ना आसान है, लेकिन सेल के मध्य में टेक्स्ट जोड़ना शायद कुछ हद तक कठिन है। उदाहरण लें, जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है, श्रेणी B3:B7 में प्रत्येक सेल के दूसरे वर्ण के अंत में एक डिलीमीटर, जैसे कोलन : जोड़ना।
3.1 सूत्र के अनुसार स्ट्रिंग के nवें अक्षर के बाद जोड़ें
इस कार्य को संभालने के लिए यहां चार सूत्र दिए गए हैं, उपयोग के लिए एक चुनें:
फॉर्मूला1 बाएँ और दाएँ कार्यों को संयोजित करें
बाएँ (सेल, n) और "पाठ" और दाएँ (सेल, LEN (सेल) -n)
फॉर्मूला2 कॉम्बाइन कॉन्काटेनेट (कॉनकैट), राइट और एलईएन फ़ंक्शन
कॉन्टेनेट (बाएं (सेल, एन), "टेक्स्ट", दाएं (सेल, एलईएन (सेल) -एन))
Or
CONCAT(बाएं(सेल, n), "पाठ", दाएँ(सेल, LEN(सेल) -n))
फॉर्मूला3 रिप्लेस फ़ंक्शन
बदलें(सेल, एन+1, 0, "टेक्स्ट")
सामान्य सूत्रों में: सेल उस टेक्स्ट का सेल संदर्भ है जिसे आप मध्य में टेक्स्ट जोड़ना चाहते हैं, और टेक्स्ट वह टेक्स्ट है जिसे सेल में जोड़ने के लिए उपयोग किया जाता है, n वह संख्या है जो परिभाषित करती है कि टेक्स्ट स्ट्रिंग में आप किस वर्ण के बाद टेक्स्ट जोड़ना चाहते हैं लेख जोड़ें।
ऊपर उल्लिखित कार्य को हल करने के लिए, कृपया निम्न सूत्रों का उपयोग करें:
बाएँ और दाएँ कार्यों को संयोजित करें
= बाएँ(B3, 2) और ":" और दाएँ(B3, LEN(B3) -2) or =बाएँ(B3, 2) और $E$3 और दाएँ(B3, LEN(B3) -2)
कॉम्बाइन कॉन्काटेनेट (कॉनकैट), राइट और एलईएन फ़ंक्शन
=CONCATENATE(बाएँ(B3, 2), ":", दाएँ(B3, LEN(B3) -2)) or =CONCAT (बाएँ(B3, 2), ":", दाएँ(B3, LEN(B3) -2))
फ़ंक्शन बदलें
=प्रतिस्थापन(बी3, 2+1, 0, ":") or =प्रतिस्थापन(बी3, 2+1, 0, $ई$3)
दबाएँ दर्ज परिणाम प्राप्त करने के लिए कुंजी, फिर श्रेणी B3:B7 के प्रत्येक सेल के दूसरे अक्षर के बाद टेक्स्ट जोड़ने के लिए ऑटोफिल हैंडल को नीचे खींचें।
ध्यान दें: पाठ को दोहरे उद्धरण चिह्नों में संलग्न किया जाना चाहिए, या सूत्र एक त्रुटि मान #NAME? देता है। यदि किसी पाठ के लिए सेल संदर्भ का उपयोग कर रहे हैं, तो कृपया पूर्ण संदर्भ का उपयोग करना याद रखें, आप सापेक्ष संदर्भ को पूर्ण संदर्भ में बदलने के लिए F4 कुंजी दबा सकते हैं। |
3.2 फ्लैश फिल द्वारा स्ट्रिंग के nवें अक्षर के बाद जोड़ें
यदि आप Excel 2013 या बाद के संस्करणों में हैं, तो फ्लैश भरें, आपके द्वारा स्वचालित रूप से दर्ज की गई उपरोक्त कोशिकाओं के आधार पर कोशिकाओं को भर सकता है।
पहले मूल डेटा के आगे एक सेल चुनें, नीचे दिखाए गए अनुसार दूसरे अक्षर के बाद कोलन के साथ पहला डेटा मैन्युअल रूप से टाइप करें:
फिर पहले परिणाम के तहत सेल को सक्रिय करें, दबाएँ कंट्रोल + E सक्रिय करने के लिए कुंजियाँ फ्लैश भरें कमांड, सक्रिय सेल सहित नीचे के सभी सेल स्वचालित रूप से भर गए हैं।
ध्यान दें: यदि आप MAC सिस्टम में हैं, तो Command + E कुंजी दबाएँ। |
3.3 वीबीए कोड का उपयोग करके स्ट्रिंग के nवें अक्षर के बाद जोड़ें
एक VBA कोड भी यह काम कर सकता है.
1। दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2. फिर पॉपिंग विंडो में क्लिक करें सम्मिलित करें > मॉड्यूल एक रिक्त नया मॉड्यूल सम्मिलित करने के लिए।
3. नीचे दिए गए वीबीए कोड को नए मॉड्यूल में कॉपी और पेस्ट करें।
वीबीए: कोशिकाओं के मध्य में जोड़ें
Sub AddToMidduleOfString()
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = VBA.Left(Rng.Value, 2 & ":" & VBA.Mid(Rng.Value, 3, VBA.Len(Rng.Value) - 1)
Next
End Sub
ध्यान दें: कोड स्क्रिप्ट में, 2 वह संख्या उस स्थिति को परिभाषित करती है जिसके बाद आप टेक्स्ट जोड़ना चाहते हैं, : वह पाठ है जिसे आप जोड़ना चाहते हैं, 3 यह 2 का योग और आपके द्वारा जोड़े गए टेक्स्ट की लंबाई है। एक और उदाहरण लें, स्ट्रिंग "ए बी" के पहले अक्षर के बाद "और" जोड़ने के लिए, स्क्रिप्ट Rng.Value = VBA.Left(Rng.Value,) होनी चाहिए 1) और "और" और VBA.Mid(Rng.Value, 4, वीबीए.लेन(आरएनजी.वैल्यू) - 1) |
4। दबाएँ F5 कुंजी या क्लिक रन बटन VBA कोड को सक्रिय करने के लिए विंडो में। टेक्स्ट जोड़ने के लिए कक्षों का चयन करने के लिए एक संवाद पॉप आउट होता है।
5। क्लिक करें OK. अब श्रेणी B19:B23 में प्रत्येक सेल के दूसरे अक्षर के बाद ":" टेक्स्ट जोड़ा गया है।
4. एक्सेल के लिए कुटूल के साथ टेक्स्ट जोड़ें (अपनी आवश्यकता के अनुसार विशिष्ट स्थिति में अक्षर जोड़ें)
यदि आप सूत्रों और वीबीए से थक गए हैं, तो आप एक शक्तिशाली और उपयोगी उपकरण आज़मा सकते हैं, एक्सेल के लिए कुटूल, जो इसमें आपकी मदद कर सकता है पाठ जोड़ें सुविधा.
यह टेक्स्ट जोड़ें सुविधा यह कर सकती है:
- पहले अक्षर से पहले टेक्स्ट जोड़ें
- अंतिम अक्षर के बाद टेक्स्ट जोड़ें
- निर्दिष्ट स्थानों पर पाठ जोड़ें
- विस्तार
बड़े अक्षरों से पहले टेक्स्ट जोड़ें
छोटे अक्षरों से पहले टेक्स्ट जोड़ें
अपरकेस/लोअरकेस अक्षरों से पहले टेक्स्ट जोड़ें
संख्यात्मक वर्णों से पहले पाठ जोड़ें
अभी 30-दिवसीय निःशुल्क परीक्षण प्राप्त करने के लिए क्लिक करें।
उन कक्षों का चयन करें जिनमें आप टेक्स्ट जोड़ना चाहते हैं, फिर क्लिक करके टेक्स्ट जोड़ें लागू करें कुटूल > टेक्स्ट > पाठ जोड़ें.
4.1 पहले अक्षर से पहले या अंतिम अक्षर के बाद टेक्स्ट जोड़ें
में पाठ जोड़ें संवाद में, वह पाठ टाइप करें जिसे आप कक्षों में जोड़ना चाहते हैं टेक्स्ट टेक्स्टबॉक्स, फिर जांचें पहले किरदार से पहले में पद अनुभाग।
क्लिक करें लागू करें or Ok जोड़ना समाप्त करने के लिए.
अंतिम वर्ण के बाद टेक्स्ट जोड़ने के लिए, वह टेक्स्ट टाइप करें जिसे आप सेल में जोड़ना चाहते हैं टेक्स्ट टेक्स्टबॉक्स, फिर जांचें आखिरी किरदार के बाद में पद अनुभाग।
क्लिक करें लागू करें or Ok जोड़ना समाप्त करने के लिए.
4.2 निर्दिष्ट स्थान पर पाठ जोड़ें
कभी-कभी, आप सेल के मध्य में टेक्स्ट जोड़ना चाह सकते हैं, या सेल की कई स्थितियों में टेक्स्ट जोड़ना चाह सकते हैं। मान लीजिए कि नीचे दिए गए स्क्रीनशॉट के अनुसार सामाजिक संख्याओं के तीसरे और सातवें अंक के बाद विभाजक "-" जोड़ा गया है:
में पाठ जोड़ें डायलॉग, इसमें टेक्स्ट टाइप करें टेक्स्ट टेक्स्टबॉक्स, और जांचें निर्दिष्ट करें विकल्प, फिर टेक्स्टबॉक्स में अलग करने के लिए अल्पविराम का उपयोग करके स्थिति टाइप करें और फिर क्लिक करें Ok or लागू करें.
4.3 टेक्स्ट जोड़ें उपयोगिता का विस्तार
पाठ को सामान्य स्थिति (प्रारंभ, अंत और निर्दिष्ट स्थिति) में जोड़ने के अलावा, पाठ जोड़ें उपयोगिता पाठ जोड़ने का भी समर्थन करती है
- बड़े अक्षरों से पहले
- छोटे अक्षरों से पहले
- अपरकेस/लोअरकेस अक्षरों से पहले
- संख्यात्मक वर्णों से पहले
में पाठ जोड़ें डायलॉग, इसमें टेक्स्ट टाइप करें टेक्स्ट टेक्स्टबॉक्स, और जांचें केवल जोड़ें विकल्प, फिर अपनी आवश्यकतानुसार ऑपरेशन चुनने के लिए नीचे ड्रॉप-डाउन मेनू पर क्लिक करें।
यह भाग Excel में पहली बार प्रदर्शित विशिष्ट पाठ से पहले या बाद में पाठ जोड़ने के सूत्र प्रदान करता है।
5.1 पहले विशिष्ट पाठ से पहले पाठ जोड़ें
उदाहरण के लिए, आप सेल में पहले टेक्स्ट "कीमत" से पहले "(बिक्री)" टेक्स्ट जोड़ना चाहते हैं, जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है:
Excel में, REPLACE और SUBSTITUTE फ़ंक्शंस इस कार्य को हल कर सकते हैं।
फ़ंक्शन बदलें
बदलें(सेल,FIND("find_text",सेल),0,"add_text")
स्थानापन्न समारोह
स्थानापन्न(सेल,"find_text","replace_text",1)
इस मामले में, कृपया उपरोक्त सूत्रों का उपयोग इस प्रकार करें:
=प्रतिस्थापन(बी4,खोजें("कीमत",बी4),0,"(बिक्री)")
Or
=विकल्प(बी4,"कीमत","(बिक्री)कीमत",1)
इस मामले में सूत्र तर्क हैं
सेल: B4,
Find_text: कीमत,
Add_text: (बिक्री),
Replace_text:(बिक्री)कीमत।
दबाएँ दर्ज पहले जोड़ने का परिणाम प्राप्त करने के लिए कुंजी, फिर ऑटोफ़िल हैंडल को उन कक्षों पर खींचें जिन्हें इस सूत्र की आवश्यकता है।
5.2 पहले विशिष्ट पाठ के बाद पाठ जोड़ें
उदाहरण के लिए, आप नीचे दिखाए गए स्क्रीनशॉट के अनुसार सेल में पहले कोलन ":" के बाद मुद्रा प्रतीक "$" जोड़ना चाहते हैं:
Excel में, REPLACE और SUBSTITUTE फ़ंक्शंस इस कार्य को हल कर सकते हैं।
फ़ंक्शन बदलें
बदलें(सेल,खोजें("find_text",सेल),find_text_length,"replace_text")
स्थानापन्न समारोह
स्थानापन्न(सेल,"find_text","replace_text")
इस मामले में, कृपया उपरोक्त सूत्रों का उपयोग इस प्रकार करें:
=प्रतिस्थापन(बी12,खोजें(":",बी12),1,":$")
Or
=विकल्प(बी12,":",":$")
इस मामले में सूत्र तर्क हैं
सेल: B12,
पाठ ढूंढना: :,
Replace_text::$.
खोजें_पाठ_लंबाई:1
दबाएँ दर्ज पहले जोड़ने का परिणाम प्राप्त करने के लिए कुंजी, फिर ऑटोफ़िल हैंडल को उन कक्षों पर खींचें जिन्हें इस सूत्र की आवश्यकता है।
ट्यूटोरियल के इस भाग में, यह सेल के प्रत्येक शब्द के पहले या बाद में अक्षर जोड़ने में आपकी सहायता के लिए तीन अलग-अलग तरीकों (सूत्र, ढूँढें और बदलें, वीबीए) का परिचय देता है।
प्रत्येक शब्द से पहले अक्षर जोड़ें |
प्रत्येक शब्द के बाद अक्षर जोड़ें |
6.1 सूत्र के अनुसार प्रत्येक शब्द के पहले या बाद में वर्ण जोड़ें
इस कार्य को हल करने के लिए SUBSTITUTE फ़ंक्शन का उपयोग किया जा सकता है, सामान्य सूत्र इस प्रकार हैं:
प्रत्येक शब्द से पहले जोड़ें
"वर्ण" और स्थानापन्न(स्ट्रिंग, " "," वर्ण")
प्रत्येक शब्द के बाद जोड़ें
स्थानापन्न(स्ट्रिंग," ","अक्षर")&"अक्षर"
मान लीजिए B3:B6 की सूची में प्रत्येक शब्द से पहले "+" जोड़ने पर, कृपया सूत्र का उपयोग इस प्रकार करें:
= "+"&स्थानापन्न(बी3, " "," +")
दबाएँ दर्ज पहला परिणाम प्राप्त करने के लिए कुंजी, फिर सभी परिणाम प्राप्त करने के लिए ऑटो भरण हैंडल को नीचे खींचें।
मान लीजिए सूची B11:B14 के प्रत्येक शब्द के बाद ($) जोड़ने पर, कृपया नीचे दिए गए सूत्र का उपयोग करें:
=विकल्प(बी11," ","($) ")&"($)"
दबाएँ दर्ज पहला परिणाम प्राप्त करने के लिए कुंजी, फिर सभी परिणाम प्राप्त करने के लिए ऑटो भरण हैंडल को नीचे खींचें।
6.2 ढूँढें और बदलें द्वारा प्रत्येक शब्द के पहले या बाद में वर्ण जोड़ें
यदि आप पहले शब्द को छोड़कर प्रत्येक शब्द से पहले अक्षर जोड़ना चाहते हैं, या नीचे दिखाए गए स्क्रीनशॉट के अनुसार अंतिम को छोड़कर प्रत्येक शब्द के बाद अक्षर जोड़ना चाहते हैं, तो एक्सेल अंतर्निहित है ढूँढें और बदलें यूटिलिटी इस काम को संभाल सकती है।
पहले शब्द को छोड़कर प्रत्येक शब्द से पहले जोड़ें
अंतिम शब्द को छोड़कर प्रत्येक शब्द के बाद जोड़ें
1. उन कक्षों का चयन करें जिनमें आप प्रत्येक शब्द के पहले या बाद में अक्षर जोड़ना चाहते हैं, फिर दबाएँ कंट्रोल + H सक्षम करने के लिए कुंजियाँ ढूँढें और बदलें संवाद।
2. में एक स्पेस टाइप करें क्या पता टेक्स्टबॉक्स, फिर स्पेस के साथ नए अक्षर टाइप करें साथ बदलें टेक्स्टबॉक्स, और अंत में क्लिक करें सभी को बदलें बटन.
आपरेशन | सामान्य जानकारी | उदाहरण |
प्रत्येक शब्द से पहले अक्षर जोड़ें | एक स्थान के बाद नए अक्षर जोड़ें | प्रत्येक शब्द से पहले (बिक्री) जोड़ें |
आपरेशन | सामान्य जानकारी | उदाहरण |
प्रत्येक शब्द के बाद अक्षर जोड़ें | स्थान के साथ नये पात्र आये | प्रत्येक शब्द के बाद जोड़ें |
यहां प्रत्येक शब्द के पहले या बाद में अक्षर जोड़ने के लिए दो वीबीए कोड दिए गए हैं, कृपया नीचे दिए गए चरणों का पालन करके कोड चलाएं।
1। दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2. पॉपिंग विंडो में, क्लिक करें सम्मिलित करें > मॉड्यूल एक नया रिक्त मॉड्यूल सम्मिलित करने के लिए।
3. नीचे दिए गए वीबीए कोड को मॉड्यूल में कॉपी और पेस्ट करें।
प्रत्येक शब्द से पहले जोड़ें
Sub InsertCharBeforeWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
On Error Resume Next
Set xSRg = Application.Selection
Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
If StrPtr(xInStr) = 0 Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In xRg
xArr = Split(xCell.Text, " ")
xValue = ""
For Each xStr In xArr
If Trim(xStr) <> "" Then
If xValue = "" Then
xValue = xInStr & Trim(xStr)
Else
xValue = xValue & " " & xInStr & Trim(xStr)
End If
End If
Next
xCell.Value = xValue
Next
Application.ScreenUpdating = True
End Sub
प्रत्येक शब्द के बाद जोड़ें
Sub InsertCharAfterWord()
'UpdateByExtendOffice
Dim ws As Worksheet
Dim xRg As Range
Dim xSRg As Range
Dim xCell As Range
Dim xInStr As String
Dim xArr As Variant
Dim xValue As String
On Error Resume Next
Set xSRg = Application.Selection
Set xRg = Application.InputBox("Select cells(continuous):", "Kutools for Excel", xSRg.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
xInStr = Application.InputBox("Type characters you want to add:", "Kutools for Excel", "", , , , , 2)
If StrPtr(xInStr) = 0 Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In xRg
xArr = Split(xCell.Text, " ")
xValue = ""
For Each xStr In xArr
If Trim(xStr) <> "" Then
If xValue = "" Then
xValue = Trim(xStr) & xInStr
Else
xValue = xValue & " " & Trim(xStr) & xInStr
End If
End If
Next
xCell.Value = xValue
Next
Application.ScreenUpdating = True
End Sub
4। दबाएँ F5 कोड चलाने के लिए कुंजी (या आप क्लिक कर सकते हैं रन बटन ), एक संवाद पॉप आउट होता है जो आपसे काम करने के लिए निरंतर सेल का चयन करने के लिए कहता है, क्लिक करें OK.
5. दूसरे पॉप आउट डायलॉग में वे अक्षर टाइप करें जिन्हें आप जोड़ना चाहते हैं, क्लिक करें OK.
फिर प्रत्येक शब्द के सामने या अंत में अक्षर जोड़े जायेंगे।
कभी-कभी, आप प्रत्येक वर्ण के बीच पाठ जोड़ना चाह सकते हैं। यहां इस भाग में, यह दो परिदृश्यों को सूचीबद्ध करता है, एक है प्रत्येक वर्ण के बीच पाठ जोड़ना, दूसरा है प्रत्येक संख्या के बीच स्थान जोड़ना।
7.1 उपयोगकर्ता-परिभाषित फ़ंक्शन के साथ प्रत्येक अक्षर/अंक के बीच टेक्स्ट जोड़ें
स्ट्रिंग में प्रत्येक वर्ण के बीच वर्ण जोड़ने के लिए, उपयोगकर्ता-परिभाषित फ़ंक्शन आपकी सहायता कर सकता है।
इस मामले में, हम प्रत्येक अक्षर के बीच एक स्थान जोड़ते हैं।
1। दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2. पॉपिंग विंडो में, क्लिक करें सम्मिलित करें > मॉड्यूल एक नया रिक्त मॉड्यूल सम्मिलित करने के लिए।
3. नीचे दिए गए वीबीए कोड को मॉड्यूल में कॉपी और पेस्ट करें।
वर्णों के बीच पाठ जोड़ें
Function AddText(Str As String) As String
Dim i As Long
For i = 1 To Len(Str)
AddText = AddText & Mid(Str, i, 1) & " "
Next i
AddSpace = Trim(AddSpace)
End Function
4. कोड सहेजें और वर्कशीट पर वापस जाने के लिए विंडो बंद करें, फिर नीचे दिए गए सूत्र को उस सेल में टाइप करें जिसमें आप जोड़ने का परिणाम डालना चाहते हैं।
=पाठ जोड़ें(बी3)
B3 वह सेल है जिसमें वह स्ट्रिंग है जिसमें आप वर्णों के बीच स्थान जोड़ना चाहते हैं।
5। दबाएँ दर्ज परिणाम प्राप्त करने के लिए कुंजी, अपनी आवश्यकतानुसार अन्य परिणाम प्राप्त करने के लिए सेल पर ऑटो भरण हैंडल को खींचें।
ध्यान दें: 1) VBA कोड में, आप बदल सकते हैं "" अन्य पाठों में आपकी आवश्यकतानुसार, मान लीजिए कि इसे बदल दें "-" जोड़ने के लिए - वर्णों के बीच। 2) कोड प्रत्येक वर्ण के बाद नया टेक्स्ट जोड़ देगा। यदि आपको आवश्यकता नहीं है तो आप नीचे दिए गए सूत्र का उपयोग करके अंतिम जोड़ा गया पाठ हटा सकते हैं। सूत्र के बारे में अधिक जानकारी के लिए, कृपया देखें: एक्सेल में किसी सेल या स्ट्रिंग से पहले या आखिरी एन अक्षर को कैसे हटाएंएल? बाएँ(सेल,LEN(सेल)-text_length) |
7.2 प्रत्येक संख्या के बीच सूत्र के साथ स्थान जोड़ें
यदि आप किसी स्ट्रिंग के अंकों के बीच स्थान जोड़ना चाहते हैं जो एक संख्यात्मक मान है, तो आप टेक्स्ट फ़ंक्शन का उपयोग कर सकते हैं।
ध्यान दें: जिस श्रेणी की संख्या के बीच आप स्थान जोड़ना चाहते हैं वह समान लंबाई में होना आवश्यक है, अन्यथा, कुछ परिणाम गलत हो सकते हैं। |
मान लीजिए कि यहां श्रेणी बी8:बी10 में 12-अंकीय संख्याओं की एक सूची है, कृपया एक सेल का चयन करें जो परिणाम रखेगा, नीचे सूत्र टाइप करें:
=पाठ(बी10,"# # # # # # # #")
दबाएँ दर्ज कुंजी, फिर ऑटोफ़िल हैंडल को अन्य सेल पर खींचें।
यदि संख्याओं की लंबाई 5 है, तो सूत्र इस प्रकार बदला जाएगा =पाठ(बी10,"# # # # #").
यदि आप प्रत्येक शब्द के बीच वर्ण जोड़ना चाहते हैं, मान लीजिए कि नीचे स्क्रीनशॉट में दिखाए गए अनुसार पहले, मध्य, अंतिम नामों के बीच स्थान जोड़ना है, तो आप उपयोगकर्ता-परिभाषित फ़ंक्शन का उपयोग कर सकते हैं।
1। दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2. पॉपिंग विंडो में, क्लिक करें सम्मिलित करें > मॉड्यूल एक नया रिक्त मॉड्यूल सम्मिलित करने के लिए।
3. नीचे दिए गए वीबीए कोड को मॉड्यूल में कॉपी और पेस्ट करें।
शब्दों के बीच अक्षर जोड़ें
Function AddCharacters(pValue As String) As String
'UpdatebyExtendoffice20160908
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
If xAsc >= 65 And xAsc <= 90 Then
xOut = xOut & " " & VBA.Mid(pValue, i, 1)
Else
xOut = xOut & VBA.Mid(pValue, i, 1)
End If
Next
AddCharacters = xOut
End Function
4. कोड सहेजें और वर्कशीट पर वापस जाने के लिए विंडो बंद करें, फिर नीचे दिए गए सूत्र को उस सेल में टाइप करें जिसमें आप जोड़ने का परिणाम डालना चाहते हैं।
=अक्षर जोड़ें(बी3)
B3 वह सेल है जिसमें वह स्ट्रिंग है जिसमें आप शब्दों के बीच स्थान जोड़ना चाहते हैं।
5। दबाएँ दर्ज परिणाम प्राप्त करने के लिए कुंजी, अपनी आवश्यकतानुसार अन्य परिणाम प्राप्त करने के लिए सेल पर ऑटो भरण हैंडल को खींचें।
ध्यान दें: VBA कोड में, आप बदल सकते हैं "" अन्य पाठों में आपकी आवश्यकतानुसार, मान लीजिए कि इसे बदल दें "-" जोड़ना - शब्दों के बीच। |
नीचे दिखाए गए स्क्रीनशॉट के अनुसार टेक्स्ट और संख्याओं के बीच विशिष्ट वर्ण जोड़ने के लिए, यहां दो विधियां प्रदान की गई हैं।
9.1 सूत्र के साथ टेक्स्ट और संख्याओं के बीच वर्ण जोड़ें
यदि पाठ संख्याओं के सामने हैं, तो सामान्य सूत्र है
ट्रिम(प्रतिस्थापन(स्ट्रिंग,मिन(खोजें({1,2,3,4,5,6,7,8,9,0},स्ट्रिंग&"1234567890")),0,"-"))
उदाहरण के तौर पर उपरोक्त मामले का उपयोग करते हुए, कृपया सूत्र का उपयोग इस प्रकार करें:
=TRIM(REPLACE(B4,MIN(FIND({1,2,3,4,5,6,7,8,9,0},B4&"1234567890")),0,"-"))
दबाएँ दर्ज पहला परिणाम प्राप्त करने के लिए कुंजी, फिर इस सूत्र को भरने के लिए अन्य कोशिकाओं पर ऑटो भरण हैंडल खींचें।
यदि संख्याएँ पाठ के सामने हैं, तो सामान्य सूत्र है
बाएँ(स्ट्रिंग,SUM(LEN(स्ट्रिंग)-LEN(स्थानापन्न(स्ट्रिंग,{0,1,2,3,4,5,6,7,8,9},""))))&"।"&दाएं (स्ट्रिंग,LEN(B13)- SUM(LEN(स्ट्रिंग)-LEN(स्थानापन्न(स्ट्रिंग, {0,1,2,3,4,5,6,7,8,9}, ""))))
उपरोक्त मामले को उदाहरण के रूप में उपयोग करते हुए, कृपया सूत्र का उपयोग इस प्रकार करें:
=LEFT(B13,SUM(LEN(B13)-LEN(SUBSTITUTE(B13,{0,1,2,3,4,5,6,7,8,9},""))))&"."&RIGHT(B13,LEN(B13)- SUM(LEN(B13)-LEN(SUBSTITUTE(B13, {0,1,2,3,4,5,6,7,8,9}, ""))))
दबाएँ दर्ज पहला परिणाम प्राप्त करने के लिए कुंजी, फिर इस सूत्र को भरने के लिए अन्य कोशिकाओं पर ऑटो भरण हैंडल खींचें।
9.2 फ्लैश फिल के साथ टेक्स्ट और संख्याओं के बीच वर्ण जोड़ें
यदि आप Excel 2013 या बाद के संस्करणों में हैं, तो फ्लैश भरें यह टेक्स्ट और संख्याओं के बीच वर्ण जोड़ने में भी आपकी मदद कर सकता है।
मूल डेटा के आगे, नया डेटा टाइप करें जिसमें टेक्स्ट और संख्याओं के बीच वर्ण जोड़े गए हैं। फिर पहले परिणाम के अगले सेल पर जाने के लिए Enter कुंजी दबाएँ।
और दबाएँ कंट्रोल + E फ्लैश फिल को सक्षम करने के लिए कुंजियाँ।
विस्तार
यह ट्यूटोरियल टेक्स्ट जोड़ने के बारे में कुछ परिदृश्यों को भी सूचीबद्ध करता है जिनका सामना हम अपने दैनिक जीवन या कार्य में कर सकते हैं।
कभी-कभी, आपको फ़ोन नंबरों या सामाजिक नंबरों के क्रम में डैश जैसे विभाजक जोड़ने की आवश्यकता होती है, जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है। यदि सैकड़ों संख्याएँ जोड़ने की आवश्यकता होगी तो मैन्युअल टाइपिंग का प्रयास किया जाएगा। इस भाग में, यह इस कार्य को शीघ्रता से निपटाने के तीन युक्तिपूर्ण तरीकों का परिचय देता है।
10.1 सूत्र के अनुसार संख्याओं में डैश जोड़ें
यहां दो सूत्र दिए गए हैं जिनसे संख्याओं में शीघ्रता से डैश जोड़ा जा सकता है। सेल B3 में तीसरे और छठे नंबर के बाद डैश जोड़ने के लिए, कृपया इस प्रकार सूत्र का उपयोग करें:
फ़ंक्शन बदलें
=प्रतिस्थापन(प्रतिस्थापन(बी3,4,0,"-"),8,0,"-")
पाठ समारोह
=पाठ(बी3,"???-???-???")
दबाएँ दर्ज पहला परिणाम प्राप्त करने के लिए कुंजी, फिर अन्य कोशिकाओं पर ऑटो भरण हैंडल खींचें।
ध्यान दें: आप आवश्यकतानुसार उपरोक्त सूत्रों के तर्क बदल सकते हैं। मान लीजिए जोड़ें "-" दूसरे, चौथे और छठे अंक के बाद, आप सूत्रों का उपयोग इस प्रकार कर सकते हैं: =प्रतिस्थापन(प्रतिस्थापन(प्रतिस्थापन(बी3,3,0,"-"),6,0,"-"),9,0,"-") =पाठ(बी3,"??-??-??-???") |
10.2 फ़ॉर्मेट सेल द्वारा संख्याओं में डैश जोड़ें
मूल कक्षों में संख्याओं में सीधे डैश जोड़ने के लिए, आप इसका उपयोग कर सकते हैं प्रारूप प्रकोष्ठों सुविधा.
1. उन नंबरों का चयन करें जिनमें आप डैश जोड़ना चाहते हैं, फिर दबाएँ कंट्रोल + 1 सक्षम करने के लिए कुंजियाँ प्रारूप प्रकोष्ठों संवाद।
2। में प्रारूप प्रकोष्ठों संवाद, के तहत नंबर टैब चुनें रिवाज से वर्ग अनुभाग।
3. फिर दाईं ओर प्रकार अनुभाग, प्रकार ###-###-### टेक्स्टबॉक्स में, क्लिक करें OK.
अब चयनित नंबरों पर डैश जोड़ दिए गए हैं।
10.3 Excel के लिए Kutools के टेक्स्ट जोड़ें द्वारा फ़ोन नंबर में डैश जोड़ें
यदि आपके पास एक्सेल के लिए कुटूल एक्सेल में स्थापित, पाठ जोड़ें सुविधा भी आप पर उपकार कर सकती है।
1. उन कक्षों का चयन करें जिनमें डैश जोड़ने के लिए आवश्यक संख्याएँ हैं, क्लिक करें कुटूल > टेक्स्ट > लेख जोड़ें।
2। में पाठ जोड़ें संवाद, डैश या अन्य विभाजक टाइप करें टेक्स्ट टेक्स्टबॉक्स, चुनें निर्दिष्ट करें विकल्प, फिर उन पदों को टाइप करें जिनके बाद आप डैश जोड़ना चाहते हैं और उन्हें नीचे दिए गए टेक्स्टबॉक्स में अल्पविराम से अलग करें।
3। क्लिक करें Ok या आवेदन करें. फिर चयनित संख्याओं में डैश जोड़ दिया गया है।
30-दिवसीय परीक्षण के लिए मुफ्त डाउनलोड टेक्स्ट जोड़ें।
मान लीजिए कि विभिन्न लंबाई में संख्याओं की एक सूची है, तो आप उन्हें समान लंबाई में बनाने और नीचे दिखाए गए स्क्रीनशॉट के अनुसार साफ दिखने के लिए अग्रणी शून्य जोड़ना चाहते हैं। यहां आपके लिए काम संभालने के लिए दो तरीके दिए गए हैं।
11.1 फ़ॉर्मेट सेल सुविधा के साथ सेल में अग्रणी शून्य जोड़ें
आप का उपयोग कर सकते हैं प्रारूप प्रकोष्ठों अग्रणी शून्य जोड़कर सेल की लंबाई तय करने के लिए एक कस्टम प्रारूप सेट करने की सुविधा।
1. उन कक्षों का चयन करें जिनमें आप अग्रणी शून्य जोड़ना चाहते हैं, फिर दबाएँ कंट्रोल + 1 सक्षम करने के लिए कुंजियाँ प्रारूप प्रकोष्ठों संवाद।
2। में प्रारूप प्रकोष्ठों संवाद, के तहत नंबर टैब चुनें रिवाज से वर्ग अनुभाग।
3. फिर दाईं ओर प्रकार अनुभाग, प्रकार 0000 टेक्स्टबॉक्स में (संख्या लंबाई को 4-डाइट पर ठीक करने के लिए, 0000 टाइप करें, आप इसे अन्य लंबाई में बदल सकते हैं, जैसे 5-डाइट, टाइप 00000), क्लिक करें OK.
फिर संख्याओं में अग्रणी शून्य और समान लंबाई में जोड़ा गया है।
ध्यान दें: यदि मूल डेटा की लंबाई निर्धारित लंबाई से अधिक है, तो यह मूल डेटा को अग्रणी शून्य के बिना प्रदर्शित करेगा। |
11.2 सूत्र वाले कक्षों में अग्रणी शून्य जोड़ें
यदि आप मूल डेटा को बदलना नहीं चाहते हैं, तो आप अन्य स्थानों की संख्याओं में अग्रणी शून्य जोड़ने के लिए सूत्र का उपयोग कर सकते हैं।
यहां तीन फ़ंक्शन आपकी मदद कर सकते हैं।
फॉर्मूला1 टेक्स्ट फ़ंक्शन
पाठ(संख्या,"00...")
फॉर्मूला2 राइट फ़ंक्शन
दाएँ('00...'&संख्या,लंबाई)
फॉर्मूला3 बेस फ़ंक्शन
आधार(संख्या,10,लंबाई)
सूत्र में शून्य की संख्या संख्या की लंबाई के बराबर है।
यहां आप संख्याओं की लंबाई के रूप में 4-अंक निर्धारित करते हैं, कृपया नीचे दिए गए सूत्रों का उपयोग करें:
=पाठ(बी10,"0000")
=दाएं('0000'&बी10,4)
=आधार(बी10,10,4)
दबाएँ दर्ज कुंजी दबाएं और स्वतः भरण हैंडल को नीचे खींचें।
ध्यान दें: यदि मूल डेटा की लंबाई निर्धारित लंबाई से अधिक है, तो यह मूल डेटा को अग्रणी शून्य के बिना प्रदर्शित करेगा। |
यदि आप एक निश्चित लंबाई बनाने के लिए संख्याओं में अनुगामी शून्य जोड़ना चाहते हैं, मान लीजिए कि सेल B3:B7 में संख्याओं में अनुगामी शून्य जोड़कर उन्हें 5-अंकीय लंबाई में बनाना है जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है, तो आप कार्य से निपटने के लिए एक सूत्र लागू कर सकते हैं .
आरईपीटी फ़ंक्शन
संख्या&REPT("0",लंबाई-LEN(संख्या))
सूत्र में, तर्क "संख्या" उस संख्या या सेल संदर्भ का प्रतिनिधित्व करता है जिसे आप अनुगामी शून्य जोड़ना चाहते हैं, और तर्क "लंबाई" वह निश्चित लंबाई है जो आप चाहते हैं।
कृपया सूत्र का उपयोग इस प्रकार करें:
=बी3&आरईपीटी("0",5-एलईएन(बी3))
दबाएँ दर्ज कुंजी और स्वतः भरण हैंडल को उन कक्षों तक नीचे खींचें जिन्हें इस सूत्र की आवश्यकता है।
यदि आप वर्कशीट से डेटा को नोटपैड में निर्यात या कॉपी करना चाहते हैं, तो टेक्स्ट को अव्यवस्थित रूप से रखा जा सकता है क्योंकि सेल मान अलग-अलग लंबाई में हैं, उन्हें नीचे स्क्रीनशॉट में दिखाए गए अनुसार साफ-सुथरा दिखाने के लिए, आपको अनुगामी स्थान जोड़ने की आवश्यकता है।
इस कार्य को हल करने के लिए, आरईपीटी फ़ंक्शन आपकी मदद कर सकता है।
बाएँ(पाठ और REPT(" ",अधिकतम_लंबाई),अधिकतम_लंबाई)
सूत्र में, तर्क "पाठ" वह पाठ या सेल संदर्भ है जिसे आप अनुगामी स्थान जोड़ना चाहते हैं, और तर्क "max_length" वह निश्चित लंबाई है जिसे आप पाठ बनाना चाहते हैं, जो इससे अधिक लंबा या उसके बराबर होना चाहिए प्रयुक्त पाठ की अधिकतम लंबाई.
सेल B3:C6 में टेक्स्ट में पिछला स्थान जोड़ने के लिए, कृपया नीचे दिए गए सूत्र का उपयोग करें:
=बाएं(बी3 और आरईपीटी('',10),10)
दबाएँ दर्ज कुंजी, फिर ऑटो भरण हैंडल को इस सूत्र की आवश्यकता वाले सभी कक्षों पर खींचें।
इस मामले में, चूंकि प्रयुक्त पाठ में सबसे लंबा 9-अक्षर है, इसलिए हम यहां 10 का उपयोग करते हैं।
कभी-कभी, आपको सेल में टेक्स्ट या संख्याओं के चारों ओर उद्धरण चिह्न या ब्रैकेट जोड़ने की आवश्यकता होती है जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है, एक-एक करके मैन्युअल टाइपिंग को छोड़कर, एक्सेल में दो तरीके हैं जो इसे तुरंत हल कर सकते हैं।
14.1 फ़ॉर्मेट सेल के अनुसार उद्धरण चिह्न/कोष्ठक जोड़ें
यदि आप मूल डेटा में टेक्स्ट के चारों ओर उद्धरण चिह्न जोड़ना चाहते हैं, तो एक्सेल में फ़ॉर्मेट सेल सुविधा आपकी मदद कर सकती है।
1. उन कक्षों का चयन करें जिनमें आप उद्धरण चिह्न जोड़ना चाहते हैं, दबाएँ कंट्रोल + 1 सक्षम करने के लिए कुंजियाँ प्रारूप प्रकोष्ठों संवाद।
2। में प्रारूप प्रकोष्ठों संवाद, के अंतर्गत नंबर टैब चुनें रिवाज की सूची से वर्ग, फिर टाइप करने के लिए दाएं सेक्शन पर जाएं ''''@'''' में प्रकार पाठ बॉक्स। क्लिक OK.
चयनित कक्षों में पाठ को उद्धरण चिह्नों के साथ जोड़ा गया है।
यदि आप टेक्स्ट के चारों ओर ब्रैकेट जोड़ना चाहते हैं, तो फ़ॉर्मेट सेल संवाद के टाइप टेक्स्टबॉक्स में, इसका उपयोग करें (@).
14.2 सूत्रों के अनुसार उद्धरण चिह्न/कोष्ठक जोड़ें
सूत्रों का उपयोग अन्य कक्षों में पाठ में उद्धरण चिह्न जोड़ने के लिए भी किया जा सकता है।
उपयोग और कनेक्टर
""""&मूलपाठ&""""
Or
चार(34)&पाठ&चार(34)
इस मामले में, सेल बी11 में टेक्स्ट, कृपया सूत्रों का उपयोग इस प्रकार करें:
= """&B11&""""
Or
=चार(34)&बी11&चार(34)
दबाएँ दर्ज कक्षों को भरने के लिए कुंजी और स्वतः भरण हैंडल को नीचे खींचें।
यदि आप टेक्स्ट के चारों ओर कोष्ठक जोड़ना चाहते हैं, तो सूत्र का उपयोग करें "("&मूलपाठ&")".
14.3 वीबीए के अनुसार उद्धरण चिह्न/कोष्ठक जोड़ें
यदि आपको इस कार्य को हल करने के लिए VBA कोड की आवश्यकता है, तो यहां एक VBA है।
1। दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2. फिर पॉपिंग विंडो में क्लिक करें सम्मिलित करें > मॉड्यूल एक रिक्त नया मॉड्यूल सम्मिलित करने के लिए।
3. नीचे दिए गए वीबीए कोड को नए मॉड्यूल में कॉपी और पेस्ट करें।
वीबीए: टेक्स्ट के चारों ओर उद्धरण चिह्न जोड़ें
Sub addquotationmarksorbrackets()
'UpdatebyExtendOffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.Value = """" & Rng.Value & """"
Next
End Sub
ध्यान दें: कोड स्क्रिप्ट में, """" और Rng.वैल्यू और """" टेक्स्ट के चारों ओर "" जोड़ने का संकेत देता है, यदि आप टेक्स्ट के चारों ओर कोष्ठक () जोड़ना चाहते हैं, तो इसे बदल दें "(" और Rng.वैल्यू और ")". |
4। दबाएँ F5 कुंजी या क्लिक रन बटन VBA कोड को सक्रिय करने के लिए विंडो में। उद्धरण जोड़ने के लिए कक्षों का चयन करने के लिए एक संवाद पॉप आउट होता है।
5। क्लिक करें OK. अब चयनित कक्षों में पाठ के चारों ओर उद्धरण चिह्न जोड़ दिए गए हैं।
कभी-कभी, अन्य उपयोगकर्ताओं को डेटा को बेहतर ढंग से समझने में मदद करने के लिए, आपको नीचे स्क्रीनशॉट में दिखाए अनुसार फॉर्मूला परिणामों में टेक्स्ट जोड़ने की आवश्यकता हो सकती है। सूत्र में पाठ को शामिल करने के लिए, आप पाठ के चारों ओर उद्धरण चिह्नों का उपयोग कर सकते हैं और पाठ और सूत्र को एक साथ संयोजित करने के लिए & कनेक्टर जोड़ सकते हैं।
केस 1 सूत्र से पहले पाठ जोड़ें
"आज "&TEXT(TODAY(),"dddd, mmmm dd.") है
केस 2 के बाद टेक्स्ट जोड़ें सूत्र
टेक्स्ट(अब(),"एचएच:एमएम:एसएस")&" वर्तमान समय है।"
केस 3 सूत्र के दोनों ओर पाठ जोड़ें
"आज "&डेटा&" किलो बेचा गया।"
अधिक एक्सेल ट्यूटोरियल: |
एकाधिक कार्यपुस्तिकाओं/कार्यपत्रकों को एक में संयोजित करें पाठ, संख्या और दिनांक कक्षों को विभाजित करें (कई स्तंभों में अलग करें) Excel में डेटा खोए बिना एकाधिक कक्षों की सामग्री को संयोजित करें एक्सेल में मिलान और अंतर के लिए दो कॉलम की तुलना करें |
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल आपकी अधिकांश समस्याओं का समाधान करता है, और आपकी उत्पादकता को 80% तक बढ़ाता है
- सुपर फॉर्मूला बार (पाठ और सूत्र की अनेक पंक्तियों को आसानी से संपादित करें); लेआउट पढ़ना (बड़ी संख्या में सेल को आसानी से पढ़ें और संपादित करें); फ़िल्टर की गई रेंज में चिपकाएँ...
- कक्षों/पंक्तियों/स्तंभों को मर्ज करें और डेटा रखना; विभाजित कोशिकाओं की सामग्री; डुप्लिकेट पंक्तियों और योग/औसत को संयोजित करें... डुप्लिकेट सेल रोकें; रेंज की तुलना करें...
- डुप्लिकेट या अद्वितीय का चयन करें पंक्तियाँ; रिक्त पंक्तियाँ चुनें (सभी कोशिकाएँ खाली हैं); सुपर फाइंड और फ़ज़ी फाइंड कई कार्यपुस्तिकाओं में; यादृच्छिक चयन...
- सटीक प्रति सूत्र संदर्भ बदले बिना एकाधिक कक्ष; स्वतः संदर्भ बनाएँ एकाधिक शीट्स के लिए; बुलेट डालें, चेक बॉक्स और बहुत कुछ...
- पसंदीदा और त्वरित रूप से सम्मिलित सूत्र, रेंज, चार्ट और चित्र; कोशिकाओं को एन्क्रिप्ट करें पासवर्ड के साथ; मेलिंग सूची बनाएं और ईमेल भेजें...
- पाठ निकालें, टेक्स्ट जोड़ें, स्थिति के अनुसार हटाएँ, अंतरिक्ष निकालें; पेजिंग सबटोटल बनाएं और प्रिंट करें; सेल सामग्री और टिप्पणियों के बीच कनवर्ट करें...
- सुपर फ़िल्टर (फ़िल्टर योजनाओं को अन्य शीटों पर सहेजें और लागू करें); उन्नत सॉर्ट महीने/सप्ताह/दिन, आवृत्ति और अधिक के अनुसार; विशेष फ़िल्टर बोल्ड, इटैलिक द्वारा...
- वर्कबुक और वर्कशीट को मिलाएं; प्रमुख स्तंभों के आधार पर तालिकाएँ मर्ज करें; डेटा को एकाधिक शीट में विभाजित करें; बैच कनवर्ट xls, xlsx और पीडीएफ...
- पिवोट टेबल ग्रुपिंग द्वारा सप्ताह संख्या, सप्ताह का दिन और बहुत कुछ... अनलॉक, लॉक किए गए सेल दिखाएँ विभिन्न रंगों से; उन कक्षों को हाइलाइट करें जिनमें सूत्र/नाम हो...
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!