कुकीज़ हमें हमारी सेवाएं देने में मदद। हमारी सेवाओं का उपयोग करके, आप कुकी के हमारे उपयोग करने के लिए सहमत हैं।
युक्ति: अन्य भाषाओं में Google-Translated आप यात्रा कर सकते हैं English इस लिंक का संस्करण
लॉग इन करें
x
or
x
x
रजिस्टर
x

or

Excel में कॉलम पर आधारित एकाधिक कार्यपत्रकों में डेटा को कैसे विभाजित करें?

मान लें कि आपके पास डेटा की बड़ी पंक्तियों के साथ कार्यपत्रक है, और अब, आपको डेटा को कई कार्यपत्रकों में विभाजित करने की आवश्यकता है नाम कॉलम (निम्नलिखित स्क्रीनशॉट देखें), और नाम यादृच्छिक रूप से दर्ज किए गए हैं। हो सकता है कि आप उन्हें पहले क्रमबद्ध कर सकें, और फिर उन्हें एक-एक करके अन्य नई वर्कशीट में कॉपी और पेस्ट करें। लेकिन बार-बार कॉपी और पेस्ट करने के लिए आपको अपने धैर्य की आवश्यकता होगी। आज, मैं इस कार्य को हल करने के लिए कुछ त्वरित चाल के बारे में बात करूंगा।

कॉलम 1 द्वारा दस्तावेज़ विभाजित डेटा

VBA कोड के साथ कॉलम के आधार पर एकाधिक कार्यपत्रकों में डेटा विभाजित करें

Excel के लिए कुटूल के साथ कॉलम के आधार पर एकाधिक कार्यपत्रकों में डेटा विभाजित करें


कार्यपत्रक में विशिष्ट कॉलम या पंक्तियों के आधार पर डेटा को एकाधिक वर्कशीट में विभाजित करें:

यदि आप विशिष्ट कॉलम डेटा या पंक्तियों के आधार पर एक बड़ी वर्कशीट को एकाधिक चादरों में विभाजित करना चाहते हैं, तो एक्सेल के लिए कुटूल's स्प्लिट डेटा सुविधा आपको इस कार्य को तेज़ी से और आसानी से हल करने में मदद कर सकती है।

कॉलम 6 द्वारा दस्तावेज़ विभाजित डेटा

एक्सेल के लिए कुटूल: 200 से अधिक एक्सेल ऐड-इन्स से अधिक, 60 दिनों में बिना सीमा के प्रयास करने के लिए निःशुल्क। डाउनलोड करें और निशुल्क परीक्षण करें!


VBA कोड के साथ कॉलम के आधार पर एकाधिक कार्यपत्रकों में डेटा विभाजित करें


यदि आप कॉलम मूल्य पर आधारित डेटा को जल्दी और स्वचालित रूप से विभाजित करना चाहते हैं, तो निम्न VBA कोड एक अच्छा विकल्प है। कृपया इसे करें:

1। नीचे पकड़ो ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए Microsoft Visual Basic खिड़की.

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

