VBA में जब हमें अंतिम पंक्ति ढूंढनी होती है तो कई अलग-अलग विधियाँ होती हैं और सबसे अधिक इस्तेमाल की जाने वाली विधि है End (XLDown) विधि और अन्य विधियाँ हैं जैसे VBA, End (XLDown) में खोज फ़ंक्शन का उपयोग करके अंतिम मान ज्ञात करना ) है। अंतिम पंक्ति के लिए पंक्ति सबसे आसान तरीका है।
एक्सेल VBA अंतिम पंक्ति
यदि कोड लिखना VBA में आपके द्वारा की गई पहली प्रगति है, तो कोड को गतिशील बनाना आपके लिए अगला कदम है। Excel सेल संदर्भों से भरा है। जिस क्षण हम सेल को संदर्भित करते हैं, यह निश्चित हो जाता है। यदि हमारा डेटा बढ़ता है, तो हमें सेल संदर्भ पर वापस जाना होगा और परिणाम को अद्यतित करने के लिए संदर्भों को बदलना होगा।
एक उदाहरण के लिए, नीचे दिए गए कोड को देखें।
कोड:
उप Last_Row_Example1 () श्रेणी ("D2")। मान = WorksheetFunction.Sum (श्रेणी ("B2: B7")) अंतिम उप
उपरोक्त कोड डी 2 में कहते हैं, सेल वैल्यू रेंज ("बी 2: बी 7") का योग होना चाहिए।
अब मैं सूची में और मूल्य जोड़ूंगा।
अब, अगर मैं कोड चलाता हूं, तो यह मुझे अपडेट परिणाम नहीं देगा, यह अभी भी पुरानी श्रेणी यानी रेंज ("बी 2: बी 7") से चिपका है।
यह वह जगह है जहाँ गतिशील कोड बहुत महत्वपूर्ण है।
कोड को गतिशील बनाने की प्रक्रिया में, कॉलम में अंतिम उपयोग की गई पंक्ति को खोजना बहुत महत्वपूर्ण है। इस लेख में, हम एक्सेल VBA में अंतिम पंक्ति खोजने के तरीकों पर चर्चा करेंगे।
स्तंभ में अंतिम प्रयुक्त पंक्ति कैसे खोजें?
नीचे Excel VBA में अंतिम प्रयुक्त पंक्ति को खोजने के लिए उदाहरण दिए गए हैं।
विधि # 1
इससे पहले कि मैं आपको कोड समझाऊं, मैं चाहता हूं कि आप याद रखें कि आप सामान्य वर्कशीट में अंतिम पंक्ति में कैसे जाते हैं।
हम शॉर्टकट कुंजी Ctrl + नीचे तीर का उपयोग करेंगे ।
यह हमें किसी भी खाली सेल से पहले अंतिम इस्तेमाल की गई पंक्ति में ले जाएगा। हम अंतिम पंक्ति को खोजने के लिए VBA में भी इसी विधि का उपयोग करेंगे।
चरण 1: चर को LONG के रूप में परिभाषित करें।
कोड:
उप Last_Row_Example2 () मंद LR अस लॉन्ग 'समझने के लिए LR = लास्ट रो एंड सब
चरण 2: इस चर के लिए, हम अंतिम प्रयुक्त पंक्ति संख्या निर्दिष्ट करेंगे।
कोड:
उप Last_Row_Example2 () मंद LR अस लॉन्ग 'समझने के लिए LR = लास्ट रो LR = एंड सब
चरण 3: कोड को CELLS (Rows.Count) के रूप में लिखें।
कोड:
उप Last_Row_Example2 () डिम LR जितना लंबा 'LR समझने के लिए = अंतिम पंक्ति LR = कक्ष (पंक्तियाँ), अंत उप
स्टेप 4: अब कॉलम नंबर को 1 बताएं।
कोड:
उप Last_Row_Example2 () डिम LR जितना लंबा 'LR = अंतिम पंक्ति LR = सेल समझने के लिए (पंक्तियाँ, 1) समाप्ति उप
CELLS (Rows.Count, 1) का अर्थ है कि पहले कॉलम में कितनी पंक्तियाँ हैं।
इसलिए उपरोक्त VBA कोड हमें एक्सेल शीट की अंतिम पंक्ति में ले जाएगा।
चरण 5: यदि हम अंतिम उपयोग की गई पंक्ति में जाने के लिए शीट के अंतिम सेल में हैं, तो हम शॉर्टकट कुंजी दबाएंगे Ctrl + अप एरो कुंजी।
VBA में, हमें एंड की और एंड का प्रयोग करने की आवश्यकता है, अंत VBA xlUp
कोड:
सब लास्ट_Row_Example2 () डिम LR अस लॉन्ग 'LR समझने के लिए = लास्ट रो LR = सेल्स (Rows.Count, 1)। और (xlUp) एंड सब।
चरण 6: अब, यह हमें नीचे से अंतिम प्रयुक्त पंक्ति में ले जाएगा। अब हमें इस की पंक्ति संख्या की आवश्यकता है। इसलिए पंक्ति संख्या प्राप्त करने के लिए संपत्ति ROW का उपयोग करें।
कोड:
उप Last_Row_Example2 () मंद LR अस लॉन्ग 'समझने के लिए LR = लास्ट रो LR = सेल्स (Rows.Count, 1)। And (xlUp) .Row End Sub
चरण 7: अब, चर अंतिम प्रयुक्त पंक्ति संख्या रखता है। VBA कोड में संदेश बॉक्स में इस चर का मान दिखाएं।
कोड:
उप Last_Row_Example2 () Dim LR as Long 'LR = लास्ट रो LR = सेल्स (Rows.Count, 1) समझने के लिए। और (xlUp) .Row MsgBox LR End Sub।
इस कोड को F5 कुंजी या मैन्युअल रूप से चलाएं। यह अंतिम प्रयुक्त पंक्ति प्रदर्शित करेगा।
आउटपुट:
इस वर्कशीट में अंतिम प्रयुक्त पंक्ति 13 है।
Now I will delete one more line and run the code and see the dynamism of the code.
Ok, now the result automatically takes the last row.
This is what the dynamic VBA last row code is.
As I showed in the earlier example, change the row number from a numeric value to LR.
Code:
Sub Last_Row_Example2() Dim LR As Long 'For understanding LR = Last Row LR = Cells(Rows.Count, 1).End(xlUp).Row Range("D2").Value = WorksheetFunction.Sum(Range("B2:B" & LR)) End Sub
I have removed B13 and added the variable name LR.
Now it does not matter how many rows you add. It will automatically take the updated reference.
Method #2
We can also find the last row in VBA by using the Range object and special VBA cells property as well.
Code:
Sub Last_Row_Example3() Dim LR As Long LR = Range("A:A").SpecialCells(xlCellTypeLastCell).Row MsgBox LR End Sub
कोड आपको अंतिम उपयोग की गई पंक्ति भी देता है। उदाहरण के लिए, नीचे दी गई कार्यपत्रक छवि देखें।
यदि मैं कोड को मैन्युअल रूप से चलाता हूं या F5 कुंजी परिणाम का उपयोग कर 12 होगा क्योंकि 12 अंतिम उपयोग की जाने वाली पंक्ति है।
आउटपुट:
अब मैं 12 वीं पंक्ति को हटाऊंगा और परिणाम देखूंगा।
हालांकि मैंने एक पंक्ति को हटा दिया है, फिर भी यह 12 के रूप में परिणाम दिखा रहा है।
इस कोड को काम करने के लिए, हमें हर एक्शन के बाद सेव बटन को हिट करना होगा। फिर यह कोड सटीक परिणाम लौटाएगा।
मैंने कार्यपुस्तिका को सहेज लिया है और अब परिणाम देखें।
विधि # 3
हम प्रयुक्त सीमा में VBA अंतिम पंक्ति पा सकते हैं। नीचे दिया गया कोड अंतिम उपयोग की गई पंक्ति भी लौटाता है।
कोड:
उप Last_Row_Example4 () मंद LR अस लॉन्ग LR = ActiveSheet.UsedRange.Rows (ActiveSheet.UsedRange.Rows.Count) ।Row MsgBox LR एंड सब।
यह अंतिम उपयोग की गई पंक्ति भी लौटाएगा।
आउटपुट:
