Макрос для дубликатов с условиями

У меня есть некоторые данные, в которых есть несколько дубликатов в столбце E и его номер отдела. в столбце S. Что я хочу сделать, так это то, что для любого повторяющегося значения в столбце E, если значения столбца S одинаковы, он должен сохранить одно и то же значение в 1-м дубликате и удалить другие дубликаты. Если значения Col S не совпадают, в нем должно быть значение «18». Например

Col E Col S Ответ
1515A 10 Сохранить без изменений
1515AA 12 Сохранить как 1515AA в столбце A и 12 как столбец S
1515AA 12 Удалить
1515AA 12 Удалить
5151B 8 Сохранить без изменений
515BB 5 Взять 515BB с 18< бр> 515BB 3 Удалить

У меня около 800-1500 позиций. Может кто поможет с макросом. Это будет очень полезно для меня, вместо того, чтобы вручную искать и удалять данные.


duplicates excel countif vba
person Kavya Krishnamani    schedule 17.09.2014    source источник

Ответы (1)


arrow_upward
0
arrow_downward

Вы можете использовать что-то вроде:

Sub EraseR()
    i = 1
    While Range("E" & i).Value <> ""
        If (Range("E" & i + 1).Value = Range("E" & i).Value) And (Range("S" & i + 1).Value = Range("S" & i).Value) Then
            Range(i + 1 & ":" & i + 1).Delete
        ElseIf (Range("E" & i + 1).Value = Range("E" & i).Value) And (Range("S" & i + 1).Value <> Range("S" & i).Value) Then
            Range(i + 1 & ":" & i + 1).Delete
            Range("S" & i).Value = 18
        Else
            i = i + 1
        End If
    Wend
End Sub
person user3514930    schedule 18.09.2014
comment
Эй, большое спасибо. Мне этот макрос помог. Извините за задержку с ответом. :) - person Kavya Krishnamani; 26.09.2014