युक्ति: अन्य भाषाओं में Google-Translated आप यात्रा कर सकते हैं English इस लिंक का संस्करण
लॉग इन करें
x
or
x
x
रजिस्टर
x

or

एक्सेल में एक मास्टर वर्कबुक में कई वर्कबुक कैसे संयोजित करें?

क्या आप कभी अटक गए हैं जब आपको एक्सेल में एक मास्टर वर्कबुक में कई वर्कबुक को संयोजित करना पड़ता है? सबसे भयानक बात यह है कि जिन कार्यपुस्तिकाओं को आपको संयोजित करने की आवश्यकता है उनमें कई कार्यपत्रक शामिल हैं। और एक वर्कबुक में कई वर्कबुक की केवल निर्दिष्ट वर्कशीट को कैसे मिलाएं? यह ट्यूटोरियल आपको चरणों द्वारा समस्या को हल करने में मदद करने के लिए कई उपयोगी तरीकों को प्रदर्शित करता है।


एक्सेल में एक से अधिक वर्कबुक को आसानी से संयोजित करें:

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

मूव या कॉपी फ़ंक्शन के साथ एक वर्कबुक में कई वर्कबुक को मिलाएं

यदि बस कुछ कार्यपुस्तिकाओं को संयोजित करने की आवश्यकता है, तो आप मूल कार्यपुस्तिका से मास्टर वर्कबुक में मैन्युअल रूप से स्थानांतरित करने या कॉपी करने के लिए मूव या कॉपी कमांड का उपयोग कर सकते हैं।

1। कार्यपुस्तिका खोलें जिसे आप एक मास्टर कार्यपुस्तिका में मर्ज करेंगे।

2। मूल कार्यपुस्तिका में कार्यपत्रकों का चयन करें जिन्हें आप मास्टर कार्यपुस्तिका में स्थानांतरित या कॉपी करेंगे।

टिप्पणियाँ:

1)। आप कई गैर-समीपवर्ती वर्कशीट का चयन कर सकते हैं कंट्रोल कुंजी और एक-एक करके शीट टैब पर क्लिक करना।

2)। कई आसन्न वर्कशीट चुनने के लिए, कृपया पहले शीट टैब पर क्लिक करें पाली कुंजी, और फिर उन सभी का चयन करने के लिए अंतिम शीट टैब पर क्लिक करें।

3)। आप किसी भी शीट टैब पर राइट क्लिक करें, क्लिक करें सभी शीट्स का चयन करें एक ही समय में कार्यपुस्तिका में सभी कार्यपत्रकों का चयन करने के लिए संदर्भ मेनू से।

3। आवश्यक वर्कशीट का चयन करने के बाद, शीट टैब पर राइट क्लिक करें, और फिर क्लिक करें ले जाएं या कॉपी करें संदर्भ मेनू से स्क्रीनशॉट देखें:

4। फिर ले जाएं या कॉपी करें संवाद पॉप अप होता है, में बुक करने के लिए ड्रॉप-डाउन, उस मास्टर कार्यपुस्तिका का चयन करें जिसे आप स्थानांतरित करेंगे या कार्यपत्रकों को कॉपी करेंगे। में समाप्त करने के लिए चाल का चयन करें शीट से पहले बॉक्स, चेक करें एक कॉपी बनाएं बॉक्स, और अंत में क्लिक करें OK बटन.

फिर आप एक में संयुक्त दो कार्यपुस्तिकाओं में वर्कशीट देख सकते हैं। कृपया अन्य कार्यपुस्तिकाओं से मास्टर कार्यपुस्तिका में कार्यपत्रकों को स्थानांतरित करने के लिए उपरोक्त चरणों को दोहराएं।

ऑफिस टैब - एक वास्तविक समय बचाने वाला ऐड-इन!

एक नज़र में एक आवश्यक दस्तावेज़ को जल्दी से खोजने में मदद करने के लिए एक ही विंडो में सभी खोले गए दस्तावेज़ों को प्रदर्शित करें।

पूर्ण सुविधा नि: शुल्क परीक्षण 45-day। एक्सेल, वर्ड और पावरपॉइंट के हर संस्करण के साथ संगत।

अधिक जानकारी के बारे में पता है

VBA के साथ एक मास्टर वर्कबुक में कई वर्कबुक या वर्कबुक की निर्दिष्ट शीट मिलाएं

यदि कई कार्यपुस्तिकाओं को एक में विलय करने की आवश्यकता है, तो आप इसे जल्दी से प्राप्त करने के लिए निम्नलिखित VBA कोड लागू कर सकते हैं। कृपया निम्नानुसार करें।

1। सभी कार्यपुस्तिकाओं को रखें जिन्हें आप एक ही निर्देशिका के तहत एक में जोड़ना चाहते हैं।

2। एक एक्सेल फ़ाइल लॉन्च करें (यह वर्कबुक मास्टर वर्कबुक होगी)।

3। दबाएं ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए Microsoft Visual Basic खिड़की। में अनुप्रयोगों के लिए Microsoft Visual Basic खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल, फिर मॉड्यूल विंडो में वीबीए कोड के नीचे कॉपी करें।

VBA कोड 1: एक में कई एक्सेल वर्कबुक मर्ज करें

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xls")
  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। उपरोक्त VBA कोड विलय के बाद मूल कार्यपुस्तिकाओं के शीट नामों को रखेगा।

