एक्सेल VBA TRIM फ़ंक्शन
VBA TRIM को स्ट्रिंग और टेक्स्ट फ़ंक्शंस के तहत वर्गीकृत किया गया है, यह फ़ंक्शन VBA में एक वर्कशीट फ़ंक्शन है और वर्कशीट संदर्भ के समान इस फ़ंक्शन का उपयोग स्ट्रिंग से अवांछित रिक्त स्थान को ट्रिम या निकालने के लिए किया जाता है, यह एक एकल तर्क लेता है जो एक इनपुट स्ट्रिंग है और एक स्ट्रिंग के रूप में एक आउटपुट देता है।
ऐसी कई स्थितियाँ हैं जहाँ हम ऑनलाइन सर्वर से डेटा डाउनलोड करते हैं, और हम सेल में असंगठित डेटा और अवांछित स्थानों की स्थिति का सामना करते हैं। अनावश्यक रिक्त स्थान के साथ काम करना बहुत दर्दनाक होता है। नियमित वर्कशीट फ़ंक्शंस में, हमारे पास "लीडिंग स्पेस, ट्रेलिंग स्पेस, और इन-बीच स्पेस" से छुटकारा पाने के लिए एक्सेल में TRIM नामक एक फ़ंक्शन है। VBA में, हमारे पास TRIM नामक एक फ़ंक्शन भी है, जो एक्सेल फ़ंक्शन के समान कार्य करता है, लेकिन केवल एक मामूली अंतर है। हम इस लेख में थोड़ी देर बाद देखेंगे।
ट्रिम फंक्शन क्या करता है?
TRIM एक स्ट्रिंग फ़ंक्शन है जो चयनित सेल से एक्सेल में रिक्त स्थान को हटाता है। अंतरिक्ष में, हमारे पास 3 प्रकार हैं "लीडिंग स्पेस, ट्रेलिंग स्पेस और इन-बीच स्पेस।"
लीडिंग स्पेस कुछ भी नहीं है, लेकिन सेल में कोई भी मूल्य शुरू होने से पहले, अगर कोई स्पेस है, तो उसे लीडिंग स्पेस कहा जाता है ।
ट्रेलिंग स्पेस और कुछ नहीं बल्कि सेल में वैल्यू खत्म होने के बाद अगर कोई स्पेस है, तो उसे ट्रेलिंग स्पेस कहा जाता है ।
प्रत्येक शब्द के अंत के बाद इन-बीच स्पेस कुछ भी नहीं है; आदर्श रूप में, हमारे पास एक अंतरिक्ष चरित्र होना चाहिए। एक से अधिक अंतरिक्ष वर्णों को इन-बीच अंतरिक्ष कहा जाता है ।
इन सभी प्रकार की समस्याओं को दूर करने के लिए, हमारे पास TRIM नामक एक फ़ंक्शन है।
वाक्य - विन्यास
स्ट्रिंग: वह स्ट्रिंग या मान क्या है जिसे आप ट्रिम करना चाहते हैं? यह सेल संदर्भ और साथ ही सूत्र को मूल्य की प्रत्यक्ष आपूर्ति हो सकती है।
उदाहरण
उदाहरण 1
अब हम देखेंगे कि TRIM फ़ंक्शन का उपयोग करके एक्सेल में अग्रणी स्थान कैसे हटाएं। नीचे दिए गए चरणों का पालन करें
चरण 1: एक मैक्रो नाम बनाएँ और स्ट्रिंग के रूप में एक चर घोषित करें।
कोड:
सब ट्रिम_Example1 () डिम के रूप में स्ट्रिंग एंड सब
चरण 2: अब, इस घोषित चर के लिए, TRIM का उपयोग करके एक मान प्रदान करें।
कोड:
Sub Trim_Example1 () Dim k As String k = ट्रिम (समाप्ति उप)
चरण 3: इस स्ट्रिंग प्रकार के लिए, दोहरे उद्धरण चिह्नों में "VBA में आपका स्वागत है।"
कोड:
Sub Trim_Example1 () Dim k As String k = Trim ("VBA में आपका स्वागत है") उप सब
चरण 4: अब संदेश बॉक्स में इस चर के परिणाम को दिखाएं।
कोड:
Sub Trim_Example1 () Dim k As String k = Trim ("VBA में आपका स्वागत है") MsgBox k End Sub
चरण 5: F5 कुंजी का उपयोग करके इस कोड को चलाएँ या मैन्युअल रूप से चलाएँ। हमें संदेश बॉक्स में एक सही स्ट्रिंग प्राप्त करना चाहिए।
आउटपुट:
तो, TRIM फ़ंक्शन ने उन सभी प्रमुख स्थानों को हटा दिया, जिन्हें हमने स्ट्रिंग मान में दर्ज किया है। अब परिणाम एक सही वाक्य है, अर्थात, "VBA में आपका स्वागत है।"
उदाहरण # 2
अब ट्रेलिंग स्पेस को हटाने के लिए एक और उदाहरण पर एक नज़र डालें। एक ही शब्द लें लेकिन इस बार, अनुगामी स्थानों में प्रवेश करें।
“VBA में आपका स्वागत है। “
कोड:
Sub Trim_Example2 () Dim k As String k = ट्रिम ("VBA में आपका स्वागत है") MsgBox k End Sub
इस कोड को मैन्युअल रूप से चलाएं या F5 कुंजी ट्रिम फ़ंक्शन के माध्यम से ट्रेलिंग रिक्त स्थान को हटा देता है।
आउटपुट:
उदाहरण # 3 - कक्षों में डेटा को साफ़ करें
अब हम एक्सेल कोशिकाओं में डेटा को साफ करने का व्यावहारिक उदाहरण देखेंगे। मान लें कि आपके पास अपनी एक्सेल शीट में नीचे जैसा डेटा सेट है।
When we have more than one cell data, we need to write different codes. Follow the below steps to write code.
Step 1: Declare a variable as “Range.”
Code:
Sub Trim_Example3() Dim MyRange As Range End Sub
Step 2: Since the range data type is an object, we need to set the range first. So set the range as “selection.”
Code:
Sub Trim_Example3() Dim MyRange As Range Set MyRange = Selection End Sub
Note: MyRange = Selection means whatever the cells I select becomes a range. So in that range, TRIM removes unwanted spaces.
Step 3: Now, using For Each VBA Loop, apply the TRIM function.
Code:
Sub Trim_Example3() Dim MyRange As Range Set MyRange = Selection For Each cell In MyRange cell.Value = Trim(cell) Next End Sub
Step 4: Now go back to the worksheet. Go to insert and draw a rectangular shape.
Step 5: Add a word to the inserted rectangular shape as click here to clean the data.
Step 6: Right-click on the rectangular shape and select the assigned macro.
Step 7: Now, the macro names box will open. Select the name of the macro we just created. Click on Ok.
Step 8: Now select the range where we need to clean the data.
Step 9: After selecting the range, click on the assigned macro rectangular box. It will clean the data.
So we got cleaned value, i.e., after removing leading & trailing spaces.
Difference Between Excel & VBA Trim Function
The only difference between them is VBA function cannot remove in between spaces while the worksheet function in VBA does. For example, take a look at the below example.
In cell A3, we have in-between spaces. If select and click on the rectangular shape, it will only remove trailing & leading spaces, not in-between spaces.
To overcome this problem, we need to use the trim function as a worksheet function in the code.
Code:
Sub Trim_Example3() Dim MyRange As Range Set MyRange = Selection For Each cell In MyRange cell.Value = WorksheetFunction.Trim(cell) Next End Sub
Here we have used a worksheet function, not a VBA function. This will remove all kinds of spaces.
Things to Remember
- VBA Trim & Worksheet Trim syntax is exactly the same.
- It can only remove leading & trailing spaces, not in-between spaces.
- एक्सेल ट्रिम फ़ंक्शन सभी प्रकार के रिक्त स्थान को निकाल सकता है।
