[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 της στήλης Α.

Ευχαριστώ.