गतिशील रूप से दो शीटों को एक में संयोजित करें

यह शानदार है, अगर आपने एक बार भी मैक्रो चलाया है, तो आप पहली बार कोशिश कर सकते हैं।

1. शीर्ष पंक्ति पर >> डेवलपर . पर क्लिक करें
2. सबसे ऊपर बाईं ओर >> विज़ुअल बेसिक . पर क्लिक करें
3. बाएं शीर्ष कॉलम पर फ़ाइल नाम पर राइट क्लिक करें >> मॉड्यूल डालें
4. निम्नलिखित कोड पेस्ट करें, सहेजें और चलाएं (हरा त्रिकोण चलाएं)।

एक एक्सेल फाइल में कई एक्सेल फाइलों के संयोजन के लिए अलग-अलग टैब

Sub mergeExcelFiles()
    'Merges all files in a folder to a main file.
    
    'Define variables:
    Dim numberOfFilesChosen, i As Integer
    Dim tempFileDialog As fileDialog
    Dim mainWorkbook, sourceWorkbook As Workbook
    Dim tempWorkSheet As Worksheet
    
    Set mainWorkbook = Application.ActiveWorkbook
    Set tempFileDialog = Application.fileDialog(msoFileDialogFilePicker)
    
    'Allow the user to select multiple workbooks
    tempFileDialog.AllowMultiSelect = True
    
    numberOfFilesChosen = tempFileDialog.Show
    
    'Loop through all selected workbooks
    For i = 1 To tempFileDialog.SelectedItems.Count
        
        'Open each workbook
        Workbooks.Open tempFileDialog.SelectedItems(i)
        
        Set sourceWorkbook = ActiveWorkbook
        
        'Copy each worksheet to the end of the main workbook
        For Each tempWorkSheet In sourceWorkbook.Worksheets
            tempWorkSheet.Copy after:=mainWorkbook.Sheets(mainWorkbook.Worksheets.Count)
        Next tempWorkSheet
        
        'Close the source workbook
        sourceWorkbook.Close
    Next i
    
End Sub

स्रोत https://professor-excel.com/merge-sheets/< /ए>

Sub mergeExcelTabs()
'UpdatebyExtendoffice20180205
    Dim I As Long
    Dim xRg As Range
    On Error Resume Next
    Worksheets.Add Sheets(1)
    ActiveSheet.Name = "Combined"
   For I = 2 To Sheets.Count
        Set xRg = Sheets(1).UsedRange
        If I > 2 Then
            Set xRg = Sheets(1).Cells(xRg.Rows.Count + 1, 1)
        End If
        Sheets(I).Activate
        ActiveSheet.UsedRange.Copy xRg
    Next
End Sub

स्रोत https://www.extendoffice.com/documents/excel/5017-excel-collect-data-from-multiple-sheets.html