بعد اذن اخي ابو حنين
ربما هذا الكود اسرع قليلاً للبيانات الكبيرة
Sub salim()
Dim cel As Range, LR As Integer, x As Integer
LR = ActiveSheet.UsedRange.Rows.Count
Range("L2:l5000").Clear
Set my_rg = Range("A1:I" & LR).SpecialCells(2, 23)
Range("L2").Activate
For Each my_cel In my_rg
ActiveCell = my_cel
ActiveCell.Offset(1, 0).Activate
Next
Range("L1").Activate
End Sub
يا اخي اشرح بالعربي ماذا تعني بالمسمى الوظيفي
هل هو Department Code او Position Code
على كل حال جرب هذه المعادلة في الخلية E12 واسحب نزولاً
=IF($C12="","",VLOOKUP($C12,$C$2:$F$5,2,0)&"-"&VLOOKUP($C12,$C$2:$F$5,4,0))
هنا لازم يكون تخصيص بالمعادلات لكل مجموعة
افرض ان العامود يحتوي على مخلتف الاشكال من الارقام (مثلاً: 4-9 11-50 12-250 1254-1500..الخ)
للمقارنة فقط
Out_In compair.rar