मानदंड के आधार पर एकाधिक वर्कशीट से पंक्तियों को एक नई शीट में कैसे कॉपी करें?

मान लीजिए, आपके पास तीन वर्कशीट वाली एक कार्यपुस्तिका है जिसका स्वरूप नीचे स्क्रीनशॉट में दिखाए गए समान है। अब, आप इन वर्कशीट से उन सभी पंक्तियों को कॉपी करना चाहते हैं जिनमें कॉलम सी में "पूर्ण" टेक्स्ट एक नई वर्कशीट में है। आप उन्हें एक-एक करके मैन्युअल रूप से कॉपी और पेस्ट किए बिना इस समस्या को जल्दी और आसानी से कैसे हल कर सकते हैं?

मानदंड के आधार पर एकाधिक वर्कशीट से पंक्तियों को वीबीए कोड के साथ एक नई शीट में कॉपी करें

मानदंड के आधार पर एकाधिक वर्कशीट से पंक्तियों को वीबीए कोड के साथ एक नई शीट में कॉपी करें

निम्नलिखित वीबीए कोड आपको एक निश्चित शर्त के आधार पर कार्यपुस्तिका के भीतर सभी कार्यपत्रकों से विशिष्ट पंक्तियों को एक नई कार्यपत्रक में कॉपी करने में मदद कर सकता है। कृपया इस प्रकार करें:

1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2। क्लिक करें सम्मिलित करें > मॉड्यूल, और मॉड्यूल विंडो में निम्नलिखित कोड पेस्ट करें।

वीबीए कोड: मानदंडों के आधार पर कई शीटों से पंक्तियों को एक नई शीट में कॉपी करें

Public Sub CopyRows_ValuesAndNumberFormats()
Dim xWs As Worksheet
Dim xCWs As Worksheet
Dim xRg As Range
Dim xStrName As String
Dim xRStr As String
Dim xRRg As Range
Dim xC As Integer
On Error Resume Next
Application.DisplayAlerts = False
xStr = "Kutools for Excel"
xRStr = "Completed"
Set xCWs = ActiveWorkbook.Worksheets.Item(xStr)
If Not xCWs Is Nothing Then
    xCWs.Delete
End If
Set xCWs = ActiveWorkbook.Worksheets.Add
xCWs.Name = xStr
xC = 1
For Each xWs In ActiveWorkbook.Worksheets
    If xWs.Name <> xStr Then
        Set xRg = xWs.Range("C:C")
        Set xRg = Intersect(xRg, xWs.UsedRange)
        For Each xRRg In xRg
            If xRRg.Value = xRStr Then
               xRRg.EntireRow.Copy
               xCWs.Cells(xC, 1).PasteSpecial xlPasteValuesAndNumberFormats
               xC = xC + 1
            End If
        Next xRRg
    End If
Next xWs
Application.DisplayAlerts = True
End Sub

नोट: उपरोक्त कोड में:

• टेक्स्ट "पूरा" इस में xRStr = "पूरा हुआ" स्क्रिप्ट उस विशिष्ट स्थिति को इंगित करती है जिसके आधार पर आप पंक्तियों की प्रतिलिपि बनाना चाहते हैं;
• सी:सी इस में xRg = xWs.Range('C:C') सेट करें स्क्रिप्ट उस विशिष्ट कॉलम को इंगित करती है जहां स्थिति स्थित होती है।

3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और विशिष्ट स्थिति वाली सभी पंक्तियों को वर्तमान कार्यपुस्तिका के भीतर एक्सेल के लिए कुटूल नामक एक नई वर्कशीट में कॉपी और पेस्ट किया गया है। स्क्रीनशॉट देखें:

अधिक सापेक्ष डेटा लेख खींचें या कॉपी करें:

---

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

एक्सेल के लिए कुटूल आपकी अधिकांश समस्याओं का समाधान करता है, और आपकी उत्पादकता को 80% तक बढ़ाता है

• सुपर फॉर्मूला बार (पाठ और सूत्र की अनेक पंक्तियों को आसानी से संपादित करें); लेआउट पढ़ना (बड़ी संख्या में सेल को आसानी से पढ़ें और संपादित करें); फ़िल्टर की गई रेंज में चिपकाएँ...
• कक्षों/पंक्तियों/स्तंभों को मर्ज करें और डेटा रखना; विभाजित कोशिकाओं की सामग्री; डुप्लिकेट पंक्तियों और योग/औसत को संयोजित करें... डुप्लिकेट सेल रोकें; रेंज की तुलना करें...
• डुप्लिकेट या अद्वितीय का चयन करें पंक्तियाँ; रिक्त पंक्तियाँ चुनें (सभी कोशिकाएँ खाली हैं); सुपर फाइंड और फ़ज़ी फाइंड कई कार्यपुस्तिकाओं में; यादृच्छिक चयन...
• सटीक प्रति सूत्र संदर्भ बदले बिना एकाधिक कक्ष; स्वतः संदर्भ बनाएँ एकाधिक शीट्स के लिए; बुलेट डालें, चेक बॉक्स और बहुत कुछ...
• पसंदीदा और त्वरित रूप से सम्मिलित सूत्र, रेंज, चार्ट और चित्र; कोशिकाओं को एन्क्रिप्ट करें पासवर्ड के साथ; मेलिंग सूची बनाएं और ईमेल भेजें...
• पाठ निकालें, टेक्स्ट जोड़ें, स्थिति के अनुसार हटाएँ, अंतरिक्ष निकालें; पेजिंग सबटोटल बनाएं और प्रिंट करें; सेल सामग्री और टिप्पणियों के बीच कनवर्ट करें...
• सुपर फ़िल्टर (फ़िल्टर योजनाओं को अन्य शीटों पर सहेजें और लागू करें); उन्नत सॉर्ट महीने/सप्ताह/दिन, आवृत्ति और अधिक के अनुसार; विशेष फ़िल्टर बोल्ड, इटैलिक द्वारा...
• वर्कबुक और वर्कशीट को मिलाएं; प्रमुख स्तंभों के आधार पर तालिकाएँ मर्ज करें; डेटा को एकाधिक शीट में विभाजित करें; बैच कनवर्ट xls, xlsx और पीडीएफ...
• पिवोट टेबल ग्रुपिंग द्वारा सप्ताह संख्या, सप्ताह का दिन और बहुत कुछ... अनलॉक, लॉक किए गए सेल दिखाएँ विभिन्न रंगों से; उन कक्षों को हाइलाइट करें जिनमें सूत्र/नाम हो...

अधिक पढ़ें... संपूर्ण सुविधाएँ 30-दिवसीय निःशुल्क परीक्षण... खरीदना... 

---

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

• Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
• नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
• आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!

अधिक पढ़ें... संपूर्ण सुविधाएँ 30-दिवसीय निःशुल्क परीक्षण... खरीदना...