فایل اکسلی دارم که بالای 1 میلیون ردیف داره میخوام از بین این ردیفها 2000 تا ردیف رو بطور تصادفی جدا کنم. نمیدونم اکسل تابعی برای این کار داره یا نه. اگه دوستان کمک کنن ممنون میشم
-
هوا گرفته بود و باران میبارید........ کودکی آهسته گفت: خدایا گریه نکن آدما درست میشن:exclamation: -
با سلام
ظاهرا بایستی از ماکرو استفاده کنید.
بجای عدد 2000000 شماره آخرین ردیف دیتای خود را وارد کنید
کد PHP: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
فایل های پیوست شدهLast edited by iranweld; 2016/06/06, 19:04. -
کامنت