Note: The other languages of the website are Google-translated. Back to English

Πώς να χωρίσετε δεδομένα σε πολλά φύλλα εργασίας με βάση τη στήλη στο Excel;

Ας υποθέσουμε ότι έχετε ένα φύλλο εργασίας με τεράστιες σειρές δεδομένων και τώρα, πρέπει να χωρίσετε τα δεδομένα σε πολλά φύλλα εργασίας με βάση το Όνοματεπώνυμο στήλη (δείτε το παρακάτω στιγμιότυπο οθόνης) και τα ονόματα εισάγονται τυχαία. Ίσως μπορείτε να τα ταξινομήσετε πρώτα και μετά να τα αντιγράψετε και να τα επικολλήσετε ένα προς ένα σε άλλα νέα φύλλα εργασίας. Αλλά αυτό θα χρειαστεί την υπομονή σας για να αντιγράψετε και να επικολλήσετε επανειλημμένα. Σήμερα, θα μιλήσω για μερικά γρήγορα κόλπα για την επίλυση αυτού του έργου.

έγγραφα διαχωρισμού εγγράφων ανά στήλες 1

Διαχωρίστε τα δεδομένα σε πολλά φύλλα εργασίας με βάση τη στήλη με τον κώδικα VBA

Διαχωρίστε τα δεδομένα σε πολλά φύλλα εργασίας με βάση τη στήλη με το Kutools για Excel


Διαχωρίστε τα δεδομένα σε πολλά φύλλα εργασίας με βάση τη στήλη με τον κώδικα VBA

Εάν θέλετε να διαχωρίσετε τα δεδομένα με βάση την τιμή της στήλης γρήγορα και αυτόματα, ο ακόλουθος κώδικας VBA είναι μια καλή επιλογή. Κάντε το ως εξής:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο παράθυρο της ενότητας.

