Πώς να χρησιμοποιήσετε μακροεντολές για να ταξινομήσετε τα δεδομένα σε πολλές στήλες ως μία στήλη στο Excel

Μεταφράσεις άρθρων Μεταφράσεις άρθρων
Αναγν. άρθρου: 247311 - Δείτε τα προϊόντα στα οποία αναφέρεται το συγκεκριμένο άρθρο.
Ανάπτυξη όλων | Σύμπτυξη όλων

Σε αυτήν τη σελίδα

Περίληψη

Το Microsoft Excel δεν διαθέτει μια ενσωματωμένη μέθοδο για να ταξινομήσετε μια στήλη Εφημερίδας (snaking) των δεδομένων. Αυτό το άρθρο περιέχει δείγμα μακροεντολής για ταξινόμηση των δεδομένων που είναι σε μορφή στήλης Εφημερίδας.

Περισσότερες πληροφορίες

Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για επεξήγηση, χωρίς καμία εγγύηση, ρητή ή σιωπηρή. Αυτό περιλαμβάνει αλλά δεν περιορίζεται σε σιωπηρών εγγυήσεων εμπορευσιμότητας ή καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που παρουσιάζεται, καθώς και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία και τον εντοπισμό σφαλμάτων διαδικασιών. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας, αλλά δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παράσχουν πρόσθετες λειτουργίες ούτε θα δημιουργήσουν διαδικασίες για να ικανοποιεί συγκεκριμένες απαιτήσεις σας.

Ενσωματωμένη ταξινόμηση

Στο Microsoft Excel, χρησιμοποιείτε συνήθως δυνατότητα ταξινόμησης για να ταξινομήσετε μια λίστα. Μια λίστα του Excel είναι μια σειρά γραμμών του φύλλου εργασίας που περιέχει σχετικά δεδομένα όπως μια βάση δεδομένων του τιμολογίου ή ενός συνόλου ονόματα πελατών και αριθμούς τηλεφώνων. Μπορείτε να Χρησιμοποιήστε μια λίστα ως βάση δεδομένων, στο οποίο κάθε γραμμή είναι μια εγγραφή και οι στήλες είναι πεδία. Στην πρώτη γραμμή της λίστας έχει συνήθως ετικέτες στηλών, για παράδειγμα:
   A1: Q1   B1: Q2   C1: Q3
   A2: 10   B2: 2    C2: 4
   A3: 14   B3: 18   C3: 9
   A4: 7    B4: 17   C4: 12
   A5: 1    B5: 13   C5: 5
   A6: 11   B6: 8    C6: 16
   A7: 3    B7: 6    C7: 15
				
Εάν ταξινομούνται σε αύξουσα σειρά, από το πεδίο Q1 (στήλη A), τα αποτελέσματα θα είναι ως εξής:
   A1: Q1   B1: Q2   C1: Q3
   A2: 1    B2: 13   C2: 5
   A3: 3    B3: 6    C3: 15
   A4: 7    B4: 17   C4: 12
   A5: 10   B5: 2    C5: 4
   A6: 11   B6: 8    C6: 16
   A7: 14   B7: 18   C7: 9
				

Ταξινόμηση μιας στήλης εφημερίδας

Στήλες εφημερίδας και snaking στήλες έχουν διαφορετικούς όρους για την μορφή δεδομένων ίδιου τύπου. Σε στήλες εφημερίδας δεδομένων γεμίζει μία στήλη και συνεχίζει στο επάνω μέρος της επόμενης στήλης. Στην περίπτωση αυτή, το data πιθανώς does δεν έχουν ετικέτες για κάθε στήλη, για παράδειγμα:
   A1: 10   B1: 2    C1: 4
   A2: 14   B2: 18   C2: 9
   A3: 7    B3: 17   C3: 12
   A4: 1    B4: 13   C4: 5
   A5: 11   B5: 8    C5: 16
   A6: 3    B6: 6    C6: 15
				
