एक्सेल में पंक्तियों की संख्या के आधार पर डेटा को कई वर्कशीट में विभाजित करें
एक विशिष्ट पंक्ति गणना के आधार पर बड़ी डेटा रेंज को कई एक्सेल वर्कशीट में कुशलतापूर्वक विभाजित करने से डेटा प्रबंधन को सुव्यवस्थित किया जा सकता है। उदाहरण के लिए, प्रत्येक 5 पंक्तियों में एक डेटासेट को कई शीटों में विभाजित करने से इसे अधिक प्रबंधनीय और व्यवस्थित बनाया जा सकता है। यह मार्गदर्शिका इस कार्य को तेजी से और आसानी से पूरा करने के लिए दो व्यावहारिक तरीके प्रदान करती है।
VBA कोड के साथ पंक्तियों की संख्या के आधार पर डेटा को कई वर्कशीट में विभाजित करें
एक्सेल के लिए कुटूल के साथ पंक्तियों की संख्या के आधार पर डेटा को कई वर्कशीट में विभाजित करें
VBA कोड के साथ पंक्तियों की संख्या के आधार पर डेटा को कई वर्कशीट में विभाजित करें
निम्नलिखित VBA कोड आपको पंक्तियों की संख्या के आधार पर पंक्तियों को कई वर्कशीट में विभाजित करने में मदद कर सकता है, निम्नानुसार करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और मॉड्यूल विंडो में निम्नलिखित कोड पेस्ट करें।
वीबीए: एक्सेल में पंक्तियों की संख्या के आधार पर डेटा को वर्कशीट में विभाजित करें
Sub Splitdatabyrows()
'Updated by Extendoffice
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
Dim xTRg As Range
Dim xNTRg As Range
Dim xIER
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set xTRg = Application.InputBox("Please select the header row:", xTitleId, "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set WorkRng = Application.InputBox("Please select the data range(exclude the header row):", xTitleId, WorkRng.Address, Type:=8)
If TypeName(WorkRng) = "Nothing" Then Exit Sub
SplitRow = Application.InputBox("Split Row Num", xTitleId, Type:=1)
If SplitRow = 0 Then Exit Sub
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
xIER = WorkRng.Rows.Count
xIER = WorkRng.Row + xIER - 1
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
resizeCount = SplitRow
If (xIER - xRow.Row + 1) < SplitRow Then
resizeCount = (xIER - xRow.Row + 1)
End If
xRow.Resize(resizeCount).Copy
Set xWs = Application.Worksheets.Add(after:=Application.Worksheets(Application.Worksheets.Count))
If xIER > (xRow.Row + SplitRow - 1) Then
xWs.Name = xRow.Row & " - " & (xRow.Row + SplitRow - 1)
ElseIf xIER = xRow.Row Then
xWs.Name = xRow.Row
Else
xWs.Name = xRow.Row & " - " & xIER
End If
Application.ActiveSheet.Range("A1").PasteSpecial
Set xNTRg = Application.ActiveSheet.Range("A1")
xTRg.Copy
xNTRg.Insert
Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
3। फिर दबायें F5 कुंजी, पॉप अप संवाद बॉक्स में, हेडर पंक्ति का चयन करें, स्क्रीनशॉट देखें:
4। तब दबायें OK, और दूसरे प्रॉम्प्ट बॉक्स में, उस डेटा रेंज का चयन करें जिसे आप पंक्तियों की संख्या से विभाजित करना चाहते हैं, स्क्रीनशॉट देखें:
5. क्लिक करते जाइये OK बटन, तीसरे प्रॉम्प्ट बॉक्स में, उन पंक्तियों की संख्या दर्ज करें जिन्हें आप विभाजित करना चाहते हैं, स्क्रीनशॉट देखें:
6। तब दबायें OK बटन, डेटा को पंक्तियों की संख्या के आधार पर कई वर्कशीट में विभाजित किया गया है, स्क्रीनशॉट देखें:
एक्सेल के लिए कुटूल के साथ पंक्तियों की संख्या के आधार पर डेटा को कई वर्कशीट में विभाजित करें
यदि आपको लगता है कि VBA कोड जटिल है, एक्सेल के लिए कुटूल डेटा विभाजन की समस्या का कुशलतापूर्वक समाधान करने के लिए एक त्वरित और सहज समाधान प्रदान करता है। यह डेटा विभाजित करें सुविधा ऑपरेशन प्रक्रिया को सरल बनाती है, जिससे किसी भी कौशल स्तर के उपयोगकर्ताओं को गहन प्रोग्रामिंग ज्ञान की आवश्यकता के बिना बड़े डेटासेट को आसानी से कई वर्कशीट में विभाजित करने की अनुमति मिलती है, जिससे प्रभावी डेटा प्रबंधन की सुविधा मिलती है।
यदि आपने स्थापित किया है एक्सेल के लिए कुटूल, कृपया निम्नानुसार करें:
1. डेटा की वह श्रेणी चुनें जिसे आप विभाजित करना चाहते हैं। फिर, क्लिक करें कुटूल्स प्लस > डेटा विभाजित करें, स्क्रीनशॉट देखें:
3. में डेटा को एकाधिक वर्कशीट में विभाजित करें संवाद बकस:
- चुनते हैं निश्चित पंक्तियाँ से के आधार पर विभाजित करें विकल्प, और उन पंक्तियों की संख्या दर्ज करें जिन्हें आप प्रत्येक कार्यपत्रक के लिए विभाजित करना चाहते हैं।
- यदि आपके डेटा में हेडर हैं और आप उन्हें प्रत्येक नई स्प्लिट वर्कशीट में सम्मिलित करना चाहते हैं, तो कृपया जांचें मेरे डेटा में हेडर हैं विकल्प। (टिप: आप अपने डेटा के आधार पर चरवाहा पंक्तियों की संख्या दर्ज कर सकते हैं।)
- फिर आप के अंतर्गत विभाजित वर्कशीट नाम निर्दिष्ट कर सकते हैं नई वर्कशीट का नाम अनुभाग में, वर्कशीट नाम नियमों का चयन करें नियम ड्रॉप डाउन सूची, आप जोड़ सकते हैं उपसर्ग or प्रत्यय शीट नामों के लिए भी.
4. सेटिंग्स निर्दिष्ट करने के बाद, क्लिक करें OK, और चयनित डेटा को प्रत्येक 5 पंक्तियों द्वारा एक नई कार्यपुस्तिका की एकाधिक कार्यपत्रकों में विभाजित किया गया है। और प्रत्येक नई वर्कशीट के लिए हेडर डाले जाते हैं। स्क्रीनशॉट देखें:
संबंधित आलेख:
- कॉलम के आधार पर डेटा को कई वर्कशीट में विभाजित करें
- मान लीजिए कि आपके पास डेटा की विशाल पंक्तियों वाली एक वर्कशीट है, और अब, आपको नाम कॉलम (निम्न स्क्रीनशॉट देखें) के आधार पर डेटा को कई वर्कशीट में विभाजित करने की आवश्यकता है, और नाम यादृच्छिक रूप से दर्ज किए गए हैं। हो सकता है कि आप पहले उन्हें क्रमबद्ध कर सकें, और फिर उन्हें एक-एक करके अन्य नई वर्कशीट में कॉपी और पेस्ट कर सकें। लेकिन इसे बार-बार कॉपी और पेस्ट करने के लिए आपके धैर्य की आवश्यकता होगी। आज मैं इस कार्य को हल करने के लिए कुछ त्वरित युक्तियों के बारे में बात करूंगा।
- डुप्लिकेट पंक्तियों को संयोजित करें और Excel में मानों का योग करें
- एक्सेल में, डुप्लिकेट प्रविष्टियों वाले डेटासेट का सामना करना एक सामान्य परिदृश्य है। अक्सर, आप अपने आप को डेटा की एक श्रृंखला के साथ पा सकते हैं जहां मुख्य चुनौती इन डुप्लिकेट पंक्तियों को कुशलतापूर्वक संयोजित करना है, साथ ही साथ स्क्रीनशॉट में दिखाए गए अनुसार संबंधित कॉलम में मानों को जोड़ना है। इस संदर्भ में, हम कई व्यावहारिक तरीकों पर चर्चा करेंगे जो डुप्लिकेट डेटा को समेकित करने और उनके संबंधित मूल्यों को एकत्रित करने में आपकी सहायता कर सकते हैं, जिससे आपकी एक्सेल कार्यपुस्तिकाओं की स्पष्टता और उपयोगिता दोनों में वृद्धि होगी।
- मुख्य स्तंभों के आधार पर दो या दो से अधिक तालिकाओं को एक में मिलाएं
- मान लीजिए कि आपके पास एक कार्यपुस्तिका में तीन तालिकाएँ हैं, अब, आप नीचे दिए गए स्क्रीनशॉट के अनुसार परिणाम प्राप्त करने के लिए इन तालिकाओं को संबंधित कुंजी कॉलम के आधार पर एक तालिका में मर्ज करना चाहते हैं। यह हम में से अधिकांश के लिए एक परेशानी भरा काम हो सकता है, लेकिन, कृपया चिंता न करें, इस लेख में, मैं इस समस्या को हल करने के लिए कुछ तरीके पेश करूंगा।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!