پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 5 , از مجموع 5

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

  1. #1


    آخرین بازدید
    02 _ 04 _ 2017
    تاریخ عضویت
    May_2012
    محل سکونت
    تهران
    نوشته ها
    134
    امتیاز
    5
    سپاس
    47
    سپاس شده
    17 در 9 پست

    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


    آخرین بازدید
    08 _ 07 _ 2017
    تاریخ عضویت
    January_2013
    محل سکونت
    شیراز
    نوشته ها
    1,176
    امتیاز
    3085
    سپاس
    1,558
    سپاس شده
    3,019 در 759 پست

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

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

  4. سپاس ها (1)


  5. #3


    آخرین بازدید
    02 _ 04 _ 2017
    تاریخ عضویت
    May_2012
    محل سکونت
    تهران
    نوشته ها
    134
    امتیاز
    5
    سپاس
    47
    سپاس شده
    17 در 9 پست

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

  6. #4


    آخرین بازدید
    02 _ 04 _ 2017
    تاریخ عضویت
    May_2012
    محل سکونت
    تهران
    نوشته ها
    134
    امتیاز
    5
    سپاس
    47
    سپاس شده
    17 در 9 پست

    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


    آخرین بازدید
    یک روز پیش
    تاریخ عضویت
    January_2012
    محل سکونت
    کاشان
    نوشته ها
    93
    امتیاز
    372
    سپاس
    3
    سپاس شده
    172 در 48 پست

    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 : 21 _ 09 _ 2013 در ساعت 21:27

  8. سپاس ها (2)



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

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

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

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

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

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

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

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

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

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

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

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

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

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

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