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

Collapse
X
 
  • زمان
  • Show
Clear All
new posts
  • everynight
    • January 2013
    • 2

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

    با سلام و درورد خدمت همه دوستان
    حقیقتش من یک مشکل داشتم . می خواستم بدونم چه جوری میشه در یک ستون که مثلا 2000 داده داره داده های تکراری رو پیدا و همشون رو حذف کنه. مثلا اگر یک رقم 3 بار تکرار شده هر 3 رقم رو پیدا کنه و حذف کنه.

    پیشا پیش از کمک همه دوستان سپاسگذارم
  • ~M*E*H*D*I~

    • October 2011
    • 4374

    #2
    RE: حذف هر دو داده تکراری در یک ستون

    از تب DATA گزینه Remove Duplicates روانتخاب ستون مورد نظر در پنجره باز شده مشخص و OK کنید

    sigpic

    Comment

    • nayyeri1982

      • June 2011
      • 45

      #3
      RE: حذف هر دو داده تکراری در یک ستون

      با احترام
      این ابزار Remove Duplicates اگر سه تا دیتای تکراری وجود اشته باشه، دوتاشو پاک می کنه و یکیشو نگه می داره.
      گویا دوستمون می خوان هر سه تاش پاک بشن....

      ضمنا در مورد کار با این ابزار یه سوال برام پیش اومد و اون اینکه اگر ابتدا محدوده انتخاب شامل کل ستون (ها) باشه (روی سرستون کلیک کنیم) ،در جدولی که باز می شه یه گزینه هست بنام my data has headers که می تونیم تیک بزنیم یا نزنیم. فرقش چیه?
      البته درصورت انتخاب محدوده محدود این جدول باز نمی شه و یک باکس دیگه باز می شه که کاری بهش ندارم.

      Comment

      • everynight
        • January 2013
        • 2

        #4
        RE: حذف هر دو داده تکراری در یک ستون

        نوشته اصلی توسط nayyeri1982
        با احترام
        این ابزار Remove Duplicates اگر سه تا دیتای تکراری وجود اشته باشه، دوتاشو پاک می کنه و یکیشو نگه می داره.
        گویا دوستمون می خوان هر سه تاش پاک بشن....

        ضمنا در مورد کار با این ابزار یه سوال برام پیش اومد و اون اینکه اگر ابتدا محدوده انتخاب شامل کل ستون (ها) باشه (روی سرستون کلیک کنیم) ،در جدولی که باز می شه یه گزینه هست بنام my data has headers که می تونیم تیک بزنیم یا نزنیم. فرقش چیه?
        البته درصورت انتخاب محدوده محدود این جدول باز نمی شه و یک باکس دیگه باز می شه که کاری بهش ندارم.
        دقیقا همون طور که اشاره کردید. من می خوام همه داده های تکراری حذف بشن. با Remove Duplicates یکی از داده های تکراری باقی می مونه. چه جوری میشه همشون رو حذف کرد؟؟؟؟

        ممنون از راهنمایی هاتون

        Comment

        • 1q2w3e4rr

          • November 2012
          • 57

          #5
          RE: حذف هر دو داده تکراری در یک ستون

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

          کد PHP:
          Sub a()
          Dim c As Range
          Dim n 
          As Double
          Dim lRow 
          As LonglCol As Integermrow As LongmCol As IntegerAs Integer
           lCol 
          ActiveSheet.UsedRange.Columns.Count
           mrow 
          0
           
          For 1 To lCol
           lRow 
          Range(Cells(Rows.Counti), Cells(Rows.Counti)).End(xlUp).Row

           
          If lRow mrow Then
           mrow 
          lRow
           mCol 
          i
           
          Else
           
          End If
           
          Next i

          mrow
          For Each c In Range(Cells(11), Cells(n1))
          For 
          1 To n
          If Application.WorksheetFunction.CountIf(Range(Cells(11), Cells(n1)), c) > 1 Then
          Cells(i1).Value
          End 
          If
          If 
          Cells(i1) = f Then
          Cells
          (i1) = ""
          End If
          Next i
          Next

          End Sub 
          فایل شامل برنامه:
          Book5.xlsm

          Comment

          • hamidreza313

            • December 2012
            • 131

            #6
            RE: حذف هر دو داده تکراری در یک ستون

            با سلام خدمت دوستان عزیز
            علاوه بر روش های ذکر شده توسط اساتید گرامی ، اگر فرض کنیم ستون اطلاعات شما ستون Aباشد آنگاه شما می توانید در ستون دوم کنار ستون اصلی خودتان فرمول زیر را در سلول اول نوشته و سپس به تمام سلولهای پائینی تعمیم داده و بعد از paste vlue کردن ستون دوم ، آنگاه فقط اعدادی را خواهید داشت که تنها یک بار آمده و نه بیشتر و سپس با یک سورت ساده کلیه اطلاعاتان به صورتی که می خواستید تلخیص میشود.
            کد PHP:
            =IF(COUNTIF(A:A;A1)=1;A1;""
            زكات دانش، كوشش در عمل به آن و آموزش به كسانى است كه شايسته آن‏ هستند. امام علي (ع)

            Comment

            • ~M*E*H*D*I~

              • October 2011
              • 4374

              #7
              RE: حذف هر دو داده تکراری در یک ستون

              نوشته اصلی توسط nayyeri1982
              با احترام
              این ابزار Remove Duplicates اگر سه تا دیتای تکراری وجود اشته باشه، دوتاشو پاک می کنه و یکیشو نگه می داره.
              گویا دوستمون می خوان هر سه تاش پاک بشن....

              ضمنا در مورد کار با این ابزار یه سوال برام پیش اومد و اون اینکه اگر ابتدا محدوده انتخاب شامل کل ستون (ها) باشه (روی سرستون کلیک کنیم) ،در جدولی که باز می شه یه گزینه هست بنام my data has headers که می تونیم تیک بزنیم یا نزنیم. فرقش چیه?
              البته درصورت انتخاب محدوده محدود این جدول باز نمی شه و یک باکس دیگه باز می شه که کاری بهش ندارم.
              اگر دقت کرده باشید این گزینه موقع فیلتر کردن هم هست ، و تنها تفاوتش اینه که ما سرستون هارو از اعمال تغییرات منفک کنیم


              sigpic

              Comment

              • Amin_D

                • December 2010
                • 398

                #8
                RE: حذف هر دو داده تکراری در یک ستون

                نوشته اصلی توسط 1q2w3e4rr
                میتوندید از این کد برای انجام کارتون استفاده کنید.
                البته فایلی هم شامل این برنامه برای میزارم.

                کد PHP:
                Sub a()
                Dim c As Range
                Dim n 
                As Double
                Dim lRow 
                As LonglCol As Integermrow As LongmCol As IntegerAs Integer
                 lCol 
                ActiveSheet.UsedRange.Columns.Count
                 mrow 
                0
                 
                For 1 To lCol
                 lRow 
                Range(Cells(Rows.Counti), Cells(Rows.Counti)).End(xlUp).Row

                 
                If lRow mrow Then
                 mrow 
                lRow
                 mCol 
                i
                 
                Else
                 
                End If
                 
                Next i

                mrow
                For Each c In Range(Cells(11), Cells(n1))
                For 
                1 To n
                If Application.WorksheetFunction.CountIf(Range(Cells(11), Cells(n1)), c) > 1 Then
                Cells(i1).Value
                End 
                If
                If 
                Cells(i1) = f Then
                Cells
                (i1) = ""
                End If
                Next i
                Next

                End Sub 
                فایل شامل برنامه:
                Book5.xlsm
                سلام
                ولی دوست عزیز همین فایلی کخ برای نمونه گذاشتین اعداد یونیک مثل 2 و3 و5رو هم پاک میکنه
                با اجرای برنامه فقط عدد 8 میمونه!!
                خواستن ، توانستن است.

                Comment

                • امين اسماعيلي
                  مدير تالار ويژوال بيسيك

                  • January 2013
                  • 1198

                  #9
                  RE: حذف هر دو داده تکراری در یک ستون

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

                  Comment

                  • jagwar87
                    • July 2015
                    • 1

                    #10
                    سلام هیچ کدوم از فایل ها درست کار نمی کنه

                    Comment

                    • saman501

                      • April 2016
                      • 17

                      #11
                      اینم یک کد ساده از طرف من خیلی راحت کار میکنه

                      c = 0
                      For i = 1 To 100
                      For j = 1 To 100
                      If Sheet2.Range("A" & i).Value = Sheet1.Range("A" & j) Then

                      c = c + 1
                      Sheet3.Range("A" & c).Value = Sheet2.Range("A" & i).Value
                      End If
                      Next j
                      Next i
                      بردباری

                      Comment

                      • majid_mx4

                        • June 2012
                        • 698

                        #12
                        با سلام

                        میتوانید از کد زیر استفاده نمایید.

                        کد:
                        Sub mir()
                        Dim Lastrow As Long
                        With ActiveSheet
                            Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
                        End With
                        For Each cell In Range("a2:a" & Lastrow)
                        mm = Evaluate("=COUNTIF(A:A," & cell.Value & ")")
                         If mm > 1 Then
                            kep = cell.Value
                        For i = 1 To Lastrow Step 1
                            If Range("a" & i).Value = kep Then
                        Range("a" & i).Clear
                        End If
                        Next
                        End If
                        Next
                        End Sub
                        پایدار باشید میر

                        Comment

                        • h.haghgouei
                          • March 2017
                          • 1

                          #13
                          سلام میتونید از فرمول زیر در اکسل استفاده کنید :
                          =IF(COUNTIF($A$1:$A$2000,A1)=1,0,1)
                          یک ستون جدید ایجاد کنید. فرمل رو در اولین سلول ستون paste کنید. در این فرمول فرض کردم که ستون داده هاتون اسمش A هست که 2000 تا سلول داره و اولین دادتون هم تو سلول A1 هست. در غیر این صورت میتونید اعداد و نام سلول را در فرمول بالا تصحیح کنید. حالا در ستون جدید ایجاد شده که فرمول رو در اون paste کردید وایستید. با استفاده از علامت مربع کنار سلول، محتویات سلول رو با دراگ کردن تا سلول 2000 ادامه بدین. الان جلوی داده های تکراری عدد 1 و داده های منحصر به فرد عدد 0 رو میبینید. حالا روی سلول اول ستون ایجاد شده وایسید. از منوی data گزینه ی فیلتر رو انتخاب کنید. یک منو تو سلول اول ایجاد میشه با کلیک بر روی اون رو باز کنید. حالا اگه میخواید داده های تکراری حذف بشند تیک کنار عدد 1 رو بردارید. اگر هم میخواید فقط داده های تکراری بمونن تیک عدد 0 رو بردارید.
                          امیدوارم به کارتون بیاد
                          هادی حقگویی

                          Comment

                          Working...