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

Πώς να εξαγάγετε δυναμικά μια λίστα μοναδικών τιμών από μια περιοχή στηλών στο Excel;

Για ένα εύρος στηλών που οι τιμές αλλάζουν τακτικά και πρέπει πάντα να λαμβάνετε όλες τις μοναδικές τιμές από το εύρος, ανεξάρτητα από το πώς άλλαξε. Πώς να δημιουργήσετε μια δυναμική λίστα με μοναδικές τιμές; Αυτό το άρθρο θα σας δείξει πώς να το αντιμετωπίσετε.

Δυναμική εξαγωγή μιας λίστας μοναδικών τιμών από ένα εύρος στηλών με τύπο
Δυναμική εξαγωγή μιας λίστας μοναδικών τιμών από ένα εύρος στηλών με κώδικα VBA


Δυναμική εξαγωγή μιας λίστας μοναδικών τιμών από ένα εύρος στηλών με τύπο

Όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, πρέπει να εξαγάγετε δυναμικά μια λίστα μοναδικών τιμών από το εύρος B2: B9. Δοκιμάστε τον ακόλουθο τύπο πίνακα.

1. Επιλέξτε ένα κενό κελί όπως το D2, εισαγάγετε τον παρακάτω τύπο και πατήστε το Ctrl + αλλαγή + εισάγετε ταυτόχρονα πλήκτρα. (B2: B9 είναι τα δεδομένα στηλών που θέλετε να εξαγάγετε τις μοναδικές τιμές, το D1 είναι το παραπάνω κελί όπου βρίσκεται ο τύπος σας)

=IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),"")

2. Συνεχίστε να επιλέγετε το κελί D2 και, στη συνέχεια, σύρετε τη λαβή πλήρωσης προς τα κάτω για να λάβετε όλες τις μοναδικές τιμές από το καθορισμένο εύρος.

Τώρα εξάγονται όλες οι μοναδικές τιμές στο εύρος στηλών B2: B9. Όταν αλλάξουν τιμές σε αυτό το εύρος, η μοναδική λίστα τιμών θα αλλάξει δυναμικά αμέσως.

Επιλέξτε και επισημάνετε εύκολα όλες τις μοναδικές τιμές σε μια σειρά στο Excel:

Η καλύτερη Επιλέξτε Διπλότυπα και μοναδικά κελιά χρησιμότητα του Kutools για Excel μπορεί να σας βοηθήσει να επιλέξετε και να επισημάνετε εύκολα όλες τις μοναδικές τιμές (συμπεριλάβετε τα πρώτα αντίγραφα) ή τις μοναδικές τιμές που εμφανίζονται μόνο μία φορά, καθώς και διπλές τιμές όπως χρειάζεστε όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.
Κατεβάστε το Kutools για Excel τώρα! (30- ημέρα δωρεάν διαδρομή)


Δυναμική εξαγωγή μιας λίστας μοναδικών τιμών από ένα εύρος στηλών με κώδικα VBA

Μπορείτε επίσης να εξαγάγετε μια λίστα μοναδικών τιμών δυναμικά από ένα εύρος στηλών με τον ακόλουθο κώδικα VBA.

1. Τύπος άλλος + F11 ταυτόχρονα για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο Μονάδα μέτρησης παράθυρο.

Κωδικός VBA: Εξαγωγή λίστας μοναδικών τιμών από ένα εύρος

Sub CreateUniqueList()
Dim xRng As Range
Dim xLastRow As Long
Dim xLastRow2 As Long
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
xRng.Copy Range("D2")
xLastRow = xRng.Rows.Count + 1
ActiveSheet.Range("D2:D" & xLastRow).RemoveDuplicates Columns:=1, Header:=xlNo
xLastRow2 = Cells(Rows.Count, "B").End(xlUp).Row
For I = 1 To xLastRow2
  If ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Value = "" Then
     ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Delete
  End If
Next
End Sub

Note: Στον κώδικα, το D2 είναι το κελί που θα εντοπίσετε τη μοναδική λίστα τιμών. Μπορείτε να το αλλάξετε όπως χρειάζεστε.

3. Επιστρέψτε στο φύλλο εργασίας, κάντε κλικ στο Κύριο θέμα > Σχήματα > ορθογώνιο παραλληλόγραμμο. Δείτε το στιγμιότυπο οθόνης:

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

