[VBA] Εξαγωγή τυχαίων αριθμών με εξαιρέσεις

[George R]

Καλημέρα σε όλους

Έχω σε μία στήλη, έστω στην Α, μερικούς θετικούς ακεραίους, μεταξύ 1 και 31. Ας πούμε για παράδειγμα τους 1,7,14,15,19, 22 και 31.

Θέλω στην διπλανή στήλη, να μετράει το πλήθος των αριθμών της στήλης Α (εδώ στο παράδειγμά μας 7 ακέραιοι).

Στη συνέχεια να αφαιρεί αυτό το πλήθος από το 31 (εδώ στο παράδειιγμά μας 31 - 7 =24).

Τέλος, στη Β στήλη να δημιουργεί 24 (τους εναπομείναντες) τυχαίους αριθμούς, από το 1 έως το 31, αλλά διαφορετικούς από τους 1,7,14,15,19,22,31 της στήλης Α.

Ευχαριστώ.

[Tasos]

Καλημέρα σε όλους!

Γιώργο έστω ότι τα δεδομένα σου ξεκινούν από το κελί A2.

Για να βρεις ποιοι αριθμοί (1 έως 31) λείπουν από την περιοχή A2:A100 χρησιμοποίησε τον παρακάτω τύπο πίνακα (CSE) στο κελί B2:

{=IFERROR(SMALL(IF(COUNTIF($A$2:$A$100;ROW($1:$31))=0;ROW($1:$31));ROW(A2)-1);"")}

Κατόπιν αντίγραψε τον τύπο στην περιοχή B2:B33 .

Επίσης για να καταμετρήσεις μοναδικές τιμές στη στήλη Α χρησιμοποίησε τον παρακάτω τύπο πίνακα (CSE):

=SUM(IFERROR(1/COUNTIF(A2:A100;A2:A100);0))

Καλή συνέχεια

Με εκτίμηση

Τάσος

[George R]

Ευχαριστώ Τάσο

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

τον τύπο τον πέρασα Shift + Cntr + Enter.

Μήπως θα μπορούσες να το περάσεις εσύ σε φύλλο και να το αναβάσεις;

Ευχαριστώ.

[Tasos]

Καλημέρα Γιώργο.

Ρίξε μια ματιά στο επισυναπτόμενο αρχείο.

Καλή συνέχεια!

Με εκτίμηση

Τάσος

[George R]

Ευχαριστώ Τάσο