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
در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)
مجوز های ارسال و ویرایش
پاسخ با نقل قول
علاقه مندی ها (Bookmarks)