(آموزشی) پیدا کردن سلول مورد نظر و پاک کردن محتویات دیگر

[ali.b]

سلام
فکر کنم خیلی ها به این کد نیاز داشته باشن
گاهی ممکنه پیش بیاد که وقتی محتویات یک شیت رو بررسی میکنین و میخواین فقط کلمه یا عدد مورد نظر باشه و بقیه اطلاعات خودکار پاک شن
این کد همون کار رو انجام میده

Sub test()

Application.ScreenUpdating = 0

With Range("b2:b" & Cells(Rows.Count, "a").End(xlUp).Row)
    .AutoFilter 1, "[COLOR=#0000ff]absorkhi[/COLOR]"
    .Offset(1).EntireRow.Delete
    .AutoFilter
End With

Application.ScreenUpdating = 1

End Sub

که به جای absorkhi کلمه مورد نظر رو بنویسید