در این فایل مقایسه انجام میشود و تکراری ها به شیت دیگر میروند میخواهم تکراری هر دو شیت با هم چاپ شود و تکراری های شیت اول پاک شود
-
بردباری -
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بردباری -
در اینجا سه شیت داریم میخواهیم شیت 1 و شیت 2 با هم مقایسه شود و مشابههای هر دو شیت با هم در شیت سوم چاپ شود مثلا در شیت اول عدد یک داریم در شیت دوم هم عدد یک داریم این ها هر دو چاپ شوند و از شیت اول فقط اول پاک شودبردباریکامنت
-
نکته دیگر در ستون اول زمانی که فایل پاک شد فایل های دیگه بیا جای اونبردباریکامنت
کامنت