هل يوجد كود يقوم بعمل تسلسل من 1 الى 100000فى وقت ضئيل

[إبراهيم ابوليله]

الاخوه الافاضل

اريد كود يقوم بعمل تسلسل فى

العمود 2 بشرط وجود بيانات فى العمود1

-----------------------------

اريد اسرع كود يقوم بعمل ذلك فى وقت قصير جدا

بحيث لا يشعر بذلك المستخدم

---------------------------------------------

علما بان البيانات تصل الى 100000

-----------------------------------------------------

[عبدالله باقشير]

السلام عليكم

 

 

في  المتغير  Cont  تحدد آخر سطر في العمود A

Sub Macro1()
Cont = 100000
With Range("B1")
    .Value = 1
    .Resize(Cont, 1).DataSeries
End With
End Sub

او هذا

Sub Macro1()
Dim Cont
Cont = 100000
Range("B1").Resize(Cont, 1).Value = Evaluate("ROW(1:" & Cont & ")")
End Sub

تحياتي

[إبراهيم ابوليله]

اخى واستاذنا

عبدالله باقشير

بالفعل الكود طلقه

بارك الله فيك

ولكن هل يمكن ان يكون بنفس السرعه فى

حالة اشتراط وجود بيانات فى العمود الاول

ليقوم بعمل التسلسل فى العمود الثانى

[عبدالله باقشير]

اخى واستاذنا

عبدالله باقشير

بالفعل الكود طلقه

بارك الله فيك

ولكن هل يمكن ان يكون بنفس السرعه فى

حالة اشتراط وجود بيانات فى العمود الاول

ليقوم بعمل التسلسل فى العمود الثانى

 

جرب هذا

Sub Macro3()
Dim Cont, i, R, ary()
Cont = 100000
ReDim ary(1 To Cont, 1 To 1)
For R = 1 To Cont
    If Len(Trim(Cells(R, "A"))) Then i = i + 1: ary(R, 1) = i
Next
Range("B1").Resize(Cont, 1).Value = ary
Erase ary
End Sub

تحياتي

[إبراهيم ابوليله]

اخى واستاذنا عبد الله

انت بالفعل

برنس

بارك الله فيك وذادك من فضله وعلمه