VBA का उपयोग करके पंक्ति संख्या के आधार पर Excel वर्कशीट को स्वचालित रूप से कई शीट में विभाजित करें

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

प्रैक्टिस वर्कबुक

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

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

VBA (Visual Basic for Application) Microsoft Excel के लिए सभी में सबसे लोकप्रिय प्रोग्रामिंग भाषाओं में से एक है। उपयोगकर्ता-परिभाषित फ़ंक्शन विकसित करने के लिए, हम Excel VBA का उपयोग कर सकते हैं। यह सीखने में बहुत आसान है साथ ही लागू करने में भी आसान है।

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

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

चरण 1: Excel शीट को कई शीट में विभाजित करने के लिए 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 रेंज डायलॉग बॉक्स में डेटा की रेंज निर्दिष्ट करें और ओके चुनें।

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

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

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

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

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

निष्कर्ष

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

संबंधित पठन

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