اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

حذف صفوف بناء على شرط معين


إذهب إلى أفضل إجابة Solved by عبدالفتاح في بي اكسيل,

الردود الموصى بها

  • أفضل إجابة

جرب  هذا  الكود  لعله  يفي  بالغرض 

Sub Test()
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "f").End(xlUp).Row
For i = Lastrow To 1 Step -1
    If Cells(i, "f").Value = "1/3" Or Cells(i, "f").Value = "2/3" Then Rows(i).Delete
    Next
Application.ScreenUpdating = True
End Sub

 

رابط هذا التعليق
شارك

ايضا  هذا  كود  اخر  جميل  وتعدد الخيارات  بمجرد  تشغيل   تستطيع  تحدد  العمود  الذي  تريد  من تحدف  منه  البيان    وكذلك  الكلمة او القيمة  التي  تريدها  

Sub DeleteRows()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2)
For Each rng In InputRng
    If rng.Value = DeleteStr Then
        If DeleteRng Is Nothing Then
            Set DeleteRng = rng
        Else
            Set DeleteRng = Application.Union(DeleteRng, rng)
        End If
    End If
Next
DeleteRng.EntireRow.Delete
End Sub

 

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

اخي  الكريم  طلبك  غريب  بخصوص  العمود a     عبارة  عن  ترقيمات  ليس  بيانات  مهمة  يمكنك  ترقيم  ذلك  اوتوماتيكيا  اما   من  خلال  المعادلة  اوالكود  وهذه  متوفرة  بكثرة  في  المنتدى 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information