اريد شرح كود

[محسن33]

السلام عليكم

ارجو شرح هذا الكود لادراج سطر

Option Explicit

Sub insert_rows()
Dim i%, k%
Application.ScreenUpdating = False
i = Cells(Rows.Count, 1).End(3).Row
 Do Until i = 1
If Range("a" & i) = "" Then
 Rows(i).Delete
 End If
  i = i - 1
Loop
'==========================
k = Cells(Rows.Count, 1).End(3).Row
Do Until k = 2
If Range("a" & k) <> Range("a" & k - 1) Then
 Rows(k).Insert
 End If
   k = k - 1
 Loop
 Application.ScreenUpdating = True
  End Sub

[محسن33]

للرفع للاهمية

وهل يمكن في حالة عدد الصفوف 500000 يعمل الكود

مع خالص الشكر وفي انتظار شرح االكود والسؤال

 

[محسن33]

On ‏01‏/‏10‏/‏2017 at 8:22 AM, محسن33 said:

للرفع للاهمية

وهل يمكن في حالة عدد الصفوف 500000 يعمل الكود

مع خالص الشكر وفي انتظار شرح االكود والسؤال

 

للرفع للاهمية

وهل يمكن في حالة عدد الصفوف 500000 يعمل الكود

مع خالص الشكر وفي انتظار شرح االكود والسؤال