5. Τώρα κάντε κλικ στο ορθογώνιο κουμπί, α Kutools για Excel εμφανίζεται το παράθυρο διαλόγου, επιλέξτε το εύρος που περιέχει μοναδικές τιμές που πρέπει να εξαγάγετε και, στη συνέχεια, κάντε κλικ στο OK κουμπί.

Από τώρα και στο εξής, μπορείτε να επαναλάβετε το παραπάνω βήμα 5 για να ενημερώσετε αυτόματα τη λίστα μοναδικών τιμών.


Σχετικά Άρθρα:


Τα καλύτερα εργαλεία παραγωγικότητας του 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% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (35)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ για το σεμινάριο. Χρησιμοποιώντας τη μέθοδο τύπου, πώς θα αλλάζατε τον τύπο εάν θέλατε να προσθέσετε έναν προσδιορισμό κατηγορίας; Πείτε στη στήλη Γ διακρίνετε αν το είδος είναι φρούτο ή λαχανικό. Πώς θα αλλάζατε τον κωδικό για να ταξινομήσετε μόνο τα μοναδικά φρούτα και να εξαιρέσετε τα λαχανικά; Προσπάθησα να αντικαταστήσω το COUNTIF με COUNTIFS, χρησιμοποιώντας τα δεύτερα κριτήρια countifs του (LIST RANGE,"CATEGORY") αλλά επιστρέφει κενό. Θα χρειαστεί να επεκτείνω τον πίνακα μου και να ενσωματώσω το VLOOKUP;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Είμαι αξιοπρεπής στο excel, αλλά πραγματικά προσπαθώ να αναλύσω το πώς και γιατί λειτουργεί η παραπάνω φόρμουλα (λειτουργεί για αυτό που τη χρησιμοποιώ, αλλά πρέπει να καταλάβω γιατί). Είμαι λίγο μπερδεμένος χρησιμοποιώντας πίνακες μερικές φορές, οπότε οποιαδήποτε εξήγηση με όρους ηλίθιους θα ήταν εξαιρετικά χρήσιμη. Με εκτίμηση
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτή η φόρμουλα είναι ξεπερασμένη και δεν λειτουργεί. Κυριολεκτικά απλώς έθεσα αυτό το φύλλο excel για να δω αν θα μπορούσα να κάνω αυτόν τον τύπο να λειτουργήσει και όχι.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ε, φίλε,
Ποια έκδοση του Office χρησιμοποιείτε;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
{=INDEX($Q$3:$Q$263,MATCH(0,COUNTIF(V$2:V2,$Q$3:$Q$263),0))} - βρέθηκε ότι λειτουργεί από άλλο ιστότοπο...

Χρησιμοποιήστε τα πλήκτρα Ctrl+Shift+Enter για να λάβετε τη συνάρτηση πίνακα (σγουρά άγκιστρα). Σύρετε αντιγραφή-επικόλληση τους τύπους μέχρι να εμφανιστεί το #NA. Το σύνολο δεδομένων μου ήταν στη Στήλη-Q, συγκρίθηκε για να δούμε αν υπήρχε στη λίστα του μοναδικού στη Στήλη-V, η οποία εκτείνεται συνεχώς κατά μήκος αυτής της ίδιας στήλης.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Καλή μέρα.
Καταχωρίστε όλες τις μοναδικές τιμές της στήλης Q με τον τύπο abobv και, στη συνέχεια, χρησιμοποιήστε τον τύπο του =IF(D2=V1,"Match","No match") για να συγκρίνετε εάν τα μοναδικά στη στήλη Q συγκρίνονται με τη στήλη V στην ίδια σειρά .
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας και ευχαριστώ για τη βοήθειά σας.

Χρειάζομαι ακριβώς αυτήν τη λειτουργία, αλλά η λίστα με τις "μοναδικές τιμές" πρέπει να εκτείνεται σε στήλες αντί για γραμμές, επομένως η επεκτεινόμενη λίστα κάτω από τις σειρές δεν θα λειτουργεί για μένα.

Πώς μπορώ να τροποποιήσω αυτόν τον τύπο προκειμένου να διευρυνθεί η λίστα "μοναδικές τιμές" καθώς τη σέρνω στις στήλες;

Αντισταθμίζεται()?
Μεταθέτω()?
Indirect() με μια σειρά από απόλυτες αναφορές που συνδέονται με μια αναφορά στη στήλη αντί για γραμμή;


