پرسش ماکروی حذف کلمه های خاص از یک ستون

[Rosa_]

سلام دوستان. من یه کد ماکرو از نت گرفتم که میاد توی یک ستون خاص مثلا ستون D دنبال کلمه خاصی میگرده و بعد سطرهای مربوطه اش رو حذف میکنه.
حالا میخوام چند تا کلمه رو با هم بهش بدم تا برام حذف کنه، نمیخوام برای هر کلمه کد رو جداگانه اجرا بگیرم. چطوری امکان پذیره؟ کد رو میفرستم

مثلا کلمه های firefox - imported - toread هم بهش اضافه شه

ممنون میشم کسی جواب بده. خیلی برام مهمه

[M_ExceL]

سلام دوستان. من یه کد ماکرو از نت گرفتم که میاد توی یک ستون خاص مثلا ستون D دنبال کلمه خاصی میگرده و بعد سطرهای مربوطه اش رو حذف میکنه.
حالا میخوام چند تا کلمه رو با هم بهش بدم تا برام حذف کنه، نمیخوام برای هر کلمه کد رو جداگانه اجرا بگیرم. چطوری امکان پذیره؟ کد رو میفرستم

مثلا کلمه های firefox - imported - toread هم بهش اضافه شه

ممنون میشم کسی جواب بده. خیلی برام مهمه

سلام،

[SIZE=3]
Sub DeleteRow()

    Dim Firstrow As Long
    Dim Lastrow As Long
    Dim Lrow As Long
    Dim itm As Variant
    Dim arrv(1 To 5) As String
    
    arrv(1) = "2005"
    arrv(2) = "toread"
    arrv(3) = "imported"
    arrv(4) = "firefox"
    arrv(5) = "2009"

    With ActiveSheet
        Firstrow = .UsedRange.Cells(1).Row
        Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
        For Lrow = Lastrow To Firstrow Step -1
            With .Cells(Lrow, "D")
                For Each itm In arrv
                    If CStr(.Value) = itm Then
                        .EntireRow.Delete
                        Exit For
                    End If
                Next
        End With
        Next Lrow
    End With
    
End Sub
[/SIZE]

[Rosa_]

خیلی ممنون که اینقدر سریع جواب دادین.
اگه بخوام اون سطرها رو برام حذف نکنه، عوضش اون سطرها رو رنگی کنه کدش چطوری میشه؟

[M_ExceL]

Sub DeleteRow()

    Dim Firstrow As Long
    Dim Lastrow As Long
    Dim Lrow As Long
    Dim itm As Variant
    Dim arrv(1 To 5) As String
    
    arrv(1) = "2005"
    arrv(2) = "toread"
    arrv(3) = "imported"
    arrv(4) = "firefox"
    arrv(5) = "2009"

    With ActiveSheet
        Firstrow = .UsedRange.Cells(1).Row
        Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
        For Lrow = Lastrow To Firstrow Step -1
            With .Cells(Lrow, "D")
                For Each itm In arrv
                    If CStr(.Value) = itm Then
                        Cells(Lrow, "D").Interior.ColorIndex = 3
                        Exit For
                    End If
                Next
        End With
        Next Lrow
        
    End With
    
End Sub

[Amir Ghasemiyan]

دوست عزيز اگر پاسخ سوالتون رو دريافت كرديد لطفا تاپيك رو حل شده كنيد