مقایسه

[sohrabahmadi]

با سلام به اساتید ودوستان گرامی.درفایل نمونه ای که ضمیمه شده میخوام یه فرمولی باشه که اگر شماره ای از ستون 1 (با رنگ زرد مشخص شده ) در ستون 5 نباشه و یا بالعکس در ستون 9 نمایش داده بشه.البته خودم با استفاده از حلقه تونستم به یه راه حلی برسم ولی خیلی طولانی و کند ودر بعضی مواقع هم جواب نداد.ممنون دوستان میشم اگه راهنماییم کنن. با تشکر
http://persiandrive.com/202899

[shamsololama]

RE: مقایسه

با درود فراوان

Sub Macro1()

Sheet17.Range("i1:i1000") = ""
Dim c As Range
For Each c In Sheet17.Range("A1:A1000")
If Application.WorksheetFunction.CountIf(Sheet17.Rang e("e1:e1000"), c) = 0 Then
Sheet17.Range("i1").Offset(Application.WorksheetFu nction.CountA(Sheet17.Range("i1:i1000")) + 1) = c

End If
Next
'///////////////////////////
For Each c In Sheet17.Range("e1:e1000")
If Application.WorksheetFunction.CountIf(Sheet17.Rang e("a1:a1000"), c) = 0 Then
Sheet17.Range("i1").Offset(Application.WorksheetFu nction.CountA(Sheet17.Range("i1:i1000")) + 1) = c

End If
Next


فایل:
[attachment=1088]

[sohrabahmadi]

RE: مقایسه

ممنون از استاد عزیز مثل همیشه عالی و راهگشا.