سوال :روش مقایسه داده های دو آرایه و بدست اوردن داده های مورد اختلاف

[yazdi]

با سلام خدمت دوستان عزیز
من برای بدست اوردن اسم و فامیل افرادی که در یک لیست هستند و در لیست دیگر وجود ندارند دچار مشکل شده ام . لذا از دوستان عزیز می خواهم اگر کسی راه حلی دارد که بشود نام افرادی که در یک جدول هستند و در جدول دیگر نیستند را بدهد . ارائه بدهد

[esyoo]

RE: سوال :روش مقایسه داده های دو آرایه و بدست اوردن داده های مورد اختلاف

لطفا فایل مربوطه را قرار دهید.
آیا هر دو لیست مثل هم هستند؟(یکی با اسم و فامیل و دیگری فقط با فامیل؟)

[yazdi]

RE: سوال :روش مقایسه داده های دو آرایه و بدست اوردن داده های مورد اختلاف

با تشکر از توجه شما باید بگم فایل اصلی مربوط به یک سازمان دولتی است و من نمی توانم آن را قرار دهم ولی فایل بسیار ساده است بدین ترتیب که ما دو جدول داریم که شامل 1300 نام و نام خانوادگی است و دیگری شامل 1200 نام و نام خانوادگی است هدف ما بدست آوردن 100نام ونام خانوادگی است که در یک لیست هست و در لیست دیگر نیست این کار به صورت دستی کار وقت گیر ی است به همین دلیل باید از طریق فرمول نویسی اقدام کنیم

[m_d6712]

RE: سوال :روش مقایسه داده های دو آرایه و بدست اوردن داده های مورد اختلاف

سلام برای این کار کافی است کد زیر را استفاده کنید.
فرض کنید که یک سری نام در شیت اول وجود دارد. یک سری نام در شیت دوم

کد زیر اسامی که در شیت اول وجود دارد ولی در شیت دوم نیست را برای شما می آورد.

Sub finduniquecells()

Dim numofdata As Integer
numofdata = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row


Dim i As Integer
Dim k As Integer
k = 0

Range("Sheet3!A:A").Clear
For i = 1 To numofdata
If (Application.WorksheetFunction.CountIf(Range("Shee t2!A1:A100"), Range("A" + CStr(i)).Text) = 0) Then
k = k + 1
Range("Sheet3!A" + CStr(k)).Value = Range("A" + CStr(i)).Text
End If
Next

End Sub