Доброго времени.
Есть задача, с которой не могу справиться. Два столбца. В первом указан номер заказ, во втором id оператора, который добавил товар в корзину заказа.
Необходимо удалить повторяющиеся номера заказов с сохранением их позиций. Есть одно условие, если в корзину товары добавляли разные операторы, то слева оставить номер заказа.
С удаление повторов , чтобы сохранить позиции я справлялся с этим макросом. А вот со вторым условием никак не разберусь. Пример во вложении.
Есть задача, с которой не могу справиться. Два столбца. В первом указан номер заказ, во втором id оператора, который добавил товар в корзину заказа.
Необходимо удалить повторяющиеся номера заказов с сохранением их позиций. Есть одно условие, если в корзину товары добавляли разные операторы, то слева оставить номер заказа.
С удаление повторов , чтобы сохранить позиции я справлялся с этим макросом. А вот со вторым условием никак не разберусь. Пример во вложении.
Код |
---|
Sub DelDup() Dim arr(), I& With Worksheets("Лист1") arr = .Range("A1:A" & .Cells(.Rows.Count, "A").End(xlUp).Row).Value End With On Error Resume Next With CreateObject("Scripting.Dictionary") For I = 1 To UBound(arr) .Add CStr(arr(I, 1)), I If Err <> 0 Then arr(I, 1) = Empty Err.Clear End If Next End With Worksheets("Лист1").Range("A1").Resize(UBound(arr), 1) = arr End Sub |