انتخاب تصادفی ردیفها

[kebriya]

فایل اکسلی دارم که بالای 1 میلیون ردیف داره میخوام از بین این ردیفها 2000 تا ردیف رو بطور تصادفی جدا کنم. نمیدونم اکسل تابعی برای این کار داره یا نه. اگه دوستان کمک کنن ممنون میشم

[iranweld]

با سلام

ظاهرا بایستی از ماکرو استفاده کنید.

بجای عدد 2000000 شماره آخرین ردیف دیتای خود را وارد کنید


Sub TEST()

On Error Resume Next

Dim LIST1 As New Collection

For I = 1 To 2050

XX = Application.RandBetween(1, 2000000)

LIST1.Add XX, CStr(XX)


Next

For I = 1 To 2000

X = LIST1(I)

Rows(X).Interior.ColorIndex = 4

Next

End Sub