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

[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