Sub Splitdatabycol()
'updateby Extendoffice
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim icol As Long
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
Dim xTRg As Range
Dim xVRg As Range
Dim xWSTRg As Worksheet
Dim xWS As Worksheet
On Error Resume Next
Set xTRg = Application.InputBox("Please select the header rows:", "Kutools for Excel", "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set xVRg = Application.InputBox("Please select the column you want to split data based on:", "Kutools for Excel", "", Type:=8)
If TypeName(xVRg) = "Nothing" Then Exit Sub
vcol = xVRg.Column
Set ws = xTRg.Worksheet
lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
title = xTRg.AddressLocal
titlerow = xTRg.Cells(1).Row
icol = ws.Columns.Count
ws.Cells(1, icol) = "Unique"
Application.DisplayAlerts = False
If Not Evaluate("=ISREF('xTRgWs_Sheet!A1')") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
Else
Sheets("xTRgWs_Sheet").Delete
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
End If
Set xWSTRg = Sheets("xTRgWs_Sheet")
xTRg.Copy
xWSTRg.Paste Destination:=xWSTRg.Range("A1")
ws.Activate
For i = (titlerow + xTRg.Rows.Count) To lr
On Error Resume Next
If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
End If
Next
myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
ws.Columns(icol).Clear
For i = 2 To UBound(myarr)
ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & ""
If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
Set xWS = Sheets.Add(after:=Worksheets(Worksheets.Count))
xWS.Name = myarr(i) & ""
Else
xWS.Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
xWS.Paste Destination:=xWS.Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy xWS.Range("A" & (titlerow + xTRg.Rows.Count))
Sheets(myarr(i) & "").Columns.AutoFit
Next
xWSTRg.Delete
ws.AutoFilterMode = False
ws.Activate
Application.DisplayAlerts = True
End Sub

3. Στη συνέχεια, πατήστε F5 κλειδί για την εκτέλεση του κώδικα και εμφανίζεται ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι επιλέγετε τη γραμμή κεφαλίδας, δείτε το στιγμιότυπο οθόνης:

έγγραφα διαχωρισμού εγγράφων ανά στήλες 7

4. Και μετά, κάντε κλικ στο OK κουμπί και στο δεύτερο πλαίσιο προτροπής, επιλέξτε τα δεδομένα της στήλης με βάση τα οποία θέλετε να διαχωρίσετε, δείτε το στιγμιότυπο οθόνης:

έγγραφα διαχωρισμού εγγράφων ανά στήλες 8

5. Στη συνέχεια, κάντε κλικ στο κουμπί OKκαι όλα τα δεδομένα στο ενεργό φύλλο εργασίας χωρίζονται σε πολλά φύλλα εργασίας με βάση την τιμή της στήλης. Και τα φύλλα εργασίας διαχωρίζονται με τα ονόματα των διαχωρισμένων κελιών. Δείτε το στιγμιότυπο οθόνης:

έγγραφα διαχωρισμού εγγράφων ανά στήλες 2

Note: Τα διαχωρισμένα φύλλα εργασίας τοποθετούνται στο τέλος του βιβλίου εργασίας όπου βρίσκεται το κύριο φύλλο εργασίας.


Διαχωρίστε τα δεδομένα σε πολλά φύλλα εργασίας με βάση τη στήλη με το Kutools για Excel

Ως αρχάριος του Excel, αυτός ο μακρύς κώδικας VBA είναι κάπως δύσκολος για εμάς, και οι περισσότεροι από εμάς δεν γνωρίζουμε καν πώς να τροποποιήσουμε τον κώδικα ως ανάγκη μας. Εδώ, θα σας παρουσιάσω ένα πολυλειτουργικό εργαλείο--Kutools για Excel, της Διαχωρίστε τα δεδομένα Το βοηθητικό πρόγραμμα όχι μόνο μπορεί να σας βοηθήσει να χωρίσετε δεδομένα σε πολλά φύλλα εργασίας με βάση τη στήλη, αλλά και να διαχωρίσετε τα δεδομένα με βάση τον αριθμό.

Σημείωση:Για να το εφαρμόσετε Διαχωρίστε τα δεδομένα, πρώτα, πρέπει να κατεβάσετε το Kutools για Excelκαι, στη συνέχεια, εφαρμόστε τη λειτουργία γρήγορα και εύκολα.

Μετά την εγκατάσταση Kutools για Excel, κάντε το ως εξής:

1. Επιλέξτε το εύρος δεδομένων που θέλετε να διαχωρίσετε.

2. Κλίκ Kutools Plus > Φύλλο εργασίας > Διαχωρίστε τα δεδομένα, δείτε το στιγμιότυπο οθόνης:

έγγραφα διαχωρισμού εγγράφων ανά στήλες 3

3. Στην Διαχωρισμός δεδομένων σε πολλά φύλλα εργασίας πλαίσιο διαλόγου, πρέπει:

1). Επιλέγω Ειδική στήλη επιλογή του Διαχωρισμός με βάση ενότητα και επιλέξτε την τιμή της στήλης στην οποία θέλετε να διαιρέσετε τα δεδομένα με βάση την αναπτυσσόμενη λίστα. (Εάν τα δεδομένα σας έχουν κεφαλίδες και θέλετε να τα εισαγάγετε σε κάθε νέο φύλλο εργασίας, διαβάστε Τα δεδομένα μου έχουν κεφαλίδες επιλογή.)

2). Στη συνέχεια, μπορείτε να καθορίσετε τα ονόματα των φύλλων εργασίας που διαχωρίζονται, κάτω από το Νέο όνομα φύλλων εργασίας ενότητα, καθορίστε τους κανόνες ονομάτων φύλλου εργασίας από το Κανόνες που αναπτυσσόμενη λίστα, μπορείτε να προσθέσετε το Πρόθεμα or Κατάληξη για τα ονόματα των φύλλων επίσης.

3). Κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

έγγραφα διαχωρισμού εγγράφων ανά στήλες 4

