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