نمایش نتایج: از شماره 1 تا 5 , از مجموع 5

موضوع: مقایسه وحذف داده های تکراری

  1. #1


    آخرین بازدید
    2021/02/22
    تاریخ عضویت
    May 2012
    محل سکونت
    تهران
    نوشته ها
    142
    امتیاز
    6
    سپاس
    50
    سپاس شده
    18 در 9 پست
    سطح اکسل
    35.00 %

    sohrabahmadi به Yahoo ارسال پیام

    مقایسه وحذف داده های تکراری

    با سلام به دوستان و اساتید گرامی . برای مقایسه و حذف دادهای شیت 2 که در شیت 1 هم هستند از این فرمول استفاده کردم:
    Private Sub CommandButton1_Click()
    Dim c As Range
    Dim d As Range
    For Each c In Sheet2.Range("a1:a500")
    If c <> "" Then
    For Each d In Sheet1.Range("a1:a50000")
    If d.Value = c.Value And d.Offset(0, 1).Value = c.Offset(0, 1).Value Then
    c = ""
    c.Offset(0, 1).Value = ""
    c.Offset(0, 2).Value = ""
    End If
    Next
    End If
    Next
    End Sub
    منتها با توجه به اینکه حجم داده ها بالاست عملکردش خیلی کند هستش .
    اگه اساتید فرمول رو اصلاح یا راه حل بهتری معرفی کنن ممنون میشم.با تشکر
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    تو خشنود باشی و ما رستگار

  2.  

  3. #2


    آخرین بازدید
    2022/06/26
    تاریخ عضویت
    January 2013
    محل سکونت
    شیراز
    نوشته ها
    1,198
    امتیاز
    3248
    سپاس
    1,566
    سپاس شده
    3,182 در 795 پست
    سطح اکسل
    84.00 %

    خوب اول اینکه اگه شما بتونی کاری کنی که آخرین سل همیشه معلوم باشه بهتر میشد. دوم اینکه screen update رو خاموش کنی.
    کد زیر رو در اولین خط باشه:
    Application.ScreenUpdating=False

    ودر اخر کد هات هم دوبره روشن کنی :
    اخرین خط
    Application.ScreenUpdating=True
    در پناه خداوندگار ایران زمین باشید و پیروز

  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    2021/02/22
    تاریخ عضویت
    May 2012
    محل سکونت
    تهران
    نوشته ها
    142
    امتیاز
    6
    سپاس
    50
    سپاس شده
    18 در 9 پست
    سطح اکسل
    35.00 %

    sohrabahmadi به Yahoo ارسال پیام
    با سلام و تشکر از استاد اسماعیلی عزیز .اینکارو کرده بودم ولی فرقی نکرده بود؟ راجع به انتخاب آخرین سل هم اگه راهنمایی بفرمایین ممنون میشم. اگه منظورتون Sheet2.Range("a50000").End(xlUp).Select هستش کجا باید استفاده کنم .البته فکر نکنم تو فرمول بالا بشه ازش استفاده کرد.بازم ممنون
    تو خشنود باشی و ما رستگار

  6. #4


    آخرین بازدید
    2021/02/22
    تاریخ عضویت
    May 2012
    محل سکونت
    تهران
    نوشته ها
    142
    امتیاز
    6
    سپاس
    50
    سپاس شده
    18 در 9 پست
    سطح اکسل
    35.00 %

    sohrabahmadi به Yahoo ارسال پیام
    با سلام یه راه حل سریعتر پیدا کردم . گفتم بگم شاید به درد دوستان بخوره ان شاالله

    Dim c As Range
    For Each c In Sheet2.Range("A1:A500")
    If Application.WorksheetFunction.CountIfs(Sheet1.Rang e("a1:a50000"), c, Sheet1.Range("b1:b50000"), c.Offset(0, 1)) = 1 Then
    c = ""
    c.Offset(0, 1) = ""
    c.Offset(0, 2) = ""
    End If
    Next
    تو خشنود باشی و ما رستگار

  7. #5


    آخرین بازدید
    2024/02/06
    تاریخ عضویت
    January 2012
    محل سکونت
    کاشان
    نوشته ها
    170
    امتیاز
    602
    سپاس
    7
    سپاس شده
    372 در 125 پست
    تعیین سطح نشده است

    smartman به  ICQ ارسال پیام smartman به MSN ارسال پیام smartman به Yahoo ارسال پیام
    من ترجیح میدم این کار را بدون VBA و یا حداکثر با ضبط یک ماکرو انجام بدم!
    به این ترتیب:
    1- یافتن موارد تکراری (موارد مشابه در دوشیت) با افزودن یک ستون با فرمول CountIfs در کاربرگ2
    2- فیلتر کردن ستون فوق برای موارد غیر صفر
    3- انتخاب سطرهای موارد فیلتر شده
    4- انتخاب سطرهای آشکار: Home Tab → Find & Select → Go To Special... → Visible Cells Only
    5- - + Ctrl
    6- البته اگه نیاز به حذف کل رکورد نباشه، بعد از مرحله 4 کافیست Delete را بزنید
    ویرایش توسط smartman : 2013/09/21 در ساعت 21:27

  8. سپاس ها (2)



اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

موضوعات مشابه

  1. مقایسه دو فایل
    توسط Amin_D در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 0
    آخرين نوشته: 2013/04/03, 02:30
  2. مقایسه
    توسط sohrabahmadi در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 2
    آخرين نوشته: 2013/01/06, 20:16
  3. کمک درمورد یک مقایسه
    توسط hamalous در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 6
    آخرين نوشته: 2012/10/12, 18:10
  4. مقایسه 2 فایل مختلف
    توسط ~M*E*H*D*I~ در انجمن سوالات پیرامون ويژوال بيسيك - VBA Questions
    پاسخ ها: 19
    آخرين نوشته: 2012/04/04, 17:28
  5. مقایسه لیست
    توسط dcdonya در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 0
    آخرين نوشته: 2012/02/28, 21:23

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

مقایسه و حذف رکورد های تکراری اکسل

مقایسه داده تکراری در اکسل

اکسل نمایش داده تکراری

حذف داده های تکراری در اکسل

مقایسه وحذف داده های تکراری دراکسل

نمایش داده های تکراری در اکسل

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است