[حل شده] حذف سطر با شرط

[gha3emi]

سلام
یک فایل اکسل حاوی مقادیر زیادی سطر و ستون دارم
که می خوام بر اساس اطلاعات یک ستون اطلاعات رو مرتب کنم مثلا اگر در ستون a:a اعداد (10و20 و 30 و ... ) موجود باشه اطلاعات اون سطر کلا حذف بشه
اگه داده های که باید حذف بشن رو از روی یک ستون دیگه دریافت کنه خیلی خوب میشه چون تعداد اعدادی که باید سطرهاش حذف بشن زیاده

[amir_ts]

با سلام
این کد ها رو امتحان کنید....
در شیت یک رنج مشخص شده ، عبارات یا عدد شرط لازم برای حذف رو قرار بدید.

[LEFT]
Sub DeleteRows()
            Dim s1 As Variant
            Dim i, lr As Integer
            Dim rng As Range
            Set rng = Sheet1.Range("a1:a6")
           
           lr = Sheets(2).Cells(Sheets(2).Rows.Count, "A").End(xlUp).Row
           
             For i = lr To 1 Step -1
                  s1 = Application.Match(Range("a" & i).Value, rng, 0)
                     If Not IsError(s1) Then
                     Rows(i).Delete
                     End If
             Next i
        End Sub
       
[/LEFT]