راهنمایی جهت حذف یک سطر !!

**vahid_1368** · 2015/11/16

سلام خدمت همه دوستان
من یک لیست حساب دارم که شامل 3000 سطر و 10 ستون است
برای برسی حسابها احتیاج دارم کلیه سطرهایی که یک کلمه بخصوص (مثلا : برداشت از کارت)در ان موجود است حذف شود.
با ctrl+f همه انها را پیدا میکند اما نمیدونم چطوری کل سطری که این کلمات در ان هست را یکجا پاک کنم.
چون تعدادش زیاد هست نمیتونم یکی یکی حذف کنم.

خواهشا کمک کنید
ممنون

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

سیستم تبلیغات اکسل ایران

**generalsamad** · 2015/11/16

با سلام
دوست عزیز با چندین روش میتونید به جواب برسید
با استفاده از توابع
با استفاده از کد نویسی
و روشهای دیگری که دوستان سراغ دارند

با استفاده از توابع میتونید اینطور عمل کنید
با استفاده از توابع شرطی و توابع متنی هر سطری که متن مورد نظرتون رو داشته باشه او سطر رو با استفاده از یک ستون کمکی شماره گذاری کرده یا یک عبارت خاص ( عدد یا متن) مشخص کرده و در نهایت این ستون کمکی رو فیلتر کرده و میتونید اون سطرهائی که فیلتر هستند رو مرتب و در نهایت حذف کنید

**vahid_1368** · 2015/11/22

سلام
بابت راهنمایی ممنون اما راستش من هیچی نفهمیدم
میشه ساده تر به من بگید.
خیلی مبتدی هستم
چون حساب های بانکیم هست نمیتونمم بدم بیرون واسم انجام بدن.
باز هم ممنون

**generalsamad** · 2015/11/22

3 روش دیگه هم هست میتونید از اونا نیز استفاده کنید
از طریق Conditional Formatting سپس مرتب سازی بر حسب رنگ سلولها
از طریق فرمول نویسی و سپس مرتب سازی بر حسب رنگ سلولها
بر اساس Replace و سپس مرتب سازی بر حسب رنگ سلولها

از طریق Conditional Formatting بدین صورت عمل کنید
در قسمت فرمول نویسی این فرمول رو قرار دهید

کد PHP:


=COUNTIF($A1:$J1;"*برداشت از کارت*"  )>0

سپس یک فرمت خاص انتخاب کنید
با این کار سطرهائی که کلمه برداشت از کارت دارند همه رنگی خواهند شد
بعد از این کار از فلیتر میتونید استفاده کنید و در تنظیمات فیلتر مرتب سازی رو از نوع by color انتخاب کنید و رنگ قالبی که اتخاذ کرده بودید رو انتخاب تا تمام سطرهایی که حاوی کلمه برداشت از کارت هستند به سطرهای نخستین انتقا پیدا کنند
در نهایت تمام سطرهای رنگی رو انتخاب و سپس delete کنید

روش بعد میتونید همین فرمول رو در سطر اول و یک ستون خاص وارد کرده و به پائین بسط دهید

کد PHP:


=COUNTIF($A1:$J1;"*برداشت از کارت*"  )>0

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

روش استفاده از Replace هم اگه خواستید توضیح خواهم داد

فایل ضمیمه گردید

**iranweld** · 2015/11/22

با سلام

در فایل پیوست هر کلمه ای که در شیت دوم سلول A1 تایپ شده باشد در شیت یک جستجو شده و کل آن سطر حذف میگردد

کد PHP:


Sub test()

Range("a1").Select


On Error Resume Next

    Cells.Find(What:=Sheet2.Range("A1").Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
        
      x = ActiveCell.Row
      
      y = ActiveCell.column
      
       Rows(x).Delete
       
       If x = 1 And y = 1 Then
              Exit Sub
              End If
       
test

End Sub

**vahid_1368** · 2015/11/28

نوشته اصلی توسط iranweld

با سلام

در فایل پیوست هر کلمه ای که در شیت دوم سلول A1 تایپ شده باشد در شیت یک جستجو شده و کل آن سطر حذف میگردد

کد PHP:


Sub test()

Range("a1").Select


On Error Resume Next

    Cells.Find(What:=Sheet2.Range("A1").Value, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
        
      x = ActiveCell.Row
      
      y = ActiveCell.Row
      
       Rows(x).Delete
       
       If x = 1 And y = 1 Then
              Exit Sub
              End If
       
test

End Sub

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