किसी कॉलम में सेल मान के आधार पर पंक्तियों की नकल कैसे करें?
उदाहरण के लिए, मेरे पास डेटा की एक श्रृंखला है जिसमें कॉलम डी में संख्याओं की एक सूची है, और अब, मैं निम्नलिखित परिणाम प्राप्त करने के लिए कॉलम डी में संख्यात्मक मानों के आधार पर पूरी पंक्तियों को कई बार डुप्लिकेट करना चाहता हूं। मैं एक्सेल में सेल मानों के आधार पर पंक्तियों को कई बार कैसे कॉपी कर सकता हूँ?
VBA कोड के साथ सेल मानों के आधार पर पंक्तियों को कई बार डुप्लिकेट करें
VBA कोड के साथ सेल मानों के आधार पर पंक्तियों को कई बार डुप्लिकेट करें
सेल मानों के आधार पर संपूर्ण पंक्तियों को कई बार कॉपी और डुप्लिकेट करने के लिए, निम्नलिखित VBA कोड आपकी मदद कर सकता है, कृपया ऐसा करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: सेल मान के आधार पर पंक्तियों को कई बार डुप्लिकेट करें:
Sub CopyData()
'Updateby Extendoffice
Dim xRow As Long
Dim VInSertNum As Variant
xRow = 1
Application.ScreenUpdating = False
Do While (Cells(xRow, "A") <> "")
VInSertNum = Cells(xRow, "D")
If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy
Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select
Selection.Insert Shift:=xlDown
xRow = xRow + VInSertNum - 1
End If
xRow = xRow + 1
Loop
Application.ScreenUpdating = False
End Sub
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, आपकी आवश्यकता के अनुसार कॉलम डी में सेल मान के आधार पर संपूर्ण पंक्तियों को कई बार डुप्लिकेट किया गया है।
एक उपयोगी टूल - एक्सेल के लिए कुटूल के साथ निर्दिष्ट संख्या के आधार पर पंक्तियों को कॉपी और सम्मिलित करें
यदि आप वीबीए कोड से परिचित नहीं हैं और कोड में पैरामीटर को स्वयं सही ढंग से बदलने में असमर्थ हैं। इस मामले में, एक्सेल के लिए कुटूल's सेल वैल्यू के आधार पर डुप्लिकेट पंक्तियाँ/कॉलम सुविधा आपको केवल तीन क्लिक के साथ सेल मानों के आधार पर पंक्तियों को कई बार कॉपी करने और सम्मिलित करने में मदद कर सकती है।
- क्लिक करें कुटूल > सम्मिलित करें > सेल वैल्यू के आधार पर डुप्लिकेट पंक्तियाँ/कॉलम इस सुविधा को सक्षम करने के लिए;
- उसके बाद चुनो पंक्तियाँ कॉपी करें और सम्मिलित करें विकल्प, और की कोशिकाओं को निर्दिष्ट करें रेंज सम्मिलित करें और बार-बार दोहराएँ डायलॉग बॉक्स में अलग से.
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!