इस लेख में, मैं आपको दिखाऊंगा कि आप सूत्रों को कैसे हटा सकते हैं VBA . के साथ मानों और फ़ॉर्मेटिंग को बनाए रखते हुए Excel में किसी कार्यपत्रक से . सबसे पहले, आप सेल की चयनित श्रेणी से, फिर संपूर्ण वर्कशीट से फ़ार्मुलों को निकालना सीखेंगे।
VBA एक्सेल कीपिंग वैल्यूज़ और फ़ॉर्मेटिंग (त्वरित दृश्य) में फ़ार्मुलों को निकालने के लिए
Sub Remove_Formulas_from_Selected_Range()
Dim Rng As Range
Set Rng = Selection
Rng.Copy
Rng.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
End Sub
⧭ संहिता की व्याख्या:
- यह कोड एक मैक्रो . बनाता है जिसे Remove_Formulas_from_Selected_Range . कहा जाता है ।
- सबसे पहले, यह उपयोगकर्ता द्वारा चयनित श्रेणी के सभी कक्षों से मानों की प्रतिलिपि बनाता है।
- फिर यह प्रारूपों को बरकरार रखते हुए संबंधित कोशिकाओं में मूल्यों को चिपकाता है।
- इस प्रकार यह मानों और फ़ॉर्मेटिंग को बनाए रखते हुए कक्षों की चयनित श्रेणी से सभी फ़ार्मुलों को हटा देता है।
एक्सेल में फ़ॉर्मूला निकालने के 2 तरीके VBA के साथ मान और फ़ॉर्मेटिंग को बनाए रखना
यहां हमें नामों . के साथ एक डेटा सेट मिला है , शुरुआती वेतन , और वर्तमान वेतन Jupyter Group नामक कंपनी के कुछ कर्मचारियों की।
साथ ही, हमारे पास औसत वेतन . है , उच्चतम वेतन वाले कर्मचारी का नाम, और वह सबसे कम वेतन . के साथ कार्यपत्रक के अलग-अलग कक्षों में।
यहां, प्रत्येक कर्मचारी का वर्तमान वेतन प्रारंभिक वेतन का 20% है।
यानी सेल D4 सूत्र है:
=C4+(C4*20)/100 D5 सूत्र है:
=C5+(C5*20)/100
और इसी तरह।
सेल G7 सूत्र के साथ औसत वेतन है:
=AVERAGE(D4:D13)
<मजबूत> 
सेल H7 कर्मचारी के पास सूत्र के साथ उच्चतम वेतन है:
=INDEX(B4:D13,MATCH(MAX(D4:D13),D4:D13,0),1) और सेल I7 सूत्र के साथ सबसे कम वेतन वाला कर्मचारी है:
=INDEX(B4:D13,MATCH(MIN(D4:D13),D4:D13,0),1)
आज हम मैक्रो . विकसित करेंगे विजुअल बेसिक एप्लिकेशन . का उपयोग करना (वीबीए ) जो मूल्यों और स्वरूपण को बरकरार रखते हुए इस वर्कशीट से फ़ार्मुलों को हटा देगा।
1. एक्सेल में फ़ॉर्मूला निकालने के लिए VBA एक चयनित श्रेणी से मान और फ़ॉर्मेटिंग को बनाए रखना
सबसे पहले, आइए एक मैक्रो . विकसित करें जो संपूर्ण कार्यपत्रक से नहीं, बल्कि कक्षों की एक विशिष्ट श्रेणी से फ़ार्मुलों को निकाल देगा।
उदाहरण के लिए, आइए केवल कर्मचारी रिकॉर्ड से फ़ार्मुलों को निकालने का प्रयास करें (B4:D13 )।
⧭ VBA कोड:
Sub Remove_Formulas_from_Selected_Range()
Dim Rng As Range
Set Rng = Selection
Rng.Copy
Rng.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
End Sub⧪ नोट: यह कोड एक मैक्रो . बनाता है जिसे Remove_Formulas_from_Selected_Range . कहा जाता है ।
⧭ आउटपुट:
सबसे पहले, फ़ाइल को पहले Excel मैक्रो-सक्षम कार्यपुस्तिका के रूप में सहेजें . फिर उन कक्षों की श्रेणी का चयन करें जहाँ से आप सूत्र निकालना चाहते हैं।
यहां मैं केवल कर्मचारी रिकॉर्ड से सूत्र निकालना चाहता हूं (B4:D13 ) इसलिए मैंने B4:D13 . श्रेणी का चयन किया है ।
फिर Remove_Formulas_from_Selected_Range नामक मैक्रो चलाएं।
( मैक्रो को विस्तार से कैसे चलाना है, यह देखने के लिए यह लेख पढ़ें )।
और आप सभी फ़ार्मुलों को अपने चयनित सेल की श्रेणी से हटा देंगे, मानों और फ़ॉर्मेटिंग को पीछे छोड़ते हुए।
और पढ़ें: एक्सेल में विशेष पेस्ट के बिना फॉर्मूला को वैल्यू में बदलें (5 आसान तरीके)
समान रीडिंग
- Excel में फ़िल्टर किए जाने पर फ़ॉर्मूला निकालें (3 तरीके)
- Excel में स्वचालित फ़ॉर्मूला कैसे निकालें (5 तरीके)
- एक्सेल में स्वचालित रूप से मूल्य में बदलने के लिए फॉर्मूला रोकें
- सूत्रों को एक्सेल में मूल्यों में कैसे बदलें (8 त्वरित तरीके)
2. एक्सेल में फ़ार्मुलों को हटाने के लिए वीबीए संपूर्ण वर्कशीट से मूल्यों और स्वरूपण को बनाए रखता है
पिछली पद्धति में, हमने एक मैक्रो . विकसित किया था सेल की चयनित श्रेणी से सूत्रों को निकालने के लिए।
अब, हम संपूर्ण कार्यपत्रक से सूत्र निकालने का प्रयास करेंगे।
निम्न VBA कोड का उपयोग करें इस उद्देश्य के लिए।
⧭ VBA कोड:
Sub Remove_Formulas_from_the_Whole_Worksheet()
Sheet_Name = InputBox("Enter the Name of the Worksheet to Remove Formulas: ")
Dim Rng As Range
Set Rng = Sheets(Sheet_Name).Cells
Rng.Copy
Rng.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
End Sub⧪ नोट: यह कोड एक मैक्रो . बनाता है जिसे Remove_Formulas_from_the_Whole_Worksheet कहा जाता है।
<मजबूत> 
⧭ आउटपुट:
अपनी कार्यपत्रक पर वापस आएं और मैक्रो . चलाएं जिसे Remove_Formulas_from_the_Whole_Worksheet . कहा जाता है ।
आपको एक इनपुट बॉक्स मिलेगा आपको उस वर्कशीट का नाम दर्ज करने के लिए कह रहा है जहाँ से आप फ़ार्मुलों को हटाना चाहते हैं।
यहां, मैं शीट2 . से सूत्रों को हटाना चाहता हूं , इसलिए मैंने पत्रक2 . दर्ज किया है ।
ठीकक्लिक करें ।
और आपको केवल मान और फ़ॉर्मेटिंग को ध्यान में रखते हुए, पूरी वर्कशीट से फ़ार्मुलों को हटा दिया जाएगा।
यह वर्तमान वेतन . से फ़ार्मुलों को हटा देता है कर्मचारियों की।
साथ ही, यह औसत वेतन . से फ़ार्मुलों को हटा देता है , उच्चतम वेतन वाला कर्मचारी , और सबसे कम वेतन वाला कर्मचारी ।
और पढ़ें: एक्सेल (7 तरीके) में फॉर्मूला के बजाय वैल्यू कैसे दिखाएं
याद रखने योग्य बातें
यहां हमने xlPasteValuesAndNumberFormats . का उपयोग किया है VBA . के साथ चिपकाने का विकल्प , जो Excel में कुछ मान चिपकाते समय मानों और स्वरूपण को अक्षुण्ण रखता है।
इसके साथ, 11 . हैं VBA . में मान चिपकाने के लिए और विकल्प , उनमें से प्रत्येक एक विशिष्ट प्रकार की पेस्टिंग करता है।
उन्हें विस्तार से जानने के लिए इस लिंक पर जाएं ।
निष्कर्ष
इन विधियों का उपयोग करके, आप मानों और स्वरूपण को VBA के साथ अपरिवर्तित रखते हुए Excel में किसी कार्यपत्रक से सूत्र निकाल सकते हैं . क्या आपका कोई प्रश्न है? बेझिझक हमसे पूछें।
संबंधित लेख
- फॉर्मूला परिणाम को एक्सेल में टेक्स्ट स्ट्रिंग में कैसे बदलें (7 आसान तरीके)
- एक्सेल (4 सामान्य मामले) में किसी अन्य कक्ष में सूत्र का परिणाम डालना
- एक्सेल में फॉर्मूला नहीं सेल का मान कैसे लौटाएं (3 आसान तरीके)
- एक्सेल में फॉर्मूला को स्वचालित रूप से वैल्यू में बदलें (6 प्रभावी तरीके)
- Excel में छिपे हुए फ़ार्मुलों को कैसे निकालें (5 त्वरित तरीके)