Excel - Συγχώνευση πολλών φύλλων εργασίας σε ένα μόνο

Θέμα

Χρησιμοποιώ το Excel για την αποθήκευση πληροφοριών για διάφορα προϊόντα και για διαφορετικό φύλλο εργασίας. Πώς να συγχωνεύσετε όλα αυτά τα φύλλα εργασίας σε μία σελίδα; Όλα τα φύλλα εργασίας έχουν τον ίδιο αριθμό στηλών, με τον ίδιο τίτλο (στην πάνω σειρά).

Πώς να προχωρήσω?

Λύση

Υποθέτοντας ότι:

1. Ένα φύλλο με τίτλο Ενοποιημένο μπορεί να δημιουργηθεί και να διαγραφεί από τη μακροεντολή

2. Οι κεφαλίδες βρίσκονται στη σειρά 1 σε όλα τα φύλλα και είναι κοινές για όλους

3. Όλα τα φύλλα θα αντιγραφούν

 Sub CombineSheets () DimLConRow ως μακρύ φύλλο διαστάσεων ως παραλλαγή DimSconsolidatedSheet ως συμβολοσειρά DimSteetRow ως μακρύς dimLastCol ως συμβολοσειρά sConsolidatedSheet = "Consolidated" On Σφάλμα Συνέχιση επόμενα φύλλα (sConsolidatedSheet). Διαγραφή σε σφάλμα GoTo 0 Sheets.Add ActiveSheet.Name = sConsolidatedSheet για κάθε φύλλο σε φύλλα Εάν Sheet.Name = sConsolidatedSheet Μετά GoTo Next_Sheet Αν sLastCol = "" Στη συνέχεια sLastCol = Sheet.Cells (1, Columns.Count) .End (xlToLeft). Φύλλα Διεύθυνσης (sConsolidatedSheet) .Range (" 1 ") = Sheet.Range (" 1: 1 ") Τιμή lConRow = 1 Τέλος Αν lSheetRow = 0 Σφάλμα Συνέχεια Λάθος Επόμενο lSheetRow = Sheet.Cells.Find (" * ", SearchOrder = (lSRetRow> 1), τότε τα φύλλα (sConsolidatedSheet) .Range (lConRow + 1 & ":" & lSheetRow + lConRow - 1) = Sheet.Range (" & lSheetRow) .Value lConRow = Φύλλα (sConsolidatedSheet) .Cells.Find ("*", Κύτταρα (1, 1), SearchOrder: = xlByRows, SearchDirection: = xlPrevious). 

Χάρη στην rizvisa1 για αυτή την συμβουλή.