2 Γρήγορα μέσα για να διαχωρίσετε τα περιεχόμενα ενός φύλλου εργασίας του Excel σε πολλά βιβλία εργασίας με βάση μια συγκεκριμένη στήλη

Κατά καιρούς, στην ανάλυση δεδομένων, ίσως χρειαστεί να χωρίσετε τα περιεχόμενα ενός φύλλου εργασίας Excel σε πολλά βιβλία εργασίας Excel σύμφωνα με μια συγκεκριμένη στήλη. Τώρα, σε αυτήν την ανάρτηση, θα σας διδάξουμε 2 γρήγορους τρόπους για να το αποκτήσετε.

Πολλοί χρήστες συχνά χρειάζεται να χωρίσουν ένα φύλλο εργασίας του Excel που περιέχει τεράστιες σειρές δεδομένων σε πολλά ξεχωριστά βιβλία εργασίας του Excel με βάση μια συγκεκριμένη στήλη. Για παράδειγμα, εδώ είναι το δείγμα φύλλου εργασίας του Excel. Θα ήθελα να χωρίσω τα δεδομένα αυτού του φύλλου με βάση τη στήλη "Τιμή μίας άδειας (US $)" σε πολλά βιβλία εργασίας.

Σε γενικές γραμμές, θα τείνετε να χρησιμοποιείτε την ακόλουθη μέθοδο 1 για να φιλτράρετε και να αντιγράψετε δεδομένα με μη αυτόματο τρόπο. Όμως, θα είναι αρκετά κουραστικό και ανόητο εάν υπάρχουν πάρα πολλές επιλογές φίλτρου. Επομένως, εδώ παρουσιάζουμε επίσης έναν πολύ πιο εύκολο τρόπο - τη Μέθοδο 2, που χρησιμοποιεί το VBA. Τώρα, διαβάστε για να τα δείτε αναλυτικά.

Μέθοδος 1: Αντιγραφή περιεχομένων σε διαχωρισμό βιβλίων εργασίας του Excel μετά το φίλτρο

1. Αρχικά, επιλέξτε ένα κελί στη συγκεκριμένη στήλη, όπως "Cell B1" στη δική μου παρουσία.
2. Στη συνέχεια, μεταβείτε στην καρτέλα "Δεδομένα" και κάντε κλικ στο κουμπί "Φίλτρο".
3. Στη συνέχεια, κάντε κλικ στο κουμπί «κάτω βέλος» στην κεφαλίδα της στήλης για να εμφανιστεί μια λίστα επιλογών φίλτρου.
4. Τώρα, καταργήστε την επιλογή "(Επιλογή όλων)".
5. Μετά από αυτό, μπορείτε να επιλέξετε μία επιλογή φίλτρου, όπως "29.95" στο παράδειγμά μου και να κάνετε κλικ στο "OK".
6. Αμέσως, θα απομένουν μόνο τα δεδομένα, των οποίων η τιμή στη στήλη B είναι "29.95".
7. Στη συνέχεια, αντιγράψτε τα φιλτραρισμένα δεδομένα και επικολλήστε τα σε ένα νέο βιβλίο εργασίας του Excel.
8. Αργότερα, χρησιμοποιήστε τον ίδιο τρόπο για να διαχωρίσετε τα άλλα δεδομένα για να διαχωρίσετε βιβλία εργασίας του Excel.

Μέθοδος 2: Περιεχόμενα διαχωρισμού παρτίδας σε πολλαπλά βιβλία εργασίας Excel μέσω VBA

1. Καταρχάς, βεβαιωθείτε ότι έχει ανοίξει το συγκεκριμένο φύλλο εργασίας.
2. Στη συνέχεια, ξεκινήστε το πρόγραμμα επεξεργασίας VBA σύμφωνα με το «Πώς να εκτελέσετε τον κώδικα VBA στο Excel σας".
3. Στη συνέχεια, τοποθετήστε τον ακόλουθο κώδικα στο έργο "ThisWorkbook".

Sub SplitSheetDataIntoMultipleWorkbooksBasedOnSpecificColumn()
    Dim objWorksheet As Excel.Worksheet
    Dim nLastRow, nRow, nNextRow As Integer
    Dim strColumnValue As String
    Dim objDictionary As Object
    Dim varColumnValues As Variant
    Dim varColumnValue As Variant
    Dim objExcelWorkbook As Excel.Workbook
    Dim objSheet As Excel.Worksheet
 
    Set objWorksheet = ActiveSheet
    nLastRow = objWorksheet.Range("A" & objWorksheet.Rows.Count).End(xlUp).Row
 
    Set objDictionary = CreateObject("Scripting.Dictionary")
 
    For nRow = 2 To nLastRow
        'Get the specific Column
        'Here my instance is "B" column
        'You can change it to your case
        strColumnValue = objWorksheet.Range("B" & nRow).Value
 
        If objDictionary.Exists(strColumnValue) = False Then
           objDictionary.Add strColumnValue, 1
        End If
    Next
 
    varColumnValues = objDictionary.Keys
 
    For i = LBound(varColumnValues) To UBound(varColumnValues)
        varColumnValue = varColumnValues(i)
 
        'Create a new Excel workbook
        Set objExcelWorkbook = Excel.Application.Workbooks.Add
        Set objSheet = objExcelWorkbook.Sheets(1)
        objSheet.Name = objWorksheet.Name
 
        objWorksheet.Rows(1).EntireRow.Copy
        objSheet.Activate
        objSheet.Range("A1").Select
        objSheet.Paste
 
        For nRow = 2 To nLastRow
            If CStr(objWorksheet.Range("B" & nRow).Value) = CStr(varColumnValue) Then
               'Copy data with the same column "B" value to new workbook
               objWorksheet.Rows(nRow).EntireRow.Copy
  
               nNextRow = objSheet.Range("A" & objWorksheet.Rows.Count).End(xlUp).Row + 1
               objSheet.Range("A" & nNextRow).Select
               objSheet.Paste
               objSheet.Columns("A:B").AutoFit
            End If
        Next
    Next
End Sub

4. Μετά από αυτό, κάντε κλικ στο εικονίδιο "Εκτέλεση" στη γραμμή εργαλείων ή πατήστε το πλήκτρο "F5".
5. Όταν ολοκληρωθεί η μακροεντολή, τα ξεχωριστά βιβλία εργασίας του Excel θα δημιουργηθούν με τα διαχωρισμένα δεδομένα από το φύλλο εργασίας του Excel προέλευσης.
6. Κάθε βιβλίο εργασίας θα μοιάζει με το ακόλουθο στιγμιότυπο οθόνης.

Σύγκριση

Αποτρέψτε την απώλεια δεδομένων του Excel

Αν και το MS Excel γίνεται όλο και πιο προηγμένο και εξελιγμένο, εξακολουθεί να τείνει να διακόπτεται από καιρό σε καιρό λόγω διάφορων παραγόντων, όπως κακόβουλα πρόσθετα τρίτων ή ανθρώπινα σφάλματα και ούτω καθεξής. Δεδομένου ότι το Excel crash μπορεί να οδηγήσει άμεσα σε Διαφθορά στο Excel, για να αποφευχθεί η απώλεια δεδομένων του Excel, πρέπει να δημιουργείτε αντίγραφα ασφαλείας των αρχείων Excel σε τακτική βάση. Διαφορετικά, πρέπει να εφαρμόσετε ένα εργαλείο επιδιόρθωσης του Excel, όπως DataNumen Excel Repair για να διορθώσετε κατεστραμμένα αρχεία Excel.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων SQL Server επισκευή και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com