Sub Splitdatabycol()
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim icol As Long
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
Dim xTRg As Range
Dim xVRg As Range
Dim xWSTRg As Worksheet
On Error Resume Next
Set xTRg = Application.InputBox("Please select the header rows:", "Kutools for Excel", "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set xVRg = Application.InputBox("Please select the column you want to split data based on:", "Kutools for Excel", "", Type:=8)
If TypeName(xVRg) = "Nothing" Then Exit Sub
vcol = xVRg.Column
Set ws = xTRg.Worksheet
lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
title = xTRg.AddressLocal
titlerow = xTRg.Cells(1).Row
icol = ws.Columns.Count
ws.Cells(1, icol) = "Unique"
Application.DisplayAlerts = False
If Not Evaluate("=ISREF('xTRgWs_Sheet!A1')") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
Else
Sheets("xTRgWs_Sheet").Delete
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
End If
Set xWSTRg = Sheets("xTRgWs_Sheet")
xTRg.Copy
xWSTRg.Paste Destination:=xWSTRg.Range("A1")
ws.Activate
For i = (titlerow + xTRg.Rows.Count) To lr
On Error Resume Next
If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
End If
Next
myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
ws.Columns(icol).Clear
For i = 2 To UBound(myarr)
ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & ""
If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & ""
Else
Sheets(myarr(i) & "").Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
Sheets(myarr(i) & "").Paste Destination:=Sheets(myarr(i) & "").Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A" & (titlerow + xTRg.Rows.Count))
Sheets(myarr(i) & "").Columns.AutoFit
Next
xWSTRg.Delete
ws.AutoFilterMode = False
ws.Activate
Application.DisplayAlerts = True
End Sub

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

कॉलम 7 द्वारा दस्तावेज़ विभाजित डेटा

4। और फिर, क्लिक करें OK बटन, और दूसरे प्रॉम्प्ट बॉक्स में, उस कॉलम डेटा का चयन करें जिसे आप विभाजित करना चाहते हैं, स्क्रीनशॉट देखें:

कॉलम 8 द्वारा दस्तावेज़ विभाजित डेटा

5। तब दबायें OK, और सक्रिय वर्कशीट में सभी डेटा को कॉलम वैल्यू द्वारा कई वर्कशीट में विभाजित किया गया है। और विभाजित कार्यपत्रकों को विभाजित सेल नामों के साथ नाम दिया गया है। स्क्रीनशॉट देखें:

कॉलम 2 द्वारा दस्तावेज़ विभाजित डेटा

नोट्स: स्प्लिट वर्कशीट्स कार्यपुस्तिका के अंत में रखी जाती हैं जहां मास्टर वर्कशीट में है


Excel के लिए कुटूल के साथ कॉलम के आधार पर एकाधिक कार्यपत्रकों में डेटा विभाजित करें

एक एक्सेल शुरुआती के रूप में, यह लंबा VBA कोड हमारे लिए कुछ मुश्किल है, और हम में से अधिकांश यह भी नहीं जानते कि कैसे हमारी जरूरत के अनुसार कोड को संशोधित करें।

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

एक्सेल के लिए कुटूल : 300 से अधिक एक्सेल ऐड-इन्स से अधिक, 60 दिनों में बिना सीमा के प्रयास करने के लिए नि: शुल्क.

यदि आपने स्थापित किया है एक्सेल के लिए कुटूल, कृपया निम्नानुसार करें:

1। उस डेटा की श्रेणी का चयन करें जिसे आप विभाजित करना चाहते हैं।

2। क्लिक करें कुतुल्स प्लस > वर्कशीट > स्प्लिट डेटा, स्क्रीनशॉट देखें:

कॉलम 3 द्वारा दस्तावेज़ विभाजित डेटा

3. में एकाधिक कार्यपत्रकों में डेटा विभाजित करें संवाद बॉक्स, आपको निम्न करने की आवश्यकता है:

1)। चुनते हैं विशिष्ट स्तंभ में विकल्प स्प्लिट के आधार पर अनुभाग में, और कॉलम मूल्य चुनें, जिसे आप ड्रॉप-डाउन सूची में आधारित डेटा विभाजित करना चाहते हैं। (यदि आपके डेटा में हेडर हैं और आप उन्हें प्रत्येक नए विभाजन कार्यपत्रक में डालना चाहते हैं, तो कृपया चेक करें मेरे डेटा में शीर्षलेख हैं विकल्प।)

2)। फिर आप इसके तहत, विभाजन वर्कशीट नाम निर्दिष्ट कर सकते हैं नया कार्यपत्रक नाम अनुभाग में वर्कशीट नाम के नियमों को निर्दिष्ट करें नियम ड्रॉप डाउन सूची, आप जोड़ सकते हैं उपसर्ग or प्रत्यय शीट नाम के लिए भी।

3)। दबाएं OK बटन। स्क्रीनशॉट देखें:

कॉलम 4 द्वारा दस्तावेज़ विभाजित डेटा