4. Τώρα τα δεδομένα χωρίζονται σε πολλά φύλλα εργασίας σε ένα νέο βιβλίο εργασίας.

έγγραφα διαχωρισμού εγγράφων ανά στήλες 5

Κάντε κλικ για λήψη του Kutools για Excel και δωρεάν δοκιμή τώρα!


Διαχωρίστε τα δεδομένα σε πολλά φύλλα εργασίας με βάση τη στήλη με το Kutools για Excel

Kutools για Excel περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία Excel. Δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. Κατεβάστε τη δωρεάν δοκιμή τώρα!


Σχετικό άρθρο:

Πώς να διαχωρίσετε τα δεδομένα σε πολλά φύλλα εργασίας κατά τον αριθμό των σειρών;


Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (304)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο διαχωρισμός δεδομένων σε πολλαπλά φύλλα εργασίας βάσει στήλης με κώδικα VBA εμφανίζει κάποιο σφάλμα. προσπαθήστε να το διορθώσετε και ενημερώστε το ίδιο. Εάν παρέχετε τα δείγματα αρχείων excel, θα είναι πολύ χρήσιμο.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, ευχαριστώ για τον κωδικό που λειτουργεί για μένα! Προσπαθώ να βρω έναν κωδικό που χωρίζει ένα κύριο φύλλο σε πολλά φύλλα με βάση την ημερομηνία
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό ήταν απίστευτο! Αυτή η διαδικασία θα μου έπαιρνε πάνω από μία ώρα για να την κάνω, αλλά έγινε μέσα σε 30 δευτερόλεπτα. Αυτό θα το κρατήσω για τη βιβλιοθήκη μου VBA. Σας ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, έχω 30000 κελιά στο φύλλο εργασίας μου και πρέπει να τα χωρίσω σε μήνες. υπάρχει κάποιος κωδικός που μπορώ να χρησιμοποιήσω για να το κάνω πιο γρήγορα; Έχω 8 στήλες και η ημερομηνία είναι η στήλη Β. Έχω παίξει με τον παραπάνω κωδικό που δίνεται, αλλά δεν το καταφέρνω πολύ. Θα μπορούσατε σας παρακαλώ να με βοηθήσετε με αυτό. Ευχαριστώ εκ των προτέρων
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λαμβάνω το ακόλουθο σφάλμα: Σφάλμα χρόνου εκτέλεσης '6' υπερχείλιση Μετά τον εντοπισμό σφαλμάτων, εμφανίστε τη γραμμή For i = 2 To Ir Οι σειρές του excel μου είναι πάνω από 500,000. Υπάρχει κάποια λύση Ευχαριστώ πολύ για τον κωδικό. Με εκτίμηση Lok
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, ευχαριστώ πολύ για τον κωδικό. Λαμβάνω το ακόλουθο σφάλμα: Σφάλμα χρόνου εκτέλεσης '6' υπερχείλιση στη γραμμή Για i = 2 To Ir Οποιαδήποτε λύση για αυτό. Σας ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λαμβάνω ένα σφάλμα όταν πατάω το F5 - GoTo Box ζητώντας μια αναφορά;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Η διαδικασία VBA λειτούργησε τέλεια, σας ευχαριστώ πολύ που μοιραστήκατε την τεχνογνωσία σας και μου εξοικονομήσατε πολύ χρόνο!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο κώδικας VBA λειτούργησε τέλεια. Δεν φαίνεται να ενημερώνει τα φύλλα καθώς γίνονται αλλαγές στο Φύλλο1. Παρακαλώ βοηθήστε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Ευχαριστώ για τον κωδικό που λειτουργεί για μένα! Έχω μόνο δύο ερωτήσεις/παρατηρήσεις. 1 τα αντιγραμμένα δεδομένα δεν περιλαμβάνουν τη διάταξη του αρχικού αρχείου. Θα ήταν δυνατή η αντιγραφή των δεδομένων ως πίνακα με αυτόματο φίλτρο; 2 τα αντιγραμμένα δεδομένα δεν φαίνεται να περιορίζονται στην περιοχή τίτλου. Είναι δυνατή η προσαρμογή του κώδικα για ένα συγκεκριμένο εύρος ή όνομα πίνακα; Αυτές οι προσαρμογές θα ήταν πολύ χρήσιμες. Με εκτίμηση, Pieter
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δουλεύει άψογα! Σας ευχαριστώ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λειτουργεί σαν γούρι... Ευχαριστώ για τον premium κωδικό... :lol:
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Σας ευχαριστώ πολύ, αυτό λειτούργησε τέλεια. Ωστόσο, τι θα συμβεί εάν θέλω τα δεδομένα σε κάθε καρτέλα να ταξινομηθούν ξανά (χρησιμοποιώντας μια άλλη στήλη); Βασικά, αυτό το VBA το χωρίζει σε καρτέλες, αλλά μπορεί να θέλω να αναλυθεί περαιτέρω..είναι δυνατόν;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια Jonathan, Παλιό σχόλιο το ξέρω, αλλά μπορεί να είναι χρήσιμο για άλλους στο μέλλον: Έπρεπε να το κάνω αυτό, αλλά δεν μπορούσα να βρω έναν εύκολο τρόπο με το VBA. Ωστόσο, ανακάλυψα ότι εάν δημιουργήσετε μια νέα στήλη στο υπολογιστικό φύλλο σας ως συγχώνευση των 2, π.χ. =A1&" "&A2 Αυτό σας δίνει 1 κελί με και τα δύο σύνολα πληροφοριών. Στη συνέχεια, μπορείτε να εκτελέσετε την παραπάνω ενότητα και λειτουργεί μια χαρά! Επεξεργασία - Τα δεδομένα στις στήλες πρέπει να είναι μικρότερα από 30 χαρακτήρες, διαφορετικά τα δεδομένα δεν αντιγράφονται (εμφανίζονται ως σφάλμα στη μονάδα) και λαμβάνετε ένα κενό φύλλο στη μέση των νέων φύλλων σας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Φοβερό.. Αυτό ήταν εκπληκτικό. Αγωνιζόμουν με αυτό το πρόβλημα για τόσο καιρό και αυτός ο κωδικός μπήκε ως ανάπαυλα. Ευχαριστώ που το μοιραστήκατε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Φοβερο. Ευχαριστώ για την ανάρτηση.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο κώδικας λειτουργούσε σαν γούρι για μικρότερα δεδομένα (λιγότερες από 1200 σειρές). Προσπάθησα να το χρησιμοποιήσω στο μεγαλύτερο φύλλο εργασίας με (17000 σειρές) και απλώς χάλασε αφού χωρίστηκε σε 10-12 φύλλα. Προσπαθήσαμε λοιπόν να χωρίσουμε τα αρχικά δεδομένα σε 3 διαφορετικά βιβλία εργασίας και να μας κλείσουμε. Έχουμε Windows 7 και οι υπολογιστές μας δεν είναι τόσο αργοί. Προτείνετε περιορισμένες σειρές δεδομένων για την ασφαλή χρήση αυτού του κώδικα; Οποιαδήποτε πρόταση θα εκτιμηθεί.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο κώδικας λειτουργούσε σαν γούρι για μικρότερα δεδομένα (λιγότερες από 1200 σειρές). Προσπάθησα να το χρησιμοποιήσω στο μεγαλύτερο φύλλο εργασίας με (17000 σειρές) και απλώς χάλασε αφού χωρίστηκε σε 10-12 φύλλα. Προσπαθήσαμε λοιπόν να χωρίσουμε τα αρχικά δεδομένα σε 3 διαφορετικά βιβλία εργασίας και να μας κλείσουμε. Έχουμε Windows 7 και οι υπολογιστές μας δεν είναι τόσο αργοί. Προτείνετε περιορισμένες σειρές στα δεδομένα για την ασφαλή χρήση αυτού του κώδικα; Οποιαδήποτε πρόταση θα εκτιμηθεί. Αυτό που δεν είμαι σίγουρος είναι: Ποιος είναι ο μέγιστος αριθμός σειρών που μπορεί να υποστηρίξει η μακροεντολή; Θα μπορούσα να παίξω με αυτό... Είναι κάπου μεταξύ 20k και 40k![/quote]
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αντιμετωπίζοντας το ίδιο θέμα. Ο κώδικας λειτουργεί για φύλλα όπου τα δεδομένα είναι λιγότερες σειρές, ωστόσο για μεγαλύτερα δεδομένα εμφανίζει σφάλμα καθώς "Το Excel δεν μπορεί να ολοκληρώσει αυτήν την εργασία με διαθέσιμους πόρους. Επιλέξτε λιγότερα δεδομένα ή κλείστε άλλες εφαρμογές" (δεν λειτουργεί καμία άλλη εφαρμογή ταυτόχρονα) Ο κώδικας λειτούργησε σαν γούρι για μικρότερα δεδομένα (λιγότερες από 1200 σειρές). Προσπάθησα να το χρησιμοποιήσω στο μεγαλύτερο φύλλο εργασίας με (17000 σειρές) και απλώς χάλασε αφού χωρίστηκε σε 10-12 φύλλα. Προσπαθήσαμε λοιπόν να χωρίσουμε τα αρχικά δεδομένα σε 3 διαφορετικά βιβλία εργασίας και να μας κλείσουμε. Έχουμε Windows 7 και οι υπολογιστές μας δεν είναι τόσο αργοί. Προτείνετε περιορισμένες σειρές στα δεδομένα για την ασφαλή χρήση αυτού του κώδικα; Οποιαδήποτε πρόταση θα εκτιμηθεί.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Είσαι ο ήρωας όλων των εποχών μου! Το κυνηγάω για μήνες χωρίς τύχη. Πρέπει να κάνω αυτές τις εβδομαδιαίες/μηνιαίες αναφορές σε 147+ φύλλα εργασίας και δεν θα μου φέρουν εργαλεία. Σε αυτό το σημείωμα.. Πρέπει πραγματικά να μάθω κωδικοποίηση. :( Αλλά σε ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, έχω ένα φύλλο που έχει 65000 εγγραφές και έχει 8 διαφορετικές θήκες, οπότε βασικά θα πρέπει να δημιουργήσει 80 διαφορετικά φύλλα. Δοκίμασα να εκτελέσω αυτόν τον κώδικα, αλλά βγάζει Σφάλμα χρόνου εκτέλεσης 6 υπερχείλιση. Μπορεί να τροποποιηθεί αυτός ο κώδικας για να λυθεί το πρόβλημά μου; Παρακαλώ, η βοήθειά σας θα εκτιμηθεί ιδιαίτερα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
[quote]Γεια σας, έχω ένα φύλλο που έχει 65000 εγγραφές και έχει 8 διαφορετικές θήκες, οπότε βασικά θα πρέπει να δημιουργήσει 80 διαφορετικά φύλλα. Δοκίμασα να εκτελέσω αυτόν τον κώδικα, αλλά βγάζει Σφάλμα χρόνου εκτέλεσης 6 υπερχείλιση. Μπορεί να τροποποιηθεί αυτός ο κώδικας για να λυθεί το πρόβλημά μου; Παρακαλώ, η βοήθειά σας θα εκτιμηθεί ιδιαίτερα.Από ACE[/quote] Δοκιμάστε να αλλάξετε το Dim vcol, i As Integer σε Dim vcol, i As Long
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, προσπάθησα να αλλάξω το DIM vcol σε LOng και δούλευε καλά, αλλά ξαφνικά λόγω ενός σφάλματος δεν υπάρχει αρκετή μνήμη για να ολοκληρώσετε αυτήν την ενέργεια, δοκιμάστε να χρησιμοποιήσετε λιγότερα δεδομένα ή να κλείσετε άλλες εφαρμογές. Αν και δεν έχω ανοιχτές άλλες εφαρμογές. Έχω λίγο περισσότερες από 100 χιλιάδες σειρές και περίπου. Μέγεθος αρχείου 16 mb. οποιαδήποτε βοήθεια θα ήταν ευπρόσδεκτη. Ευχαριστώ Μουσταφά
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καταπληκτικό κομμάτι κώδικα - λειτουργεί τέλεια (αν αλλάξετε τις μεταβλητές σε αυτές που χρειάζεται το υπολογιστικό φύλλο σας)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω ένα φύλλο με μεταβλητό αριθμό σειρών. Μία από τις στήλες είναι οι ημερομηνίες που κυμαίνονται από το 2010 και μετά. Οι άλλες στήλες είναι ονόματα κεφαλαίων με τα δεδομένα ΚΑΕ για κάθε αμοιβαίο κεφάλαιο σε σχέση με την ημερομηνία. Επομένως, δεν θέλω να χωρίσω τις στήλες σε διαφορετικά φύλλα, θέλω να χωρίσω κάθε ΟΝΟΜΑ ΤΑΜΕΙΟΥ στο δικό του φύλλο με τα δεδομένα NAV ανά ημερομηνία λήξης του μήνα, όχι τις ημερήσιες ημερομηνίες. Μπορεί να γίνει αυτό ή είναι αδύνατο;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω ένα φύλλο εργασίας που χρησιμοποιώ και προσπαθώ να βρω έναν κωδικό vba που θα επανατοποθετήσει ένα όνομα λογαριασμού και θα αντιγράψει τη συγκεκριμένη σειρά σε ένα νέο βιβλίο εργασίας και φύλλο με το ίδιο όνομα μπορείτε να βοηθήσετε;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μεγάλος! Ο κώδικας VBA λειτουργεί, ευχαριστώ! Χρειάζομαι αυτά τα φύλλα εργασίας εξόδου να βρίσκονται σε μεμονωμένα αρχεία excel αντί για φύλλα εργασίας και υπάρχει σφάλμα όταν χωρίζω σε πολλά πολλά φύλλα εργασίας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το Starscor και ο Tim αν θέλετε να χωρίσετε τα φύλλα του αρχείου σε πολλά αρχεία χρησιμοποιώντας τα ονόματα των σειρών, υπάρχει ένας μικρός κώδικας μακροεντολής στην ίδια ιστοσελίδα που το κάνει, απλώς αναζητήστε "διαχωρίστε ένα βιβλίο εργασίας για να διαχωρίσετε αρχεία Excel" θα το βρει. Προσθέστε τον κώδικα αυτού του παραδείγματος στο τέλος αυτού του παραδείγματος, διαγράφοντας φυσικά το διπλότυπο τέλος sub και sub και θα λάβετε ένα αρχείο για το καθένα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
μπορεί κάποιος να με βοηθήσει πώς να ταξινομήσω τις στήλες σε διαφορετικά φύλλα στο ίδιο βιβλίο εργασίας κάθε φορά και επίσης να αφαιρέσω διπλότυπα σε διαφορετικά φύλλα καθώς έχω περίπου 65 φύλλα στο ίδιο βιβλίο εργασίας
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
αυτό είναι τόσο συναρπαστικό! Σας ευχαριστώ. Το έψαχνα για αρκετό καιρό.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εξαιρετικό - σας ευχαριστώ που το μοιραστήκατε. Διαδίδει ακόμη και τις καλύτερες στιγμές/μορφοποίηση σε νέα φύλλα εργασίας!
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Τοποθετήστε Περισσότερα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL