प्रयुक्त रेंज - अंतिम प्रयुक्त सेल, कॉलम या पंक्ति खोजें
निम्न कोड एक वर्कशीट में उपयोग की गई पंक्तियों की कुल संख्या को दर्शाने वाला एक संदेश बॉक्स लौटाएगा। यदि डेटा खाली पंक्ति का अनुसरण करता है तो खाली पंक्तियों का उपयोग माना जाता है।
| 1 | MsgBox ActiveSheet.UsedRange.Rows.Count |
क्या आपको एक शीट के नीचे एक लूप चलाना है, लेकिन यह नहीं पता कि डेटा कहाँ रुकता है? ActiveSheet.UsedRange.Rows.Count मदद कर सकता है।
इसे एक मॉड्यूल में रखें:
| 123456789 | उप अंतिम पंक्ति ()पूर्णांक के रूप में मंद अंतिम पंक्तिLastRow = ActiveSheet.UsedRange.Rows.CountMsgBox LastRowअंत उप |
| 123456789 | उप लास्टकॉल ()मंद LastCol पूर्णांक के रूप मेंLastCol = ActiveSheet.UsedRange.Col.CountMsgBox LastColअंत उप |
पहला खाली सेल खोजें
VBA का उपयोग करते हुए आपको पहले खाली सेल में, या किसी कॉलम में उपयोग की गई अंतिम पंक्ति के बाद लिखने की आवश्यकता हो सकती है। इसे खोजने के लिए लूप की आवश्यकता नहीं है, निम्न कोड आपके लिए करता है।
इस उदाहरण में कोड कॉलम "d" के पहले खाली सेल में "FirstEmpty" लिखेगा
| 1234 | पब्लिक सब आफ्टर लास्ट ()ActiveSheet.Range("d" & ActiveSheet.Rows.Count).End(xlUp).Offset(1, 0).Value = "FirstEmpty"अंत उप |
वर्कशीट में प्रयुक्त कॉलमों की गणना करें
निम्न कोड एक संदेश बॉक्स में वर्कशीट में उपयोग किए गए कॉलम की कुल संख्या लौटाएगा। यदि डेटा खाली कॉलम का अनुसरण करता है तो खाली कॉलम का उपयोग माना जाता है।
| 1 | MsgBox ActiveSheet.UsedRange.Columns.Count |
अंतिम प्रयुक्त सेल - समस्याएं
जब मुझे For… Next… की आवश्यकता होती है तो एक संपूर्ण कॉलम के माध्यम से लूप करें मैं आमतौर पर ActiveSheet.UsedRange.Rows.Count का उपयोग करता हूं ताकि यह पता लगाया जा सके कि कहां रुकना है। मुझे इस दृष्टिकोण के साथ हमेशा शुभकामनाएँ मिली हैं।
मुझे यह भी पता है कि कभी-कभी एक्सेल सोचता है कि अंतिम पंक्ति कहीं मौजूद है, लेकिन पंक्ति वास्तव में खाली है। मैंने डेटा आयात करने के बाद इसे कई बार देखा है। परे प्रौद्योगिकी से:
वर्कशीट ऑब्जेक्ट प्रयुक्त रेंज हमेशा काम नहीं करता है क्योंकि स्प्रेडशीट की उपयोग की गई सीमा (या "गंदा क्षेत्र") वास्तव में आपके रिकॉर्ड के साथ आबादी वाले क्षेत्र से बड़ी हो सकती है।
