Hi from Italy......so sorry for my bad english.....

As you Know in Excel there is a function called ATPVBAEN.XLA , that generate
a casual combination :

here there is the excel example vba code :

Application.Run "ATPVBAEN.XLA!Random", ActiveSheet.Range("$P$2:$W$5000"),
8, 5000 _
, 7, , ActiveSheet.Range("$AI$1:$AJ$21")

and in the example above if you have this in the range A1:j:21 :

1 0,035181345

2 0,037730718

3 0,045967154

4 0,0300826

5 0,03953489

6 0,038750467

7 0,025493729

8 0,032122098

9 0,025689834

10 0,030592474

11 0,027533227

12 0,02765089

13 0,030514032

14 0,03184755

15 0,028945187

16 0,025493729

17 0,031925992

18 0,0300826

19 0,032122098

20 0,032292056



Excel return, this :

2 3 8 8 12 18 19 20

2 2 2 4 4 5 5
18

6 7 7 7 8 10 12
19

2 6 6 9 17 20 20 20

6 7 10 15 16 16 17 20

3 3 5 7 8 10 11
20

2 2 3 5 6 14 16
19




the problem is that in every rows there are repeat number :(

i don't want REPEAT number ......


can I solve it with VBA ????


TIA !