दुर्भाग्य से, एक्सेल में बड़े अक्षरों से पहले रिक्त स्थान जोड़ने का कोई सीधा तरीका नहीं है, लेकिन, आप इस कार्य को हल करने के लिए उपयोगकर्ता परिभाषित फ़ंक्शन बना सकते हैं।

1. अपनी वर्कशीट को सक्रिय करें जिसमें टेक्स्ट स्ट्रिंग्स हैं जिन्हें आप रिक्त स्थान जोड़ना चाहते हैं।

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

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

वीबीए कोड: बड़े अक्षरों से पहले रिक्त स्थान डालें

Function AddSpaces(pValue As String) As String
'Update 20140723
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
AddSpaces = xOut
End Function

4. फिर इस कोड को सहेजें और बंद करें, वर्कशीट पर वापस जाएं और इस सूत्र को दर्ज करें =स्थान जोड़ें(A1) अपने डेटा के अलावा एक रिक्त सेल में, स्क्रीनशॉट देखें:

5. और फिर भरण हैंडल को उस सीमा पर खींचें जिसमें आप इस सूत्र को शामिल करना चाहते हैं, आपको अपने प्रत्येक बड़े अक्षर से पहले रिक्त स्थान मिलेंगे।

कोशिकाओं में अग्रणी/पिछली/अतिरिक्त रिक्त स्थान को आसानी से हटाएं

एक्सेल के लिए कुटूल रिक्त स्थान हटाएँ उपयोगिता एक्सेल उपयोगकर्ताओं को चयनित सेल से सभी प्रमुख स्थान, अनुगामी स्थान, अतिरिक्त स्थान या सभी रिक्त स्थान को आसानी से हटाने में सक्षम बनाती है।

यहां एक और वीबीए कोड है जो आपकी मदद कर सकता है, कृपया निम्नानुसार कार्य करें:

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

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

वीबीए कोड: बड़े अक्षरों से पहले रिक्त स्थान डालें

Sub AddSpacesRange()
'Update 20140723
Dim Rng As Range
Dim WorkRng As Range
Dim xOut As String
Dim xValue As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each Rng In WorkRng
    xValue = Rng.Value
    xOut = VBA.Left(xValue, 1)
    For i = 2 To VBA.Len(xValue)
       xAsc = VBA.Asc(VBA.Mid(xValue, i, 1))
       If xAsc >= 65 And xAsc <= 90 Then
          xOut = xOut & " " & VBA.Mid(xValue, i, 1)
       Else
          xOut = xOut & VBA.Mid(xValue, i, 1)
       End If
    Next
    Rng.Value = xOut
Next
Application.ScreenUpdating = True
End Sub

3। फिर दबायें F5 इस कोड को निष्पादित करने के लिए कुंजी, एक प्रॉम्प्ट बॉक्स आपको उस डेटा श्रेणी का चयन करने देगा जिसे आप उपयोग करना चाहते हैं।

4। और फिर क्लिक करें OK इस प्रॉम्प्ट बॉक्स को बंद करने के लिए, बड़े अक्षरों से पहले एक ही बार में रिक्त स्थान डाला गया है, स्क्रीनशॉट देखें:

एक्सेल के लिए कुटूल पाठ जोड़ें उपयोगिता आपको वीबीए मैक्रोज़ को बायपास करने और एक्सेल में प्रत्येक बड़े अक्षर से पहले आसानी से स्थान डालने में मदद कर सकती है।

1. उस श्रेणी का चयन करें जहां आप बड़े अक्षरों से पहले स्थान डालेंगे, और क्लिक करें कुटूल > टेक्स्ट > पाठ जोड़ें. स्क्रीनशॉट देखें:

2. आरंभिक टेक्स्ट जोड़ें संवाद बॉक्स में, एक स्थान टाइप करें टेक्स्ट बॉक्स, चेक करें केवल विकल्प में जोड़ें का चयन करें और पहला अक्षर अपरकेस है से केवल जोड़ें ड्रॉप डाउन सूची।

3। दबाएं Ok दिखाए गए स्क्रीन शॉट के अनुसार प्रत्येक बड़े अक्षर से पहले स्थान डालने के लिए बटन:

नोट्स: यदि पहला अक्षर बड़ा है तो यह विधि कोशिकाओं की शुरुआत में भी स्थान जोड़ेगी। आप आवेदन कर सकते हैं कुटूल > टेक्स्ट > रिक्त स्थान हटाएँ चयनित कक्षों से सभी प्रमुख रिक्त स्थान हटाने के लिए।

Excel में अल्पविराम के बाद रिक्त स्थान कैसे जोड़ें?