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

एक्सेल में पहली या आखिरी खाली पंक्ति पर कैसे जाएं?

लेखक: रवि अंतिम संशोधित: 2020-05-28

जब आप किसी बड़ी वर्कशीट पर काम कर रहे होते हैं तो स्क्रॉल करके पहली या आखिरी खाली पंक्ति पर जाने में समय लगता है। इस लेख में, मैं एक्सेल में पहली या आखिरी खाली पंक्ति पर तुरंत जाने के लिए कुछ तरकीबें पेश कर रहा हूँ।

VBA के साथ पहली या आखिरी खाली पंक्ति पर जाएँ

सेलेक्ट लास्ट रो यूटिलिटी के साथ अंतिम खाली पंक्ति या कॉलम पर जाएंअच्छा विचार3


VBA के साथ पहली या आखिरी खाली पंक्ति पर जाएँ

यहां दो वीबीए हैं जो आपको सक्रिय शीट में पहली या आखिरी खाली पंक्ति पर तुरंत जाने में मदद कर सकते हैं, कृपया नीचे दिए अनुसार करें।

1। दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की। स्क्रीनशॉट देखें:
दस्तावेज़ प्रथम अंतिम खाली 1

2। तब दबायें सम्मिलित करें > मॉड्यूल और नीचे दिए गए कोड को स्क्रिप्ट में पेस्ट करें। स्क्रीनशॉट देखें:

वीबीए: पहली रिक्त पंक्ति पर जाएँ।

Sub Findfirstblankcell()
'UpdatebyExtendoffice20170712
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each Rng In WorkRng
        If Rng.Value = "" Then
            MsgBox "No Value, in " & Rng.Address
        End If
    Next
End Sub
दस्तावेज़ प्रथम अंतिम खाली 2
दस्तावेज़ प्रथम अंतिम खाली 3

3। दबाएँ F5 कोड चलाने के लिए, और एक संवाद आपको काम करने के लिए एक सीमा चुनने की याद दिलाने के लिए पॉप आउट होता है। स्क्रीनशॉट देखें:
दस्तावेज़ प्रथम अंतिम खाली 4

4। क्लिक करें OK. आपको पहली रिक्त पंक्ति का सेल संदर्भ याद दिलाने के लिए एक संवाद पॉप आउट होता है, स्क्रीनशॉट देखें:
दस्तावेज़ प्रथम अंतिम खाली 5

5। क्लिक करें OK बार-बार बंद करने के लिए माइक्रोसॉफ्ट एक्सेल संवाद. और फिर जाएं नाम बॉक्स में A2 टाइप करें, दबाएँ दर्ज कुंजी, और आप पहली रिक्त पंक्ति पर जाएंगे। स्क्रीनशॉट देखें:
दस्तावेज़ प्रथम अंतिम खाली 6

सुझाव: यदि आप अंतिम खाली पंक्ति में जाना चाहते हैं, तो कृपया नीचे दिए गए वीबीए कोड का उपयोग करें, और उसके बाद एक दबाएं F5 कुंजी, कर्सर सीधे अंतिम रिक्त पंक्ति पर जाता है।

वीबीए: अंतिम खाली पंक्ति पर जाएं

Sub selectlastemptyrow()
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
End Sub

नोट: यह वीबीए कॉलम ए में अंतिम खाली सेल का चयन करेगा। किसी अन्य कॉलम में अंतिम खाली सेल का चयन करने के लिए, कृपया कोड सेल (पंक्तियों, गिनती, 1) में 1 को दूसरे नंबर में बदलें।


सेलेक्ट लास्ट रो यूटिलिटी के साथ अंतिम खाली पंक्ति या कॉलम पर जाएं

अगर आप अंतिम खाली पंक्ति या कॉलम पर जल्दी जाना चाहते हैं तो आवेदन कर सकते हैं एक्सेल के लिए कुटूलहै अंतिम पंक्ति or अंतिम स्तम्भ यूtility. उनके साथ, आप तुरंत वर्तमान वर्कशीट में अंतिम पंक्ति या कॉलम के अंतिम गैर-रिक्त सेल पर जा सकते हैं, और फिर अगला सेल अंतिम खाली पंक्ति या खाली कॉलम है।

एक्सेल के लिए कुटूल, से अधिक के साथ 300 सुविधाजनक कार्य, आपके कार्यों को और अधिक आसान बनाते हैं। 

स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया नीचे दिए अनुसार कार्य करें:(अब एक्सेल के लिए नि:शुल्क कुटूल डाउनलोड करें!)

क्लिक करें कुटूल > चुनते हैं > अंतिम सेल चुनें > अंतिम पंक्ति/अंतिम कॉलम. स्क्रीनशॉट देखें:

दस्तावेज़ प्रथम अंतिम खाली 7

फिर अंतिम पंक्ति (या कॉलम) में अंतिम गैर-रिक्त कोशिकाओं का चयन किया जाता है। अंतिम खाली पंक्ति (या कॉलम) को सक्रिय करने के लिए बस नीचे तीर कुंजी (या दायां तीर कुंजी) दबाएं।


सापेक्ष लेख

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

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

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

Description


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

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ótimo post, Resolveu meu problema:
Achando a primeira célula vazia de determinada coluna de uma planilha.

Sub SelecionaPróximaCélulaVazia()
Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Select
End Sub

Este VBA selecionará a última célula vazia na coluna B. Para selecionar a última célula vazia em outra coluna, altere 2 no código Cells (Rows.Count, 2) para outro número.
This comment was minimized by the moderator on the site
Sub selectlastemptyrow()
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
End Sub



How to try this on sheet2 from sheet1
This comment was minimized by the moderator on the site
Sub selectlastemptyrow()
Sheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations