वीबीए: उपरोक्त मान के साथ खाली सेल कैसे भरें

अक्सर, आप Excel शीट में रिक्त कक्षों को सीधे उनके ऊपर वाले कक्षों के मानों से भरने के लिए VBA का उपयोग करना चाह सकते हैं।

ऐसा करने के लिए, आप निम्नलिखित मूल सिंटैक्स का उपयोग कर सकते हैं:

 Sub Fill_From_Above()
  With Range(" A2:B " & Range(" C " & Rows.Count).End(xlUp).Row)
    .SpecialCells(xlBlanks).FormulaR1C1 = " =R[-1]C "
    .Value = .Value
  End With
End Sub

यह विशेष उदाहरण सेल ए2 से कॉलम बी तक कॉलम सी में मान वाली अंतिम पंक्ति तक सभी खाली कोशिकाओं को भर देगा।

निम्नलिखित उदाहरण दिखाता है कि व्यवहार में इस वाक्यविन्यास का उपयोग कैसे करें।

उदाहरण: रिक्त कक्षों को उपरोक्त मान से भरने के लिए VBA का उपयोग करें

मान लीजिए कि हमारे पास एक्सेल में निम्नलिखित डेटा सेट है जो विभिन्न बास्केटबॉल खिलाड़ियों द्वारा विभिन्न खेलों में बनाए गए अंक दिखाता है:

मान लीजिए कि हम कॉलम ए और बी में खाली कोशिकाओं को उनके ऊपर की कोशिकाओं के मूल्यों से भरना चाहते हैं।

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 Sub Fill_From_Above()
  With Range(" A2:B " & Range(" C " & Rows.Count).End(xlUp).Row)
    .SpecialCells(xlBlanks).FormulaR1C1 = " =R[-1]C "
    .Value = .Value
  End With
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

ध्यान दें कि टीम और प्लेयर कॉलम में सभी खाली सेल उनके ऊपर के सेल से उचित मान से भरे गए हैं।

ध्यान दें : हमने श्रेणी में खाली कोशिकाओं की पहचान करने के लिए xlBlanks का उपयोग किया, फिर उपरोक्त पंक्ति की एक पंक्ति के साथ रिक्त स्थान को भरने के लिए =R[-1]C का उपयोग किया।

अंतिम परिणाम यह हुआ कि हम सभी खाली कोशिकाओं को उनके ऊपर की कोशिकाओं के मूल्य से भरने में सक्षम हुए।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

वीबीए: कैसे जांचें कि सेल खाली है या नहीं
वीबीए: “यदि खाली नहीं है” का उपयोग कैसे करें
वीबीए: विशिष्ट पाठ वाले कक्षों की गणना कैसे करें