Excel - Βρείτε τη μέγιστη τιμή κάθε 10 σειρές και σημειώστε τη σειρά

Θέμα

Χρειάζομαι βοήθεια για τη δημιουργία μιας φόρμας στο excel για να προσδιορίσω τις υψηλότερες και τις χαμηλότερες τιμές Κάθε 10 σειρές ΑΥΤΟ Καθορίστε αυτές τις δύο σειρές τοποθετώντας κάποιο κείμενο ή αριθμό σε μια κενή στήλη στις σειρές με τις υψηλότερες και τις χαμηλότερες τιμές. Για παράδειγμα, θέλω να επιστρέψω τη λέξη κρατήσω στη Στήλη Α3 για ΜΟΝΟ την υψηλότερη και χαμηλότερη εμπορική τιμή για κάθε δέκα σειρές. Με αυτόν τον τρόπο μπορώ να ταξινομήσω τα δεδομένα με Διατήρηση και διαγραφή των άλλων 8 σειρών δεδομένων. Με αυτό τον τρόπο μπορώ να κρατήσω το μεγαλύτερο μέρος της ακεραιότητας των δεδομένων μου και να μειώσω σημαντικά το μέγεθος του αρχείου.

Χρησιμοποιώ το Excel 2007 και έχω 160.000 σειρές δεδομένων. Ο σκοπός του τύπου είναι να μειώσει τα δεδομένα αυτά κατά 80%

Το υπολογιστικό φύλλο που ακολουθεί δίνει ένα απλό παράδειγμα.

 Εμπόριο Χρόνος Τιμή C είναι μια κενή στήλη για τον τύπο έξω ___________A____________B_____________C Σειρά 1 19:30:25 121.81 Σειρά 2 19:30:26 121.80 Διατήρηση σειράς 3 19:30:29 121.83 Σειρά 4 19:30:31 121.86 Κρατήστε Σειρά 5 19 : 39: 35 121.84 

Οποιαδήποτε βοήθεια θα εκτιμηθεί ιδιαίτερα.

Λύση

Υπάρχουν 3 μακροεντολές "test", "test1" και "αναίρεση". Το Test1 είναι ενσωματωμένο στο "test", οπότε αρκεί να τρέχετε μόνο τη μακροεντολή "test".

Και οι τρεις μακροεντολές θα πρέπει να βρίσκονται στη μονάδα. Η μακροεντολή "αναίρεση" ακυρώνει τα αποτελέσματα της μακροεντολής.

Πάρτε ένα μικρό απόσπασμα των δεδομένων σας για 31 σειρές και ελέγξτε τη μακροεντολή. Εάν τα αποτελέσματα είναι εντάξει, μπορείτε να χρησιμοποιήσετε τις μακροεντολές στο αρχικό σας αρχείο

ΦΥΛΑΞΤΕ ΤΟ ΑΡΧΙΚΟ ΑΡΧΕΙΟ ΑΣΦΑΛΕΙΑΣ ΠΟΛΛΑΠΛΕΣ ΠΟΙΟΙ ΕΙΝΑΙ ΔΥΝΑΤΟΝ ΝΑ ΕΠΑΝΑΧΩΡΙΣΕΤΕ.

Μακροεντολή 1:

 Dim r As Εύρος, r1 Ως Εύρος, x Ως Διπλός, y Ως Διπλό Dim j Ως Ακέραιος, k Ως Αύλος Dim r2 Ως Εύρος, m Ως Ακολουθία Ακολουθίας () Φύλλα Εργασίας ("φύλλο1") Ενεργοποίηση Εύρους ("c1" = "σήμα" Ρύθμιση r2 = Εύρος (Εύρος ("B1"), Εύρος ("B1"). MsgBox r.Address Ρύθμιση r1 = Εύρος (r, r.Offset (9, 0)) MsgBox r1.Address Εάν r.Offset (9, 0) = "" Έπειτα Exit Do x = WorksheetFunction.Min (r1) (X, r2, 0) Κύτταρα (k, "c") = "keep" k = Φύλλο εργασίαςFunction.Match (y, r2, 0) ") =" κρατήστε "m = m + 10 MsgBox m Δοκιμή βρόχου1 End Sub 

Macro 2:

 Sub test1 () Φύλλα εργασίας ("φύλλο1") Ενεργοποίηση Ρύθμιση r = Εύρος (Εύρος ("Α1"), Εύρος ("A1") Πεδίο (xlDown)., Criteria1: = "Διατήρηση" r.Cells.SpecialCells (xlCellTypeVisible) .Φύλλα εργασίας ("φύλλο2") Εύρος ("A2") ActiveSheet.AutoFilterMode = 

Macro 3:

 Τα φύλλα εργασίας ("φύλλο1"), το εύρος ("c1"), τα φύλλα εργασίας EntireColumn.Delete ("φύλλο2"). 

Σημείωση

Χάρη στο venkat1926 για αυτή την άκρη στο φόρουμ.