Excel में गैर-रिक्त कक्षों को विशिष्ट मान से कैसे बदलें?
एक्सेल में, हम किसी चयन को दबाकर किसी विशिष्ट मान को जल्दी और आसानी से बदल सकते हैं या भर सकते हैं Ctrl + Enter कुंजियाँ, लेकिन, क्या आप जानते हैं कि अपनी चयनित श्रेणी में केवल गैर-रिक्त कोशिकाओं को एक निश्चित मान से कैसे बदलें, जिसमें रिक्त कोशिकाएँ और मान कोशिकाएँ दोनों शामिल हैं।
ढूँढें और बदलें सुविधा का उपयोग करके गैर-रिक्त कोशिकाओं को विशिष्ट मान से बदलें
VBA कोड का उपयोग करके गैर-रिक्त कक्षों को विशिष्ट मान से बदलें
ढूँढें और बदलें सुविधा का उपयोग करके गैर-रिक्त कोशिकाओं को विशिष्ट मान से बदलें
एक्सेल में, ढूंढें और बदलें सुविधा हमें सभी गैर-रिक्त कोशिकाओं को ढूंढने में मदद कर सकती है और फिर उन्हें आपकी इच्छानुसार निर्दिष्ट मान से बदल सकती है।
1. उस डेटा श्रेणी का चयन करें जिसे आप केवल मान कक्षों से बदलना चाहते हैं।
2. और फिर दबाएं Ctrl + H को खोलने के लिए ढूँढें और बदलें डायलॉग बॉक्स में ढूँढें और बदलें संवाद, के अंतर्गत बदलें टैब, टाइप करें * में क्या पता फ़ील्ड, और वह मान दर्ज करें जिसकी आपको आवश्यकता है साथ बदलें टेक्स्ट बॉक्स, स्क्रीनशॉट देखें:
3। तब दबायें सभी को बदलें बटन, और एक संवाद पॉप आउट होकर आपको प्रतिस्थापित किए जाने वाले कक्षों की संख्या बताता है, संवाद बंद करें, फिर चयनित श्रेणी के सभी मान आपके निर्दिष्ट डेटा से बदल दिए गए हैं, स्क्रीनशॉट देखें:
VBA कोड का उपयोग करके गैर-रिक्त कक्षों को विशिष्ट मान से बदलें
निम्नलिखित वीबीए कोड का उपयोग करके, आप एक ही बार में सभी डेटा सेल को अपने आवश्यक मानों में बदल सकते हैं। कृपया इस प्रकार करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.
वीबीए कोड: गैर-रिक्त कोशिकाओं को विशिष्ट मान से बदलें
Sub ReplaceNumbers()
'Update 20141111
Dim SRg As Range
Dim Rg As Range
Dim Str As Variant
On Error Resume Next
Set SRg = Application.Selection
Set SRg = Application.InputBox("select range:", "Kutools for Excel", SRg.Address, , , , , 8)
If Err <> 0 Then Exit Sub
Str = Application.InputBox("replace with:", "Kutools for Excel", Str)
If Str = False Then Exit Sub
For Each Rg In SRg
If Rg <> "" Then Rg = Str
Next
End Sub
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको याद दिलाने के लिए पॉप अप होगा कि आप उस श्रेणी का चयन करें जिसे आप डेटा बदलना चाहते हैं, स्क्रीनशॉट देखें:
4। तब दबायें OK, और अगले प्रॉम्प्ट बॉक्स में अपना विशिष्ट मान दर्ज करें, स्क्रीनशॉट देखें:
5। और फिर क्लिक करें OK, आपकी चयनित सीमा के सभी मानों को एक ही बार में निश्चित डेटा से बदल दिया गया है।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!