Есть массив данных в котором находятся данные по сотрудникам: приемы и перемещения. Много перемещений в рамках своего подразделения. У одного сотрудника может доходить до 5-6. Из этого массива данных мне нужно выявить только перемещения из одного подразделения в другое. Подскажите, пожалуйста, как это можно сделать? Файл с данными прилагаю. Жёлтым показано то, что мне нужно найти.
А почему первая строчка с Крюковой выделена? её же приняли в Отдел методологического сопровождения и перевод в это же подразделение. Т.е. это перемещение в рамках своего подразделения.
Sub sidorova()
Dim r As Range
For Each r In Range("B2", Range("B2").End(xlDown))
If r.Offset(0, -1).Value = r.Offset(-1, -1).Value _
And r.Value <> r.Offset(-1, 0).Value Then
r.Interior.Color = vbYellow
r.Offset(-1, 0).Interior.Color = vbYellow
End If
Next r
End Sub