सेलों में प्रत्येक x वर्णों के बाद स्थान कैसे डालें/जोड़ें?
यदि आपके पास वर्कशीट की सूची में एकाधिक टेक्स्ट स्ट्रिंग्स हैं, तो अब, आप निम्न स्क्रीनशॉट में दिखाए गए अनुसार सेल में प्रत्येक 3 या x वर्णों के बाद स्थान डालना चाहते हैं। आप एक्सेल में इस समस्या को जल्दी और आसानी से कैसे हल कर सकते हैं?
|
|
VBA कोड वाले कक्षों में प्रत्येक x वर्ण के बाद स्थान डालें/जोड़ें Excel के लिए Kutools के साथ कक्षों में प्रत्येक x वर्णों के बाद स्थान डालें/जोड़ें |
VBA कोड वाले कक्षों में प्रत्येक x वर्ण के बाद स्थान डालें/जोड़ें
निम्नलिखित वीबीए कोड को लागू करके, आप एक साथ कई कोशिकाओं के लिए प्रत्येक एन अक्षर के बाद तुरंत स्थान डाल सकते हैं, कृपया निम्नानुसार करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। तब दबायें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की.
VBA कोड: प्रत्येक x वर्ण के बाद स्थान डालें:
Sub addspace()
'updateby Extendoffice
Dim i As Long
Dim xCell As Range
Dim xRg As Range
Dim xTxt As String
Dim xStr As String
Dim xUpdate As Boolean
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In xRg
xStr = xCell.Text
xTxt = ""
For i = 1 To Len(xStr) Step 4
If xTxt = "" Then
xTxt = Mid(xStr, i, 4)
Else
xTxt = Trim(xTxt) & " " & Mid(xStr, i, 4)
End If
Next
xCell = xTxt
Next
Application.ScreenUpdating = xUpdate
End Sub
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और प्रॉम्प्ट बॉक्स में, कृपया उन कक्षों का चयन करें जिनमें आप स्थान डालना चाहते हैं, स्क्रीनशॉट देखें:
4। और फिर क्लिक करें OK बटन, और प्रत्येक चार वर्णों के बाद रिक्त स्थान को सेल सामग्री में डाला गया है, स्क्रीनशॉट देखें:
 |
 |
 |
नोट: उपरोक्त कोड में आप नंबर बदल सकते हैं 4 दूसरे नंबर के बाद स्पेस डालें। और आप इस नियम में सीमांकक स्थान को अन्य सीमांकक में भी बदल सकते हैं xTxt = ट्रिम(xTxt) और " " और मध्य(xStr, i, 4) उपरोक्त कोड का.
Excel के लिए Kutools के साथ कक्षों में प्रत्येक x वर्णों के बाद स्थान डालें/जोड़ें
एक्सेल के लिए कुटूलहै पाठ जोड़ें यह सुविधा आपको इस समस्या को जल्दी और आसानी से हल करने में भी मदद कर सकती है।
| एक्सेल के लिए कुटूल : 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क. |
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया निम्नानुसार करें :( एक्सेल के लिए अभी नि:शुल्क कुटूल डाउनलोड करें! )
1. उन टेक्स्ट स्ट्रिंग्स का चयन करें जिनमें आप स्थान सम्मिलित करना चाहते हैं।
2। तब दबायें कुटूल > टेक्स्ट > पाठ जोड़ें, स्क्रीनशॉट देखें:
3. में पाठ जोड़ें डायलॉग बॉक्स में स्पेस बार को एक बार दबाएं टेक्स्ट बॉक्स, और चुनें निर्दिष्ट करें के तहत विकल्प पद, फिर वे स्थान टाइप करें जिनमें आप स्थान सम्मिलित करना चाहते हैं, स्क्रीनशॉट देखें:
4। और फिर क्लिक करें Ok or लागू करें बटन, आपको परिणाम मिलेगा कि प्रत्येक चार वर्णों के बाद आपकी आवश्यकता के अनुसार रिक्त स्थान डाला गया है।
टिप्स: निर्दिष्ट टेक्स्टबॉक्स में पदों की संख्या को अल्पविराम से अलग किया जाना चाहिए।
एक्सेल के लिए अभी नि:शुल्क कुटूल डाउनलोड करें!
संबंधित लेख:
कोशिकाओं में प्रत्येक x वर्णों में कुछ निश्चित वर्ण कैसे जोड़ें/प्रविष्ट करें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
