سلام
فکر کنم خیلی ها به این کد نیاز داشته باشن
گاهی ممکنه پیش بیاد که وقتی محتویات یک شیت رو بررسی میکنین و میخواین فقط کلمه یا عدد مورد نظر باشه و بقیه اطلاعات خودکار پاک شن
این کد همون کار رو انجام میده
که به جای absorkhi کلمه مورد نظر رو بنویسید
فکر کنم خیلی ها به این کد نیاز داشته باشن
گاهی ممکنه پیش بیاد که وقتی محتویات یک شیت رو بررسی میکنین و میخواین فقط کلمه یا عدد مورد نظر باشه و بقیه اطلاعات خودکار پاک شن
این کد همون کار رو انجام میده
کد:
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