این نمونه کد من است

[saman501]

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

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

[saman501]

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

Sheet3.Range("b" & c).Value = Sheet2.Range("b" & i).Value

Sheet3.Range("c" & c).Value = Sheet2.Range("c" & i).Value

End If
Next j
Next i

c = 0
For i = 1 To 100
For j = 1 To 100
If Sheet1.Range("A" & i).Value = Sheet2.Range("A" & j) Then
c = c + 2
Sheet3.Range("a" & c).Value = Sheet1.Range("a" & i).Value
Sheet3.Range("b" & c).Value = Sheet1.Range("b" & i).Value
Sheet3.Range("c" & c).Value = Sheet1.Range("c" & i).Value
End If
Next j
Next i
For i = 1 To 100
For j = 1 To 100
If Sheet1.Range("A" & i).Value = Sheet2.Range("A" & j) Then
Sheet1.Range("a" & i).Select
Selection.ClearContents
Sheet1.Range("b" & i).Select
Selection.ClearContents
Sheet1.Range("c" & i).Select
Selection.ClearContents

End If
Next j
Next i

[saman501]

در اینجا سه شیت داریم میخواهیم شیت 1 و شیت 2 با هم مقایسه شود و مشابههای هر دو شیت با هم در شیت سوم چاپ شود مثلا در شیت اول عدد یک داریم در شیت دوم هم عدد یک داریم این ها هر دو چاپ شوند و از شیت اول فقط اول پاک شود

[saman501]

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