पंक्तियों के आधार पर एक्सेल शीट को कई शीट में विभाजित करें

कभी-कभी आसान गणना के लिए, हमें एक एक्सेल शीट को पंक्तियों के आधार पर कई शीट में विभाजित करने की आवश्यकता होती है . इस लेख में, हम Microsoft Excel VBA . द्वारा ऐसा करना सीखेंगे एक सुंदर उदाहरण और स्पष्टीकरण के साथ कोड।

कार्यपुस्तिका का अभ्यास करें

निम्नलिखित कार्यपुस्तिका डाउनलोड करें और व्यायाम करें।

एक्सेल वीबीए एक्सेल शीट को पंक्तियों के आधार पर कई शीट्स में विभाजित करने के लिए

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

उस शीट का परिचय जिसे एक्सेल में कई शीट में विभाजित किया जाना है

मान लें कि हमारे पास एक डेटासेट है (B4:C10 ) कर्मचारियों की शीट1 . में उनके काम के घंटों के साथ . हम इस शीट को कई शीट में विभाजित करने जा रहे हैं . प्रत्येक शीट में दो पंक्तियाँ होंगी।

चरण 1:एक एक्सेल शीट को कई में विभाजित करने के लिए VBA विंडो लॉन्च करें

• सबसे पहले, शीट बार से वर्कशीट चुनें।
• अगला राइट-क्लिक करें शीट पर।
• क्लिक करें कोड देखें . पर ।

चरण 2:VBA कोड टाइप करें और चलाएँ

• एक VBA मॉड्यूल यहां विंडो खुलती है। हम इसे कीबोर्ड शॉर्टकट ' Alt + F11 . का उपयोग करके खोल सकते हैं '.
• अब नीचे दिया गया कोड टाइप करें:

Sub SplitSheet()
Dim Rng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xSheet As Worksheet
On Error Resume Next
xTitleId = "ExcelSplit"
Set Rng = Application.Selection
Set Rng = Application.InputBox("Range", xTitleId, Rng.Address, Type:=8)
SplitRow = Application.InputBox("Row Number Split", xTitleId, 5, Type:=1)
Set xSheet = Rng.Parent
Set xRow = Rng.Rows(1)
Application.ScreenUpdating = False
For i = 1 To Rng.Rows.Count Step SplitRow
resizeCount = SplitRow
If (Rng.Rows.Count - xRow.Row + 1) < SplitRow Then resizeCount = Rng.Rows.Count - xRow.Row + 1
xRow.Resize(resizeCount).Copy
Application.Worksheets.Add after:=Application.Worksheets(Application.Worksheets.Count)
Application.ActiveSheet.Range("A1").PasteSpecial
Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

• फिर क्लिक करें चलाएं . पर विकल्प या हम बस F5 . दबा सकते हैं कोड चलाने के लिए कुंजी।

चरण 3:पंक्तियों के आधार पर एक शीट को एकाधिक में विभाजित करने के लिए मैक्रो को नाम दें और चलाएं

• एक पुष्टिकरण मैक्रोज़ विंडो पॉप अप होती है।
• उसके बाद, शीट का नाम चुनें और क्लिक करें चलाएं . पर ।

चरण 4:डेटा श्रेणी चुनें

• डेटा की श्रेणी को ExcelSplit Range में निर्दिष्ट करें डायलॉग बॉक्स और ठीक . चुनें ।

चरण 5:प्रत्येक शीट में प्रदर्शित होने वाली पंक्तियों की संख्या निर्दिष्ट करें

• फिर से उस पंक्ति संख्या को लिख लें जिसे हम ExcelSplit Row Number Split में विभाजित करना चाहते हैं। डायलॉग बॉक्स और ठीक . चुनें . यहां हम '2 . लिखते हैं '.

पंक्तियों के आधार पर एकाधिक एक्सेल शीट के साथ अंतिम आउटपुट

• आखिरकार, हम देख सकते हैं कि मुख्य शीट कई शीट में विभाजित है। प्रत्येक शीट में दो पंक्तियाँ होती हैं।

और पढ़ें: कॉलम मान के आधार पर एक्सेल शीट को कई शीट में कैसे विभाजित करें

निष्कर्ष

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

संबंधित रीडिंग

• Excel में स्क्रीन को कैसे विभाजित करें (3 तरीके)
• एक्सेल में अलग पत्रक (6 प्रभावी तरीके)
• एक्सेल शीट को एकाधिक फाइलों में कैसे विभाजित करें (3 त्वरित तरीके)
• एक्सेल में शीट्स को अलग वर्कबुक में विभाजित करें (4 तरीके)
• एक्सेल फाइलों को वीबीए कोड से अलग करने के लिए वर्कबुक को कैसे विभाजित करें