4। अब डेटा को एक नई कार्यपुस्तिका में एकाधिक वर्कशीट में विभाजित किया गया है।

कॉलम 5 द्वारा दस्तावेज़ विभाजित डेटा

एक्सेल के लिए कुटूल डाउनलोड करें और निशुल्क परीक्षण करें!


Excel के लिए कुटूल के साथ कॉलम के आधार पर एकाधिक कार्यपत्रकों में डेटा विभाजित करें

एक्सेल के लिए कुटूल 300 से अधिक आसान Excel टूल शामिल हैं 60 दिनों में कोई सीमा नहीं के साथ प्रयास करने के लिए नि: शुल्क नि: शुल्क परीक्षण अब डाउनलोड करें!


संबंधित लेख:

पंक्तियों के अनुसार कई कार्यपत्रकों में डेटा कैसे विभाजित है?



अनुशंसित उत्पादकता उपकरण

कार्यालय टैब

गोल्ड स्टार 1 Excel और अन्य कार्यालय सॉफ़्टवेयर में आसान टैब लाएं, जैसे कि क्रोम, फ़ायरफ़ॉक्स और नए इंटरनेट एक्सप्लोरर।

एक्सेल के लिए कुटूल

गोल्ड स्टार 1 गजब का! 5 मिनट में अपनी उत्पादकता बढ़ाएं। किसी विशेष कौशल की जरूरत नहीं है, हर दिन दो घंटे बचाओ!

गोल्ड स्टार 1 एक्सेल के लिए 300 नई सुविधाएँ, Excel को बहुत आसान और शक्तिशाली बनाएं:

  • डेटा खोए बिना सेल / पंक्तियों / स्तंभों को मिलाएं
  • एकाधिक शीट्स और वर्कबुक को एकजुट और एकीकृत करें
  • सीमाओं की तुलना करें, एकाधिक श्रेणियों की प्रतिलिपि करें, टेक्स्ट, तिथि, यूनिट और मुद्रा रूपांतरण में कनवर्ट करें।
  • रंग, पेजिंग सबटॉटल, उन्नत सॉर्ट और सुपर फ़िल्टर द्वारा गिनो,
  • और चुनें / सम्मिलित करें / हटाएं / पाठ / प्रारूप / लिंक / टिप्पणी / कार्यपुस्तिकाओं / कार्यपत्रक उपकरण ...

एक्सेल के लिए कुटूल का स्क्रीन शॉट

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Siddharth · 1 years ago
    Hi
    I have split the data using VBA and the result was good except that I am getting 2 blank sheet.
    For Eg. Total sheet as per filter needed 70 sheet but got only 68sheets and 2 sheets were blank.

    Can someone help me with this ??
  • To post as a guest, your comment is unpublished.
    Bitterbug · 1 years ago
    When I use this to split the data, I lose all formulas including conditional formatting. I also want to include subtotal in the last column on all sheets. How to do this?
  • To post as a guest, your comment is unpublished.
    Nick M · 1 years ago
    Post #4 on this page does what this should do and doesn't crash my computer like this did!

    https://www.mrexcel.com/forum/excel-questions/727407-vba-split-data-into-multiple-worksheets-based-column.html
  • To post as a guest, your comment is unpublished.
    Carl · 1 years ago
    Hi, this worked fine once and then i get runtime error '9' subscript out of range at line Set ws = Sheets("[NAME]").


    Why would this be happening?
    • To post as a guest, your comment is unpublished.
      Sharda · 1 years ago
      Hi Carl,
      Even I was getting this error, but
      Do not change ("Sheet1") to anything where script says as Set ws = Sheets("Sheet1")
      It worked for me, hope it works for you as well.
      Cheers
  • To post as a guest, your comment is unpublished.
    Adam Miller · 1 years ago
    The VBA successfully split the data into separate worksheets with most of the unique names from the column I set but it copied all of the data from the master sheet to all of the split out worksheets. I could have done that quicker myself with cut and paste or just filtering by the column in question. Not much of a solution and by the lack of responses below, it doesn't look like much will be done about it?