Ευχαριστώ και πάλι!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ Ράιαν,
Αυτός ο τύπος =IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$2:D2, $B$2:$B$9), 0)"") + Ctrl + Shift + Enter μπορεί σας βοηθήσει να λύσετε το πρόβλημα.
Δείτε παρακάτω στιγμιότυπο οθόνης:
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Επίσης, για οποιονδήποτε λόγο, ο αρχικός τύπος παρείχε:
=IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),"")

επιστρέφει μια προειδοποίηση "κυκλικής αναφοράς" και δεν υπολογίζει..
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ Ράιαν,
Ποια έκδοση του Office χρησιμοποιείτε; Ο τύπος λειτουργεί καλά στο Office 2016 και 2013.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μου είχε συμβεί αυτό στο παρελθόν - η διόρθωση μου ήταν ότι έβαζα τον τύπο στο κελί D1 (ισοδύναμο στο φύλλο εργασίας που χρησιμοποιούσα). Σε όποιο κελί αντιστοιχεί το $D:$1, πρέπει να το εισαγάγετε στο παρακάτω κελί - D2. Ζητώ συγγνώμη αν δεν είναι αυτός ο λόγος που λάβατε το σφάλμα
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπάρχουν συμβουλές σχετικά με τη χρήση της επιλογής VBA με το Excel 2016 για macOS; Έχω ακολουθήσει τα βήματα. Ωστόσο, όταν εκτελώ τη μακροεντολή, δεν συμβαίνει τίποτα απολύτως. Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ντάερ Τζόουνς,
Δοκιμάστε τον παρακάτω κώδικα VBA και ενημερώστε με εάν λειτουργεί για εσάς. Σας ευχαριστώ!

Sub CreateUniqueList()
Dim xRng ως εύρος
Dim xLastRow As Long
Dim xLastRow2 As Long
Dim I ως ακέραιος αριθμός
' Στο Σφάλμα Συνέχιση Επόμενο
Ορισμός xRng = Application.InputBox("Παρακαλώ επιλέξτε περιοχή:", "Kutools for Excel", Selection.Address, , , , , 8)
Εάν το xRng δεν είναι τίποτα, τότε βγείτε από το Sub
On Error Συνέχιση Επόμενη
xRng.Εύρος αντιγραφής ("D2")
xLastRow = xRng.Rows.Count + 1
ActiveSheet.Range("D2:D" & xLastRow).RemoveDuplicates Columns:=1, Header:=xlNo
xLastRow2 = Κελιά(Rows.Count, "B").End(xlUp).Row
Για I = 1 έως xLastRow2
Αν ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Value = "" Τότε
ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Delete
End If
Επόμενο
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Crystal,
Προσπαθώ να χρησιμοποιήσω την έκδοση VB της λίστας μοναδικών τιμών και αντιμετωπίζω ένα πρόβλημα.
Το εύρος από το οποίο θέλω να δημιουργήσω μια στήλη μοναδικών τιμών είναι όλοι οι τύποι που αναφέρονται σε διαφορετικές καρτέλες.
Πώς λαμβάνει κανείς την τιμή για μεταφορά αντί για τον τύπο;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ Mike,
Μετατρέψτε τις αναφορές τύπου σας σε απόλυτες και, στη συνέχεια, εφαρμόστε το σενάριο VB.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω το ίδιο πρόβλημα, με τη διαφορά ότι ο τύπος μου αναφέρεται σε ονόματα στηλών και δεν μπορεί να μετατραπεί σε απόλυτο.
Πώς μπορώ να αλλάξω το vba για να επικολλήσω τις τιμές και όχι τον τύπο;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς θα προσθέτατε πολλά κριτήρια, όπως εάν θέλετε να προσθέσετε στη δυναμική λίστα μόνο εάν η ημερομηνία ήταν μόλις 9/12;

Δοκιμάζω το "&" στον τύπο MATCH, αλλά δεν λειτουργεί.

Για παράδειγμα, με βάση το παράδειγμά σας:
=IFERROR(INDEX($B$2:$B$9, MATCH(0 & B4,COUNTIF($D$1:D1, $B$2:$B$9) & $A$2:$A$9, 0))"" )
Αυτό δημιουργεί ένα σφάλμα ή δημιουργεί διπλότυπα.

Εναλλακτικά, έχω διαβάσει ότι το "+" μπορεί να λειτουργήσει, αν και δεν μπορώ να το κάνω να λειτουργεί. Ή χρησιμοποιώντας SMALL.

