البحث في الموقع
Showing results for tags 'اريد شرح الكود'.
تم العثور علي 1 نتيجه
-
السلام عليكم ارجو شرح هذا الكود لادراج سطر 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
