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
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
با سلام
میتوانید از کد زیر استفاده نمایید.
پایدار باشید میرکد: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
سلام میتونید از فرمول زیر در اکسل استفاده کنید :
=IF(COUNTIF($A$1:$A$2000,A1)=1,0,1)
یک ستون جدید ایجاد کنید. فرمل رو در اولین سلول ستون paste کنید. در این فرمول فرض کردم که ستون داده هاتون اسمش A هست که 2000 تا سلول داره و اولین دادتون هم تو سلول A1 هست. در غیر این صورت میتونید اعداد و نام سلول را در فرمول بالا تصحیح کنید. حالا در ستون جدید ایجاد شده که فرمول رو در اون paste کردید وایستید. با استفاده از علامت مربع کنار سلول، محتویات سلول رو با دراگ کردن تا سلول 2000 ادامه بدین. الان جلوی داده های تکراری عدد 1 و داده های منحصر به فرد عدد 0 رو میبینید. حالا روی سلول اول ستون ایجاد شده وایسید. از منوی data گزینه ی فیلتر رو انتخاب کنید. یک منو تو سلول اول ایجاد میشه با کلیک بر روی اون رو باز کنید. حالا اگه میخواید داده های تکراری حذف بشند تیک کنار عدد 1 رو بردارید. اگر هم میخواید فقط داده های تکراری بمونن تیک عدد 0 رو بردارید.
امیدوارم به کارتون بیاد
هادی حقگویی
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
علاقه مندی ها (Bookmarks)