Μπορείτε να χρησιμοποιήσετε το δείγμα μακροεντολής σε αυτό το άρθρο, για να ταξινομήσετε εφημερίδων στήλες σε αύξουσα σειρά. Εάν χρησιμοποιείτε το δείγμα μακροεντολής τα ανωτέρω δεδομένα, το αποτελέσματα έχουν ως εξής:
   A1: 1    B1: 7    C1: 13
   A2: 2    B2: 8    C2: 14
   A3: 3    B3: 9    C3: 15
   A4: 4    B4: 10   C4: 16
   A5: 5    B5: 11   C5: 17
   A6: 6    B6: 12   C6: 18
				
Για να δείτε ταξινόμησης μακροεντολή λειτουργεί όπως περιγράφεται, ακολουθήστε τα εξής βήματα:
  1. Ανοίξτε ένα νέο βιβλίο εργασίας.
  2. Πληκτρολογήστε το ακόλουθο δείγμα δεδομένων στο φύλλο εργασίας:
       A1: 10   B1: 2    C1: 4
       A2: 14   B2: 18   C2: 9
       A3: 7    B3: 17   C3: 12
       A4: 1    B4: 13   C4: 5
       A5: 11   B5: 8    C5: 16
       A6: 3    B6: 6    C6: 15
    					
  3. Από το Εργαλεία μενού, σημείο Μακροεντολή, και στη συνέχεια κάντε κλικ στο κουμπί Πρόγραμμα επεξεργασίας Visual Basic.
  4. Από το Εισαγωγή μενού, κάντε κλικ στο κουμπί Λειτουργική μονάδα.
  5. Πληκτρολογήστε τον ακόλουθο κώδικα στη λειτουργική μονάδα:

    Σημείωση Το παρακάτω παράδειγμα δείχνει πώς μπορείτε να ταξινομήσετε με αύξουσα σειρά. Μπορείτε να το αλλάξετε τροποποιώντας την τιμή από το "Order1: =" όρισμαxlDescending.
       Sub SortAllRangeData()
       ' Place column header for temporary sort area.
       Range("IV1").Value = "Numbers"
       
       ' Move numbers to temporary sort location.
       For Each cell In Selection
          Range("iv65536").End(xlUp).Offset(1, 0) = cell.Value
       Next cell
       
       ' Sort numbers in ascending order.
       Range("IV1", Range("IV1").End(xlDown)).Sort Key1:=Range("IV2"),  _
       Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
            
       ' Move sorted data back to original sheet location.
    
       Selection(1, 1).Activate ' Make sure the ActiveCell is the
                                ' top left of Selection first.
       CCnt = Selection.Columns.Count
       RCnt = Selection.Rows.Count
       CellCnt = Selection.Cells.Count
       Tcell = 2
       For c = 1 To CCnt
         For r = 1 To RCnt
            Range(ActiveCell.Address).Offset(r - 1, c - 1).Value =  _
            Range("iv" & Tcell).Value
            Tcell = Tcell + 1
         Next r
       Next c
       
       ' Clean up temporary sort location.
       Range("IV1", Range("IV1").End(xlDown)).Clear
    End Sub
    					
  6. Από το Excel Κάντε κλικ στο μενού στο Microsoft Excel Χ για Mac και σε νεότερες εκδόσεις του Excel για Mac ή στο μενού αρχείο, σε όλες τις άλλες εκδόσεις του Excel, Κλείσιμο και επιστροφή στο Microsoft Excel.
  7. Επιλέξτε A1:C6.
  8. Από το Εργαλεία μενού, σημείο Μακροεντολή, και στη συνέχεια κάντε κλικ στο κουμπί Μακροεντολές. Επιλέξτε το SortAllRangeData μακροεντολή και στη συνέχεια κάντε κλικ Εκτέλεση.
