كود يوضع في زر امر لحذف الصفوف التي بها ارقام لا تبداء ب 3
Sub ss()
Application.ScreenUpdating = False
For i = 5 To 100
If Mid(Cells(i, 1), 1, 1) <> 3 Then
Cells(i, 1).Value = ""
End If
Next i
Range("A5:A100").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
Range("A1").Select
Application.ScreenUpdating = True
End Sub
بفرض ان الارقام في العمود A في المجال A5:A100
ويمكن زيادة المدى
المرفق 2007 2003
والله اعلم
حذف الصفوف التي لا تبداء برقم معين.rar