اريد ضبط هذا الكود بحيث لا يكرر الارقام

من طرف hamed.34552 الأحد يناير 17, 2021 11:53 am

لدي كود يوزع مدي من min1 الي max1 لكن المشكلة يكرر الارقام التي في المدي وانا اريد توزيعها فقط دون تكرار
اريد ضبط هذا الكود

الكود:: Sub intdemo On error resume next Dim val1 as integer Range("d2:h6").clearcontents Dim max1 as integer, min1 as integer Dim x as integer Min1 =application.min(ورقة١.range("b11:b26")):max1=application.max(ورقة١.range("b11:b26")) For i = min1 to max1 X=application.motherfucking.randbeteen(min1,max1) Range("E"&i) = x End if Next i End sub