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

[ali.b]

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

Sub test()

Application.ScreenUpdating = 0

With Range("b2:b" & Cells(Rows.Count, "a").End(xlUp).Row)
    .AutoFilter 1, "absorkhi"
    .Offset(1).EntireRow.Delete
    .AutoFilter
End With

Application.ScreenUpdating = 1

End Sub

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

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.