Sub exceliran()
lastsheet2 = Sheet2.Cells(Sheet2.Rows.Count, 1).End(xlUp).Row 'پيدا کردن رديف آخرين خانه ي پر از ستون اول شيت 2
lastsheet3 = Sheet3.Cells(Sheet3.Rows.Count, 1).End(xlUp).Row ' پيدا کردن رديف آخرين خانه ي پر از ستون اول شيت 3
For Each c In Sheet2.Range("A1:A" & lastsheet2)
For Each v In Sheet3.Range("A1:A" & lastsheet3)
If c = v Then
LastRow = Sheet5.Cells(Sheet5.Rows.Count, 1).End(xlUp).Row + 1
If LastRow = 2 And Sheet5.Cells(1, 1) = "" Then LastRow = 1
Sheet5.Range("A" & LastRow) = c
Sheet5.Range("B" & LastRow) = c.Offset(0, 1)
Sheet5.Range("C" & LastRow) = c.Offset(0, 2)
Sheet5.Range("A" & LastRow + 1) = v
Sheet5.Range("B" & LastRow + 1) = v.Offset(0, 1)
Sheet5.Range("C" & LastRow + 1) = v.Offset(0, 2)
End If
Next v
Next c
End Sub
علاقه مندی ها (Bookmarks)