एक्सेल में एक बड़ी टेबल को कई छोटी टेबलों में कैसे विभाजित करें?
यदि आपके पास एक बड़ी वर्कशीट है जिसमें कई कॉलम और सैकड़ों या हजारों पंक्तियों का डेटा है, तो अब, आप निम्नलिखित परिणाम प्राप्त करने के लिए कॉलम मान या पंक्तियों की संख्या के आधार पर इस बड़ी तालिका को कई छोटी तालिकाओं में विभाजित करना चाहते हैं। आप एक्सेल में इस कार्य से कैसे निपट सकते हैं?
मुख्य टेबल | स्तंभ मान के आधार पर तालिका को एकाधिक तालिकाओं में विभाजित करें | पंक्तियों की संख्या के आधार पर तालिका को कई तालिकाओं में विभाजित करें | |
VBA कोड के साथ कॉलम मान के आधार पर एक बड़ी तालिका को कई तालिकाओं में विभाजित करें
VBA कोड के साथ पंक्तियों की विशिष्ट संख्या के आधार पर एक बड़ी तालिका को कई तालिकाओं में विभाजित करें
VBA कोड के साथ कॉलम मान के आधार पर एक बड़ी तालिका को कई तालिकाओं में विभाजित करें
इस बड़ी तालिका को एक विशिष्ट कॉलम मान के आधार पर कई तालिकाओं में विभाजित करने के लिए, निम्नलिखित VBA कोड आपकी मदद कर सकता है। कृपया इस प्रकार करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: एक बड़ी तालिका को कुंजी कॉलम द्वारा कई तालिकाओं में विभाजित करें:
Sub Splitdatabycol()
'by Extendoffice
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 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स पॉप आउट हो जाता है, कृपया अपने डेटा से हेडर पंक्ति का चयन करें, स्क्रीनशॉट देखें:
4। तब दबायें OK, और एक अन्य संवाद बॉक्स पॉप आउट हो गया है, कृपया उस कॉलम डेटा का चयन करें जिसके आधार पर आप तालिका को विभाजित करना चाहते हैं, स्क्रीनशॉट देखें:
5। क्लिक करें OK, इस बड़ी तालिका को कॉलम मान द्वारा कई वर्कशीट में विभाजित किया गया है जो मास्टर शीट के बाद स्थित हैं। और नई वर्कशीट को कॉलम मान के साथ नाम दिया गया है। स्क्रीनशॉट देखें:
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 बटन, मास्टर टेबल को पंक्तियों की संख्या के आधार पर कई वर्कशीट में विभाजित किया गया है जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है:
एक अद्भुत सुविधा के साथ कॉलम मान या पंक्तियों की संख्या के आधार पर एक बड़ी तालिका को कई तालिकाओं में विभाजित करें
हो सकता है कि उपरोक्त कोड अधिकांश उपयोगकर्ताओं के लिए कठिन हों, यहां, मैं एक अद्भुत सुविधा पेश करूंगा-डेटा विभाजित करें of एक्सेल के लिए कुटूल. इस उपयोगिता के साथ, आप एक बड़ी तालिका को कुंजी कॉलम या पंक्तियों की संख्या के आधार पर जल्दी और आसानी से कई तालिकाओं में विभाजित कर सकते हैं।
सुझाव:इसे लागू करने के लिए डेटा विभाजित करें सुविधा, सबसे पहले, आपको डाउनलोड करना चाहिए एक्सेल के लिए कुटूल, और फिर सुविधा को जल्दी और आसानी से लागू करें।
स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया ऐसा करें:
1. उस डेटा श्रेणी का चयन करें जिसे आप विभाजित करना चाहते हैं, और फिर, क्लिक करें कुटूल्स प्लस > डेटा विभाजित करें, स्क्रीनशॉट देखें:
2. में डेटा को एकाधिक वर्कशीट में विभाजित करें संवाद बॉक्स में, अपनी आवश्यकता के अनुसार सेटिंग्स निर्दिष्ट करें:
(1.) चयन करें विशिष्ट स्तंभ or निश्चित पंक्तियाँ से के आधार पर विभाजित करें आपकी आवश्यकतानुसार अनुभाग;
(2.) से नई वर्कशीट का नाम निर्दिष्ट करें नियम ड्रॉप डाउन सूची, आप जोड़ सकते हैं उपसर्ग or प्रत्यय शीट के नामों पर भी.
3। तब दबायें Ok बटन, और अब, बड़ी तालिका को एक नई कार्यपुस्तिका में कई छोटी तालिकाओं में विभाजित कर दिया गया है। स्क्रीनशॉट देखें:
स्तंभ मान के आधार पर तालिका को एकाधिक तालिकाओं में विभाजित करें | पंक्तियों की संख्या के आधार पर तालिका को कई तालिकाओं में विभाजित करें |
एक्सेल के लिए कुटूल्स डाउनलोड करने और अभी निःशुल्क परीक्षण करने के लिए क्लिक करें!
अधिक संबंधित लेख:
- एक्सेल में एक्सेल फाइलों को अलग करने के लिए एक कार्यपुस्तिका को विभाजित करें
- आपको कार्यपुस्तिका के प्रत्येक कार्यपत्रक को एक व्यक्तिगत एक्सेल फ़ाइल के रूप में सहेजने के साथ एक्सेल फ़ाइलों को अलग करने के लिए एक बड़ी कार्यपुस्तिका को विभाजित करने की आवश्यकता हो सकती है। उदाहरण के लिए, आप किसी कार्यपुस्तिका को कई अलग-अलग एक्सेल फ़ाइलों में विभाजित कर सकते हैं और फिर प्रत्येक फ़ाइल को संभालने के लिए अलग-अलग व्यक्ति को सौंप सकते हैं। ऐसा करने से, आप कुछ व्यक्तियों से विशिष्ट डेटा को संभालने के लिए कह सकते हैं और अपने डेटा को सुरक्षित रख सकते हैं। यह आलेख प्रत्येक वर्कशीट के आधार पर एक्सेल फ़ाइलों को अलग करने के लिए एक बड़ी कार्यपुस्तिका को विभाजित करने के तरीकों का परिचय देगा।
- Excel में पूर्ण नाम को प्रथम और अंतिम नाम में विभाजित करें
- मान लीजिए कि आपके पास एक नाम रोस्टर है जैसा कि पहला स्क्रीन शॉट नीचे एकल कॉलम में दिखाता है, और आपको पूरे नाम को पहले नाम कॉलम, मध्य नाम कॉलम और अंतिम नाम कॉलम में विभाजित करने की आवश्यकता है जैसा कि निम्नलिखित स्क्रीनशॉट में दिखाया गया है। इस समस्या को हल करने में आपकी सहायता के लिए यहां कुछ पेचीदा तरीके दिए गए हैं।
- एक्सेल में एक लंबे कॉलम को कई कॉलम में विभाजित करें
- यदि आपके पास एक्सेल में लंबे कॉलम का डेटा है जिसे देखने में परेशानी होगी। लेकिन अब यदि आप एक्सेल में इतनी लंबी सूची को कई कॉलमों में विभाजित कर सकते हैं, तो इससे देखने में आसानी होगी।
- Excel में शब्द या संख्या को अलग-अलग कक्षों में विभाजित करें
- यदि आपके पास वर्कशीट में संख्याओं या शब्दों की एक सूची है, और अब आपको सेल की सामग्री को अलग-अलग सेल पर अक्षरों में विभाजित करने की आवश्यकता है जैसा कि स्क्रीनशॉट में दिखाया गया है, तो आप एक्सेल में इस काम से कैसे निपट सकते हैं?
- एक्सेल में एक लंबी सूची को समान समूहों में विभाजित करें
- यदि आपके पास निम्नलिखित स्क्रीनशॉट में दिखाए गए अनुसार कई समान समूहों में विभाजित करने के लिए आवश्यक डेटा की एक लंबी सूची है, तो आप एक्सेल में इस कार्य को जल्दी और आसानी से कैसे निपटा सकते हैं?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल आपकी अधिकांश समस्याओं का समाधान करता है, और आपकी उत्पादकता को 80% तक बढ़ाता है
- सुपर फॉर्मूला बार (पाठ और सूत्र की अनेक पंक्तियों को आसानी से संपादित करें); लेआउट पढ़ना (बड़ी संख्या में सेल को आसानी से पढ़ें और संपादित करें); फ़िल्टर की गई रेंज में चिपकाएँ...
- कक्षों/पंक्तियों/स्तंभों को मर्ज करें और डेटा रखना; विभाजित कोशिकाओं की सामग्री; डुप्लिकेट पंक्तियों और योग/औसत को संयोजित करें... डुप्लिकेट सेल रोकें; रेंज की तुलना करें...
- डुप्लिकेट या अद्वितीय का चयन करें पंक्तियाँ; रिक्त पंक्तियाँ चुनें (सभी कोशिकाएँ खाली हैं); सुपर फाइंड और फ़ज़ी फाइंड कई कार्यपुस्तिकाओं में; यादृच्छिक चयन...
- सटीक प्रति सूत्र संदर्भ बदले बिना एकाधिक कक्ष; स्वतः संदर्भ बनाएँ एकाधिक शीट्स के लिए; बुलेट डालें, चेक बॉक्स और बहुत कुछ...
- पसंदीदा और त्वरित रूप से सम्मिलित सूत्र, रेंज, चार्ट और चित्र; कोशिकाओं को एन्क्रिप्ट करें पासवर्ड के साथ; मेलिंग सूची बनाएं और ईमेल भेजें...
- पाठ निकालें, टेक्स्ट जोड़ें, स्थिति के अनुसार हटाएँ, अंतरिक्ष निकालें; पेजिंग सबटोटल बनाएं और प्रिंट करें; सेल सामग्री और टिप्पणियों के बीच कनवर्ट करें...
- सुपर फ़िल्टर (फ़िल्टर योजनाओं को अन्य शीटों पर सहेजें और लागू करें); उन्नत सॉर्ट महीने/सप्ताह/दिन, आवृत्ति और अधिक के अनुसार; विशेष फ़िल्टर बोल्ड, इटैलिक द्वारा...
- वर्कबुक और वर्कशीट को मिलाएं; प्रमुख स्तंभों के आधार पर तालिकाएँ मर्ज करें; डेटा को एकाधिक शीट में विभाजित करें; बैच कनवर्ट xls, xlsx और पीडीएफ...
- पिवोट टेबल ग्रुपिंग द्वारा सप्ताह संख्या, सप्ताह का दिन और बहुत कुछ... अनलॉक, लॉक किए गए सेल दिखाएँ विभिन्न रंगों से; उन कक्षों को हाइलाइट करें जिनमें सूत्र/नाम हो...
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!