Excel में एकाधिक कार्यपुस्तिकाओं को एक मास्टर कार्यपुस्तिका में कैसे संयोजित करें?
क्या आप कभी उस समय अटके हैं जब आपको एक्सेल में कई कार्यपुस्तिकाओं को एक मास्टर कार्यपुस्तिका में संयोजित करना पड़ा हो? सबसे भयानक बात यह है कि जिन कार्यपुस्तिकाओं को आपको संयोजित करने की आवश्यकता है उनमें एकाधिक कार्यपत्रक शामिल हैं। और एकाधिक कार्यपुस्तिकाओं की केवल निर्दिष्ट कार्यपत्रकों को एक कार्यपुस्तिका में कैसे संयोजित किया जाए? यह ट्यूटोरियल चरणों में समस्या को हल करने में आपकी सहायता के लिए कई उपयोगी तरीकों को प्रदर्शित करता है।
- विधि A: मूव या कॉपी फ़ंक्शन के साथ एकाधिक कार्यपुस्तिकाओं को एक कार्यपुस्तिका में संयोजित करें
- विधि बी: एकाधिक कार्यपुस्तिकाओं या कार्यपुस्तिकाओं की निर्दिष्ट शीट को VBA के साथ एक मास्टर कार्यपुस्तिका में संयोजित करें
- विधि सी: एकाधिक कार्यपुस्तिकाओं या कार्यपुस्तिकाओं की निर्दिष्ट शीटों को आसानी से एक कार्यपुस्तिका में संयोजित करें
मूव या कॉपी फ़ंक्शन के साथ एकाधिक कार्यपुस्तिकाओं को एक कार्यपुस्तिका में संयोजित करें
यदि केवल कुछ कार्यपुस्तिकाओं को संयोजित करने की आवश्यकता है, तो आप कार्यपत्रकों को मूल कार्यपुस्तिका से मास्टर कार्यपुस्तिका में मैन्युअल रूप से स्थानांतरित करने या कॉपी करने के लिए मूव या कॉपी कमांड का उपयोग कर सकते हैं।
1. उन कार्यपुस्तिकाओं को खोलें जिन्हें आप एक मास्टर कार्यपुस्तिका में मर्ज करेंगे।
2. मूल कार्यपुस्तिका में उन कार्यपत्रकों का चयन करें जिन्हें आप मास्टर कार्यपुस्तिका में स्थानांतरित या कॉपी करेंगे।
टिप्पणियाँ:
1). आप इसे पकड़कर कई गैर-आसन्न कार्यपत्रकों का चयन कर सकते हैं कंट्रोल कुंजी और शीट टैब पर एक-एक करके क्लिक करें।
2). एकाधिक आसन्न वर्कशीट का चयन करने के लिए, कृपया पहले शीट टैब पर क्लिक करें, दबाए रखें पाली कुंजी, और फिर उन सभी को चुनने के लिए अंतिम शीट टैब पर क्लिक करें।
3). आप किसी भी शीट टैब पर राइट क्लिक कर सकते हैं, क्लिक करें सभी पत्रक चुनें एक ही समय में कार्यपुस्तिका में सभी कार्यपत्रकों का चयन करने के लिए संदर्भ मेनू से।
3. आवश्यक वर्कशीट का चयन करने के बाद शीट टैब पर राइट क्लिक करें और फिर क्लिक करें ले जाएं या कॉपी करें संदर्भ मेनू से. स्क्रीनशॉट देखें:
4. फिर ले जाएं या कॉपी करें संवाद पॉप अप होता है बुक करने के लिए ड्रॉप-डाउन, उस मास्टर वर्कबुक का चयन करें जिसमें आप वर्कशीट को स्थानांतरित या कॉपी करेंगे। में समाप्त करने के लिए चाल का चयन करें शीट से पहले बॉक्स, चेक करें एक कॉपी बनाएं बॉक्स, और अंत में क्लिक करें OK बटन.
फिर आप दो कार्यपुस्तिकाओं में कार्यपत्रकों को एक में संयोजित करके देख सकते हैं। कृपया वर्कशीट को अन्य वर्कबुक से मास्टर वर्कबुक में स्थानांतरित करने के लिए उपरोक्त चरणों को दोहराएं।
एकाधिक कार्यपुस्तिकाओं या कार्यपुस्तिकाओं की निर्दिष्ट शीट को VBA के साथ एक मास्टर कार्यपुस्तिका में संयोजित करें
यदि कई कार्यपुस्तिकाओं को एक में विलय करने की आवश्यकता है, तो आप इसे शीघ्रता से प्राप्त करने के लिए निम्नलिखित VBA कोड लागू कर सकते हैं। कृपया निम्नानुसार करें.
1. उन सभी कार्यपुस्तिकाओं को एक ही निर्देशिका के अंतर्गत रखें जिन्हें आप एक में संयोजित करना चाहते हैं।
2. एक एक्सेल फ़ाइल लॉन्च करें (यह वर्कबुक मास्टर वर्कबुक होगी)।
3। दबाएं ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल, फिर नीचे दिए गए VBA कोड को मॉड्यूल विंडो में कॉपी करें।
वीबीए कोड 1: एकाधिक एक्सेल कार्यपुस्तिकाओं को एक में मर्ज करें
Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
Do While Filename <> ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
For Each Sheet In ActiveWorkbook.Sheets
Sheet.Copy After:=ThisWorkbook.Sheets(1)
Next Sheet
Workbooks(Filename).Close
Filename = Dir()
Loop
End Sub
टिप्पणियाँ:
1. उपरोक्त वीबीए कोड विलय के बाद मूल कार्यपुस्तिकाओं के शीट नाम रखेगा।
2. यदि आप यह अंतर करना चाहते हैं कि विलय के बाद मास्टर वर्कबुक में कौन सी वर्कशीट कहां से आई, तो कृपया नीचे दिया गया वीबीए कोड 2 लागू करें।
3. यदि आप कार्यपुस्तिकाओं की निर्दिष्ट कार्यपत्रकों को एक मास्टर कार्यपुस्तिका में संयोजित करना चाहते हैं, तो नीचे दिया गया VBA कोड 3 मदद कर सकता है।
वीबीए कोड में, "C:\उपयोगकर्ता\DT168\डेस्कटॉप\KTE\"फ़ोल्डर पथ है. वीबीए कोड 3 में, "शीट1,शीट3" उन कार्यपुस्तिकाओं की निर्दिष्ट कार्यपत्रक है जिन्हें आप एक मास्टर कार्यपुस्तिका में संयोजित करेंगे। आप उन्हें अपनी आवश्यकताओं के आधार पर बदल सकते हैं।
वीबीए कोड 2: वर्कबुक को एक में मर्ज करें (प्रत्येक वर्कशीट का नाम उसके मूल फ़ाइल नाम के उपसर्ग के साथ रखा जाएगा):
Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
वीबीए कोड 3: कार्यपुस्तिकाओं की निर्दिष्ट कार्यपत्रकों को एक मास्टर कार्यपुस्तिका में मर्ज करें:
Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next
xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"
xArr = Split(xStrName, ",")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
4। दबाएं F5 कोड चलाने की कुंजी. फिर सभी वर्कशीट या निश्चित फ़ोल्डर में वर्कबुक की निर्दिष्ट वर्कशीट को एक ही बार में एक मास्टर वर्कबुक में जोड़ दिया जाता है।
एकाधिक कार्यपुस्तिकाओं या कार्यपुस्तिकाओं की निर्दिष्ट शीटों को आसानी से एक कार्यपुस्तिका में संयोजित करें
सौभाग्य से, इस मिलाना कार्यपुस्तिका उपयोगिता एक्सेल के लिए कुटूल एकाधिक कार्यपुस्तिकाओं को एक में मर्ज करना बहुत आसान हो जाता है। आइए देखें कि एकाधिक कार्यपुस्तिकाओं के संयोजन में इस फ़ंक्शन को कैसे कार्यान्वित किया जाए।
आवेदन करने से पहले एक्सेल के लिए कुटूल, कृपया सबसे पहले इसे डाउनलोड करें और इंस्टॉल करें.
1. एक नई कार्यपुस्तिका बनाएं और क्लिक करें कुटूल्स प्लस > मिलाना. फिर आपको याद दिलाने के लिए एक संवाद पॉप होता है कि सभी संयुक्त कार्यपुस्तिकाओं को सहेजा जाना चाहिए और यह सुविधा संरक्षित कार्यपुस्तिकाओं पर लागू नहीं की जा सकती है, कृपया क्लिक करें OK बटन.
2। में कार्यपत्रकों को संयोजित करें विज़ार्ड, चयन करें कार्यपुस्तिकाओं से एकाधिक कार्यपत्रकों को एक कार्यपुस्तिका में संयोजित करें विकल्प, और फिर क्लिक करें अगला बटन। स्क्रीनशॉट देखें:
3। में वर्कशीट को संयोजित करें - 2 में से चरण 3 संवाद बॉक्स में, क्लिक करें > पट्टिका or फ़ोल्डर एक्सेल फ़ाइलों को जोड़ने के लिए आप उन्हें एक में मर्ज कर देंगे। Excel फ़ाइलें जोड़ने के बाद, क्लिक करें अंत मास्टर कार्यपुस्तिका को सहेजने के लिए बटन दबाएं और एक फ़ोल्डर चुनें। स्क्रीनशॉट देखें:
अब सभी कार्यपुस्तिकाएँ एक में समाहित हो गई हैं।
उपरोक्त दो विधियों की तुलना में, एक्सेल के लिए कुटूल निम्नलिखित लाभ हैं:
- 1) सभी कार्यपुस्तिकाएँ और कार्यपत्रक संवाद बॉक्स में सूचीबद्ध हैं;
- 2) जिन कार्यपत्रकों को आप विलय से बाहर करना चाहते हैं, उन्हें अनचेक करें;
- 3) रिक्त वर्कशीट स्वचालित रूप से बाहर कर दी जाती हैं;
- 4) मूल फ़ाइल नाम विलय के बाद शीट नाम में उपसर्ग के रूप में जोड़ा जाएगा;
- इस सुविधा के अधिक कार्यों के लिए, कृपया यहाँ जाएँ.
यदि आप इस उपयोगिता का निःशुल्क परीक्षण (30-दिन) चाहते हैं, कृपया इसे डाउनलोड करने के लिए क्लिक करें, और फिर उपरोक्त चरणों के अनुसार ऑपरेशन लागू करने के लिए जाएं।