[حل شده] حذف یک ردیف دارای یک کلمه

[amir0914]

با سلام خدمت دوستان و اساتید گرامی. میخوام با vba کدی بنویسم که اگر در سلول های یک ستون مثلا A یک کلمه "b" وجود داشته باشد اون ردیف رو رنگی کنه..ممنون میشم دوستان کمک کنن. البته ببخشید موضوع رو اشتباه نوشتم. با تشکر

[iranweld]

با سلام

از کد ذیل استفاده کنید

Sub test()

z1 = Cells(Rows.Count, "A").End(xlUp).Row

For i = 1 To z1

If InStr(Range("A" & i), "b") > 0 Or InStr(Range("A" & i), "B") > 0 Then

 Range("A" & i).Interior.ColorIndex = 4
 
 End If
 
 Next
 

End Sub