Όλα τα δεδομένα μέσα στην επιλεγμένη περιοχή τώρα ταξινομούνται, και εμφανίζεται ως εξής:
   A1: 1    B1: 7    C1: 13
   A2: 2    B2: 8    C2: 14
   A3: 3    B3: 9    C3: 15
   A4: 4    B4: 10   C4: 16
   A5: 5    B5: 11   C5: 17
   A6: 6    B6: 12   C6: 18
				

Αναφορές

Excel Χ για Mac και νεότερες εκδόσεις

Για περισσότερες πληροφορίες σχετικά με την ταξινόμηση, κάντε κλικ στο κουμπί Βοήθεια του Excel από το Βοήθεια μενού, πληκτρολογήστε Ταξινόμηση, κάντε κλικ στο κουμπί Αναζήτηση, και στη συνέχεια κάντε κλικ σε ένα θέμα για να το προβάλετε.

Για περισσότερες πληροφορίες σχετικά με τον τρόπο χρήσης της μεθόδου ταξινόμησης από την Επεξεργασία Visual Basic, κάντε κλικ στο κουμπί Βοήθεια της Visual Basic από το Βοήθεια μενού, πληκτρολογήστε μέθοδος ταξινόμησης, κάντε κλικ στο κουμπί Αναζήτηση, και στη συνέχεια κάντε κλικ για να προβάλετε μέθοδος ταξινόμησης.

Excel 2001 για Mac

Για περισσότερες πληροφορίες σχετικά με την ταξινόμηση, κάντε κλικ στην επιλογή του Βοηθός του Office, πληκτρολογήστε Ταξινόμηση λίστας, κάντε κλικ στο κουμπί Αναζήτηση, και στη συνέχεια κάντε κλικ σε ένα θέμα για να το προβάλετε.

Σημείωση Εάν ο Βοηθός είναι κρυμμένος, κάντε κλικ στην επιλογή του Βοηθός του Office κουμπί το Πρότυπο γραμμή εργαλείων.

Για περισσότερες πληροφορίες σχετικά με τον τρόπο χρήσης της μεθόδου ταξινόμησης από την Επεξεργασία Visual Basic, κάντε κλικ το Βοηθός του Office, πληκτρολογήστε μέθοδος ταξινόμησης, κάντε κλικ στο κουμπί Αναζήτηση, και στη συνέχεια κάντε κλικ για να προβάλετε μέθοδος ταξινόμησης.

Ιδιότητες

Αναγν. άρθρου: 247311 - Τελευταία αναθεώρηση: Δευτέρα, 19 Σεπτεμβρίου 2011 - Αναθεώρηση: 5.0
Οι πληροφορίες σε αυτό το άρθρο ισχύουν για:
  • Microsoft Excel 2000 Standard Edition
  • Microsoft Excel 2004 for Mac
  • Microsoft Excel X for Mac
  • Microsoft Excel 2001 για Mac
  • Microsoft Excel 98 για Macintosh
Λέξεις-κλειδιά: 
dftsdahomeportal kbautomation kbprogramming kbhowto kbmt KB247311 KbMtel
Μηχανικά μεταφρασμένο
ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο είναι προϊόν λογισμικού μηχανικής μετάφρασης της Microsoft και όχι ανθρώπινης μετάφρασης. Η Microsoft σάς προσφέρει άρθρα που είναι προϊόντα ανθρώπινης αλλά και μηχανικής μετάφρασης έτσι ώστε να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής Βάσης μας στη δική σας γλώσσα. Ωστόσο, ένα άρθρο που έχει προκύψει από μηχανική μετάφραση δεν είναι πάντα άριστης ποιότητας. Ενδέχεται να περιέχει λεξιλογικά, συντακτικά ή γραμματικά λάθη, όπως ακριβώς τα λάθη που θα έκανε ένας μη φυσικός ομιλητής επιχειρώντας να μιλήσει τη γλώσσα σας. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες της. Επίσης, η Microsoft πραγματοποιεί συχνά ενημερώσεις στο λογισμικό μηχανικής μετάφρασης.
Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη:247311

Αποστολή σχολίων

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com