2। यदि आप यह जानना चाहते हैं कि मास्टर वर्कबुक में कौन-सी वर्कशीट कहाँ से आई है, तो मर्ज करने के बाद, नीचे VBA कोड XNXX लागू करें।

3। यदि आप कार्यपुस्तिका के निर्दिष्ट कार्यपत्रकों को एक मास्टर कार्यपुस्तिका में संयोजित करना चाहते हैं, तो नीचे VBA कोड 3 मदद कर सकता है।

VBA कोड में, "C: \ Users \ DT168 \ डेस्कटॉप \ KTE \”फ़ोल्डर पथ है। VBA कोड 3 में, "Sheet1, Sheet3"वर्कबुक की निर्दिष्ट वर्कशीट है जिसे आप मास्टर वर्कबुक से जोड़ेंगे। आप अपनी आवश्यकताओं के आधार पर उन्हें बदल सकते हैं।

VBA कोड 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

VBA कोड 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 का XXX का चरण संवाद बॉक्स में, क्लिक करें जोड़ना > पट्टिका or फ़ोल्डर Excel फ़ाइलों को जोड़ने के लिए आप एक में विलय कर देंगे। Excel फ़ाइलों को जोड़ने के बाद, क्लिक करें अंत बटन और मास्टर वर्कबुक को बचाने के लिए एक फ़ोल्डर चुनें। स्क्रीनशॉट देखें:

अब सभी वर्कबुक को एक में मिला दिया जाता है।

उपर्युक्त दो विधियों की तुलना में, एक्सेल के लिए कुटूल निम्नलिखित लाभ हैं:

  • 1) सभी वर्कबुक और वर्कशीट संवाद बॉक्स में सूचीबद्ध हैं;
  • 2) उन वर्कशीट के लिए जिन्हें आप विलय से बाहर करना चाहते हैं, बस इसे अनचेक करें;
  • 3) रिक्त वर्कशीट को स्वचालित रूप से बाहर रखा गया है;
  • 4) मूल फ़ाइल नाम विलय के बाद शीट नाम के लिए उपसर्ग के रूप में जोड़ा जाएगा;
  • इस सुविधा के अधिक कार्यों के लिए, कृपया यहां जाएं.

क्या ये वर्कबुक को मिलाएं उपयोगिता मदद? चलो डाउनलोड करें और पूर्ण सुविधा नि: शुल्क परीक्षण 60-day की कोशिश करें!

Microsoft Office के लिए अनुशंसित उत्पादकता उपकरण

Office Tab - Tabbed ब्राउज़िंग, संपादन और Excel / Word / PowerPoint में प्रबंधन:

कार्यालय टैब Google ब्राउज़र, इंटरनेट एक्सप्लोरर के नए संस्करणों और फ़ायरफ़ॉक्स से माइक्रोसॉफ्ट एक्सेल / वर्ड / पॉवरपॉइंट जैसे वेब ब्राउज़रों में देखे गए टैब्ड इंटरफ़ेस को लाता है। यह एक समय की बचत करने वाला उपकरण होगा और आपके काम में असाध्य होगा। नीचे देखें डेमो:

ot1

एक्सेल के लिए कुटूल - माइक्रोसॉफ्ट एक्सेल के लिए 300 एडवांस्ड फंक्शंस और टूल्स से अधिक:

एक्सेल के लिए कुटूल एक्सेल में कुछ क्लिकों में विभिन्न प्रकार के जटिल कार्यों को सरल बनाने के लिए 300 उन्नत सुविधाओं के साथ एक आसान एक्सेल ऐड-इन है। उदाहरण के लिए:

  • एक वर्कबुक में कई वर्कशीट या वर्कबुक मिलाएं
  • पृष्ठभूमि / फ़ॉन्ट रंग के आधार पर कोशिकाओं की गणना और योग करें
  • अंतरिक्ष / अल्पविराम / सीमांकक द्वारा कई पंक्तियों / स्तंभों में सेल सामग्री विभाजित करें
  • बैच कोशिकाओं में अग्रणी रिक्त स्थान निकालें
KTE

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.
    Dezignext Technologies · 1 months ago
    I like using this technique better than using traditional "3D Formula" techniques in Excel.
  • To post as a guest, your comment is unpublished.
    Jonel · 2 months ago
    Note: This VBA code can merge the entire workbooks into the master workbook, if you want to combine specified worksheets of the workbooks, this code will not work.

    Can we have the module for VBA that above scene will work,
    • To post as a guest, your comment is unpublished.
      crystal · 1 months ago
      Hi Jonel,
      The following code can help you solve the problem. You need to replace folder path and "Sheet1, Sheet3" with the specified folder path and worksheets as you need.

      Sub MergeSheets2()
      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
  • To post as a guest, your comment is unpublished.
    Chris · 3 months ago
    When I run this, each sheet in the new workbook is being named based off of the sheet names of the original document rather than the filenames. Any idea what I might be doing wrong?
    • To post as a guest, your comment is unpublished.
      crystal · 1 months ago
      Hi Chris,
      If you want to distinguish which worksheets in the master workbook came from where after merging, please apply the below VBA code to solve the problem.

      Sub MergeWorkbooks()
      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
  • To post as a guest, your comment is unpublished.
    Owen · 6 months ago
    It didnt work for me then I realized my files are .xlsx, so added the missing "x" to the Filename line.
  • To post as a guest, your comment is unpublished.
    Justin · 9 months ago
    This worked for me but I had to make sure I have to put "\" at the end of my path. Initially, I didn't have it and it wouldn't work.