एक्सेल कॉलम में रिक्त होने तक पंक्तियों के माध्यम से लूप कैसे करें?
यहां डेटा वाला एक लंबा कॉलम है जिसमें कुछ खाली सेल शामिल हैं, और आप रिक्त सेल से मिलने तक पंक्तियों के माध्यम से लूप करना चाहते हैं। एक्सेल में, ऐसी कोई अंतर्निहित सुविधा नहीं है जो इस काम को संभाल सके, लेकिन मैं आपको लाभ पहुंचाने के लिए कुछ मैक्रोज़ पेश कर सकता हूं।
VBA के साथ रिक्त होने तक पंक्तियों में लूप करें
VBA के साथ रिक्त होने तक पंक्तियों में लूप करें
1। दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और नीचे दिए गए कोड को रिक्त स्क्रिप्ट पर चिपकाएँ।
वीबीए: रिक्त होने तक लूप करें
Sub Test1()
'UpdatebyExtendoffice20161222
Dim x As Integer
Application.ScreenUpdating = False
' Set numrows = number of rows of data.
NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count
' Select cell a1.
Range("A1").Select
' Establish "For" loop to loop "numrows" number of times.
For x = 1 To NumRows
' Insert your code here.
' Selects cell down 1 row from active cell.
ActiveCell.Offset(1, 0).Select
Next
Application.ScreenUpdating = True
End Sub
कोड में, A1 वह पहला सेल है जिससे आप लूप करना चाहते हैं, आप इसे आवश्यकतानुसार बदल सकते हैं।
3। दबाएँ F5 कॉलम को लूप करना शुरू करने के लिए कुंजी, फिर कर्सर पहले मिले रिक्त सेल पर रुक जाएगा।
नोट: यदि आप निरंतर रिक्त कक्षों तक पहुंचने तक डेटा के माध्यम से लूप करना चाहते हैं, तो आप इस मैक्रो कोड का उपयोग कर सकते हैं।
Sub LoopThroughUntilBlanks()
'UpdatebyExtendoffice20161222
' Select cell A2, *first line of data*.
Dim xrg As Range
On Error Resume Next
Set xrg = Application.InputBox _
(Prompt:="first cell select..", Title:="Kutools for Excel", Type:=8)
xrg.Cells(1, 1).Select
' Set Do loop to stop when two consecutive empty cells are reached.
Application.ScreenUpdating = False
Do Until IsEmpty(ActiveCell) And IsEmpty(ActiveCell.Offset(1, 0))
' Insert your code here.
'
' Step down 2 rows from present location.
ActiveCell.Offset(2, 0).Select
Loop
Application.ScreenUpdating = False
End Sub
फिर आपको वह पहला सेल चुनना होगा जिसमें से आप लूप करना चाहते हैं एक्सेल के लिए कुटूल संवाद, क्लिक करें OK, फिर कर्सर पहले निरंतर रिक्त कक्षों में रुक जाता है।
आसानी से एकाधिक शीट/वर्कबुक को एक सिंगल शीट या वर्कबुक में संयोजित करें
|
एकाधिक शीटों या कार्यपुस्तिकाओं को एक शीट या कार्यपुस्तिका में संयोजित करना एक्सेल में कठिन हो सकता है, लेकिन इसके साथ मिलाना एक्सेल के लिए कुटूल्स में फ़ंक्शन, आप दर्जनों शीट/वर्कबुक को एक शीट या वर्कबुक में मर्ज कर सकते हैं, साथ ही, आप केवल कई क्लिक से शीट को एक में समेकित कर सकते हैं। पूर्ण-विशेषताओं वाले 30 दिनों के निःशुल्क परीक्षण के लिए क्लिक करें! |
एक्सेल के लिए कुटूल: 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क। |
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!