Ιδέες?
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ Ζακ,
Δυστυχώς δεν μπορώ να βοηθήσω με αυτό, μπορείτε να δημοσιεύσετε την ερώτησή σας στο φόρουμ μας: https://www.extendoffice.com/forum.html για να λάβετε περισσότερες υποστηρίξεις Excel από τον επαγγελματία μας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς θα προσθέτατε μια δεύτερη μεταβλητή; Για παράδειγμα, θέλω όλα τα μοναδικά στοιχεία σε μια στήλη που μοιράζονται επίσης παρόμοια τιμή σε μια άλλη στήλη. Στο παράδειγμά σας, φανταστείτε μια 3η στήλη με τίτλο "Τμήμα" που θα έχει αξίες όπως προϊόν, κρέας κ.λπ. Καταλαβαίνω ότι όλα αυτά είναι Παραγωγή, αλλά ελπίζω να καταλάβατε την άποψή μου. Θα τροποποιούσατε τον τύπο CountIF σε COUNTIFS ή τον τροποποιείτε με άλλο τρόπο;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια Ματ
Δοκιμάστε αυτόν τον τύπο =IF(ISNA(VLOOKUP(A2,$C$2:$C$13,1,FALSE)),"Ναι","").
Υποθέτοντας ότι οι δύο συγκρίσιμες λίστες είναι η Στήλη Α και η Στήλη Γ, εάν οι μοναδικές τιμές παραμείνουν μόνο στη στήλη Α αλλά όχι στη στήλη Γ, θα εμφανιστεί Ναι στη στήλη Β. ενώ αν δεν επιστρέψει τίποτα στη στήλη Β, σημαίνει ότι η αντίστοιχη τιμή παραμένει τόσο στη στήλη Α όσο και στη στήλη Γ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ για την απάντηση.. αλλά θέλω να βγάλω αυτήν τη μοναδική τιμή εάν εμφανιζόταν ΝΑΙ. θα μπορούσατε παρακαλώ να με συμβουλέψετε τον τύπο για να τραβήξω τη μοναδική τιμή σε διαφορετική στήλη.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εάν το κάνω αυτό για χίλιες σειρές φύλλο excel στην πιο πρόσφατη έκδοση του Excel σε Mac, δεν επιστρέφει ποτέ. Η πρώτη σειρά λειτουργεί, αλλά όταν κάνω διπλότυπο, το excel μεταβαίνει σε λειτουργία υπολογισμού που δεν έχει επιστρέψει τιμές για πάνω από δύο ώρες τώρα.

Σκέφτεστε πώς να το κάνετε αυτό για μεγάλες λίστες (έως 2 σειρές) που θα επιστρέψουν 50 ή 60 μοναδικές τιμές;

