कोशिकाओं में प्रत्येक x वर्णों में कुछ निश्चित वर्ण कैसे जोड़ें/प्रविष्ट करें?
मान लीजिए, मेरे पास टेक्स्ट स्ट्रिंग्स की एक सूची है जिसे मैं निम्नलिखित स्क्रीनशॉट परिणाम प्राप्त करने के लिए प्रत्येक चार अक्षरों के बाद कोशिकाओं में डैश या कोई अन्य विभाजक डालना चाहता हूं। किसी निश्चित वर्ण को सम्मिलित करने के लिए बहुत अधिक कक्षों की आवश्यकता होती है, क्या एक्सेल में हर चार वर्णों में डैश डालने का कोई त्वरित तरीका है?
वीबीए कोड के साथ सेल में प्रत्येक x अक्षर में कुछ निश्चित अक्षर डालें
Excel के लिए Kutools के साथ प्रत्येक x वर्णों को सेल में कुछ वर्ण सम्मिलित करें
वीबीए कोड के साथ सेल में प्रत्येक x अक्षर में कुछ निश्चित अक्षर डालें
आप कक्षों में प्रत्येक चार वर्णों के बाद एक विशिष्ट वर्ण सम्मिलित करने के लिए निम्नलिखित VBA कोड लागू कर सकते हैं, कृपया निम्नानुसार करें:
1. दबाए रखें ALT + F11 एक्सेल में कुंजियाँ, और यह खुलता है अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: सेल में प्रत्येक x अक्षर में कुछ अक्षर डालें
Sub InsertCharacter()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim xRow As Integer
Dim xChar As String
Dim index As Integer
Dim arr As Variant
Dim xValue As String
Dim outValue As String
Dim xNum As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("Number of characters :", xTitleId, Type:=1)
xChar = Application.InputBox("Specify a character :", xTitleId, Type:=2)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xNum = 1
For Each Rng In InputRng
xValue = Rng.Value
outValue = ""
For index = 1 To VBA.Len(xValue)
If index Mod xRow = 0 And index <> VBA.Len(xValue) Then
outValue = outValue + VBA.Mid(xValue, index, 1) + xChar
Else
outValue = outValue + VBA.Mid(xValue, index, 1)
End If
Next
OutRng.Cells(xNum, 1).Value = outValue
xNum = xNum + 1
Next
End Sub
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको उस डेटा श्रेणी का चयन करने के लिए याद दिलाने के लिए पॉप अप होगा जिसमें आप टेक्स्ट स्ट्रिंग्स के भीतर कुछ वर्ण सम्मिलित करना चाहते हैं, स्क्रीनशॉट देखें:
4. और क्लिक करें OK, निम्नलिखित प्रॉम्प्ट बॉक्स में, कृपया वह संख्या दर्ज करें जिसमें आप प्रत्येक के बाद कुछ निश्चित अक्षर डालना चाहते हैं, स्क्रीनशॉट देखें:
5. क्लिक करते जाइये OK, और निम्नलिखित प्रॉम्प्ट बॉक्स में, कृपया वह निश्चित वर्ण दर्ज करें जिसे आप टेक्स्ट में जोड़ना चाहते हैं, स्क्रीनशॉट देखें:
6। क्लिक करें OK बटन, और एक सेल चुनें जहां आप प्रॉम्प्ट बॉक्स में परिणाम आउटपुट करना चाहते हैं, स्क्रीनशॉट देखें:
7. अंत में क्लिक करें OK, प्रत्येक पाठ स्ट्रिंग में प्रत्येक चार वर्णों पर एक निश्चित वर्ण डाला गया है, स्क्रीनशॉट देखें:
Excel के लिए Kutools के साथ प्रत्येक x वर्णों को सेल में कुछ वर्ण सम्मिलित करें
उपरोक्त कोड अधिकांश एक्सेल शुरुआती लोगों के लिए कुछ हद तक कठिन हो सकता है, यहां, मैं एक उपयोगी टूल पेश कर सकता हूं - एक्सेल के लिए कुटूल, के साथ अपने पाठ जोड़ें सुविधा, आप सेल मान के पहले, बाद में या निश्चित स्थिति में एक विशिष्ट पाठ या वर्ण को तुरंत जोड़ सकते हैं।
एक्सेल के लिए कुटूल : 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क. |
यदि आपने स्थापित किया है एक्सेल के लिए कुटूल, कृपया निम्नानुसार करें:
1. उस डेटा श्रेणी का चयन करें जिसमें आप एक विशिष्ट वर्ण सम्मिलित करना चाहते हैं।
2। तब दबायें कुटूल > टेक्स्ट > पाठ जोड़ें, स्क्रीनशॉट देखें:
3. में पाठ जोड़ें संवाद बॉक्स में, वह वर्ण निर्दिष्ट करें जिसे आप सम्मिलित करना चाहते हैं टेक्स्ट बॉक्स, और फिर चुनें पद से निर्दिष्ट करें अनुभाग, टेक्स्ट बॉक्स में, वह स्थिति दर्ज करें जिसके बाद आप वर्ण सम्मिलित करना चाहते हैं, साथ ही, आप दाएँ फलक पर परिणाम का पूर्वावलोकन कर सकते हैं, स्क्रीनशॉट देखें:
टिप्स: यहां मैं टेक्स्टबॉक्स में 4,8,12 टाइप करता हूं निर्दिष्ट करें जो टेक्स्ट स्ट्रिंग के चौथे, 4वें और 8वें अक्षर के बाद विशिष्ट टेक्स्ट डालने का संकेत देता है।
4. तब क्लिक करो Ok or लागू करें बटन, निर्दिष्ट वर्ण को विशिष्ट स्थानों पर सेल मानों में डाला गया है।
इस ऐड टेक्स्ट उपयोगिता के बारे में अधिक विवरण जानने के लिए क्लिक करें।
एक्सेल के लिए कुटूल अभी डाउनलोड करें और निःशुल्क परीक्षण करें!
डेमो: Excel के लिए Kutools के साथ प्रत्येक x वर्णों को सेल में कुछ वर्ण डालें
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!