मुख्य सामग्री पर जाएं

Excel में गैर-रिक्त कक्षों को विशिष्ट मान से कैसे बदलें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2014-11-20

एक्सेल में, हम किसी चयन को दबाकर किसी विशिष्ट मान को जल्दी और आसानी से बदल सकते हैं या भर सकते हैं Ctrl + Enter कुंजियाँ, लेकिन, क्या आप जानते हैं कि अपनी चयनित श्रेणी में केवल गैर-रिक्त कोशिकाओं को एक निश्चित मान से कैसे बदलें, जिसमें रिक्त कोशिकाएँ और मान कोशिकाएँ दोनों शामिल हैं।

ढूँढें और बदलें सुविधा का उपयोग करके गैर-रिक्त कोशिकाओं को विशिष्ट मान से बदलें

VBA कोड का उपयोग करके गैर-रिक्त कक्षों को विशिष्ट मान से बदलें


तीर नीला दायां बुलबुला ढूँढें और बदलें सुविधा का उपयोग करके गैर-रिक्त कोशिकाओं को विशिष्ट मान से बदलें

एक्सेल में, ढूंढें और बदलें सुविधा हमें सभी गैर-रिक्त कोशिकाओं को ढूंढने में मदद कर सकती है और फिर उन्हें आपकी इच्छानुसार निर्दिष्ट मान से बदल सकती है।

1. उस डेटा श्रेणी का चयन करें जिसे आप केवल मान कक्षों से बदलना चाहते हैं।

2. और फिर दबाएं Ctrl + H को खोलने के लिए ढूँढें और बदलें डायलॉग बॉक्स में ढूँढें और बदलें संवाद, के अंतर्गत बदलें टैब, टाइप करें * में क्या पता फ़ील्ड, और वह मान दर्ज करें जिसकी आपको आवश्यकता है साथ बदलें टेक्स्ट बॉक्स, स्क्रीनशॉट देखें:

दस्तावेज़-प्रतिस्थापन-गैर-रिक्त-1

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

दस्तावेज़-प्रतिस्थापन-गैर-रिक्त-2 -2 दस्तावेज़-प्रतिस्थापन-गैर-रिक्त-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 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको याद दिलाने के लिए पॉप अप होगा कि आप उस श्रेणी का चयन करें जिसे आप डेटा बदलना चाहते हैं, स्क्रीनशॉट देखें:

दस्तावेज़-प्रतिस्थापन-गैर-रिक्त-1

4। तब दबायें OK, और अगले प्रॉम्प्ट बॉक्स में अपना विशिष्ट मान दर्ज करें, स्क्रीनशॉट देखें:

दस्तावेज़-प्रतिस्थापन-गैर-रिक्त-1

5। और फिर क्लिक करें OK, आपकी चयनित सीमा के सभी मानों को एक ही बार में निश्चित डेटा से बदल दिया गया है।

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup    मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार    कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल    सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description


ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (2)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
где только берут такие крутые формулы, как эта в vba?! очень круто, спасибо
Rated 5 out of 5
This comment was minimized by the moderator on the site
So, I have this report I imported from my payroll system, but it contains a lot of information I do not need, on some fields and other that I want to keep on the next cells, so I'm looking for a way to replace for example all of the addresses with blank cells. I cannot delete the whole row because I have the dept number on the same row on the left. Can somebody help me?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations