مقارنة بين عمودين وإظهار الفرق بعمود ثالث

[Beeesh]

مرحبا شباب، عندي سؤال في الاكسيل، لدي قائمة الموظفين الكاملة وقائمة الموظفين الموجودين حاليا و اريد اظهار قامة الموظفين الغائبين حاليا في عمود جديد، ماهي الدالة لإظهار ذلك ... وشكرا

[أبوأحـمـد]

استخدم الدالة COUNTIF

[Beeesh]

اخري جربتها ماظبطت معي فيك تكتب مثال وشكرا سلفا

[lionheart]

Attach an example file

[محمد هشام.]

Sub Uniques()
Dim Rng As Range, derlig&
Dim WSDest As Worksheet: Set WSDest = Sheets("Sheet1")

derlig = WSDest.Range("a" & Rows.Count).End(xlUp).Row + 1

WSDest.Range("c2:c" & derlig).ClearContents

For Each Rng In Range("A2:A" & derlig)

    If WorksheetFunction.CountIf(Range("B2:B" & derlig), Rng) = 0 Then

        Range("C" & Rows.Count).End(xlUp).Offset(1) = Rng
    
    End If
Next
End Sub

 

TEST_Uniques.xlsm