Το κορόιδεψα στην εφαρμογή "Αριθμοί" και λειτουργεί άψογα εκεί, αφού χρειάστηκαν μόνο μερικά λεπτά για να υπολογιστεί. Απλώς διαρκεί τόσο πολύ στο Excel που αναρωτιέμαι αν θα ολοκληρωθεί ποτέ. Σκοπεύω να το αφήσω να «τρέξει» μέσα σε μια νύχτα για να δω τι θα γίνει.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ελέγξτε τις επιλογές υπολογισμού. Πρέπει να ρυθμιστεί σε αυτόματη. Αρχείο > Επιλογές > Τύποι > Επιλογές υπολογισμού > Υπολογισμός βιβλίου εργασίας (Αυτόματη επιλογή)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Προσπαθώ να σύρω τον τύπο προς τα κάτω πέρα ​​από τα πραγματικά μου δεδομένα, ώστε να μπορώ να εισάγω σύνολα δεδομένων διαφορετικού μεγέθους και να μην χρειάζεται να προσαρμόσω τίποτα. Ωστόσο, η τελευταία σειρά μετά το τέλος των πραγματικών δεδομένων μου επιστρέφει πάντα ένα "0". Χρησιμοποιώ τις μοναδικές τιμές για κάτι άλλο σε μια διπλανή στήλη και το 0 προκαλεί την επανάληψη της τελευταίας τιμής (Όταν διαγράφω το 0, η τιμή δεν επαναλαμβάνεται πλέον). Καμιά ιδέα πώς να διορθωθεί αυτό; Επίσης, χρησιμοποιώ το Office 365 Business
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, ευχαριστώ για τη βοήθειά σας.
Τώρα, πώς μπορώ να ταξινομήσω και τις τιμές μου αλφαβητικά; (Δεν θέλω να χρησιμοποιήσω το φίλτρο στον κύριο πίνακα μου)
Πρέπει να χρησιμοποιήσω ένα COUNTIFS αντί για το COUNTIF;
Παρακαλώ ΒΟΗΘΕΙΑ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Αλέξη,
Λυπούμαστε, δεν μπορώ να ταξινομήσω την εξαγόμενη τιμή αλφαβητικά ταυτόχρονα με τον τύπο. Σας ευχαριστούμε για το σχόλιό σας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρησιμοποιώ αυτόν τον τύπο =IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),"") που είναι υπέροχος για μία στήλη, αλλά τα δεδομένα μου κατανέμονται σε ένα εύρος στηλών και σειρών. Μπορώ να επεξεργαστώ τον τύπο ώστε να περιλαμβάνει ολόκληρη την περιοχή; Τα δεδομένα μου ζουν από AC4 έως AR60...
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Δοκιμάζω τον κώδικα VBA και τον τύπο. Ο κώδικας VBA λειτουργεί πολύ καλά, αλλά δεν μπορώ να κρατήσω αρχείο με μακροεντολή. Αλλά το πρόβλημα είναι ότι δεν μπορώ να κάνω τον τύπο να λειτουργεί. Είχε κανείς ιδέα; Σας ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Charlotte,
Σας ευχαριστούμε για το σχόλιό σας. Μπορείτε να διατηρήσετε το αρχείο με μακροεντολή για μελλοντική χρήση, αποθηκεύοντας το βιβλίο εργασίας ως βιβλίο εργασίας με δυνατότητα μακροεντολής του Excel.
Για το πρόβλημα του τύπου, θα μπορούσατε να δώσετε ένα στιγμιότυπο οθόνης των δεδομένων σας; Σας ευχαριστούμε για το σχόλιό σας.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ευχαριστώ πολύ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
πώς να κάνετε τον κώδικα vba να λειτουργεί για ένα εύρος όπου χρησιμοποιήθηκε άλλος τύπος; Στη στήλη BI έχετε έναν τύπο, που αναφέρεται στις στήλες D και E.
Αν χρησιμοποιήσω εφαρμογή του κώδικα στη στήλη L (ας πούμε), (προφανώς, τροποποιώντας σωστά τα κελιά στον κώδικα) η μακροεντολή επιστρέφει τον τύπο που εφαρμόζεται στις στήλες M και N... Λειτουργεί, λοιπόν, αλλά όχι όπως θέλω! Πώς να διατηρήσετε τις τιμές στη στήλη Β; ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ik heb gemerkt dat de 'formule'-methode erg traag werkt bij grote σύνολα δεδομένων. Een goed εναλλακτική είναι het gebruik van een draaitabel. Kies dan alleen de rijlabels, je krijgt dan een lijstje met unieke waarden. Het kan zijn dat je wat extra's krijgt "(leg)" bijvoorbeeld. Je kunt deze er vervolgens uitfilteren. Helaas kun je maar op 1 criterium filteren. Ook daar zijn wel weer oplossingen voor, maar dat είναι πιο πολύπλοκο.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Θα ήθελα να μπορώ να κάνω αυτό ακριβώς το ίδιο πράγμα, εκτός από τη χρήση δύο ξεχωριστών περιοχών στηλών (B2:B9) καθώς και (D2:D9) είναι δυνατόν;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Αντώνη,
Μπορείτε να τοποθετήσετε τα αποτελέσματα στην ίδια στήλη με τα αρχικά δεδομένα. Όπως η στήλη Β σε αυτή την περίπτωση.
Αλλά πρέπει να αναφέρετε το επάνω κελί του κελιού αποτελέσματος στον τύπο ως εξής.
=IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($B$11:B11, $B$2:$B$9), 0)"") + Ctrl + Shift + Enter
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
con este procedimiento de filtro se hace de forma muy rapida

1.EN ESTE EJEMPLO los datos a remover los duplicados estan en la col A de la fila 59 a la 239
2. se define un criterio de filtrado en este caso en la fila d56 el mismo titulo de la lista a remover duplicados y la d57 la dejo en blanco
3. una vez ejecutado se muestran los datos en la fila destino, que en mi caso fue la d59

Εύρος ("A59:A239").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range _
("D56:D57"), CopyToRange:=Range("D59"), Unique:=True
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

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

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