У меня такая проблема Нужно сравнить штуки по артиклу с штуками по артикулу с Третего столбика (Провести учет что пришло а что не хватает)
Пример:
Артикул
штук
Артикул
штук
775-778
20
775-778
20
1002060
30
1002060
30
756-985
10
1008218
1
1008218
50
1005486
4
1005486
10
756-985
7
Пояснение: Есть артикул:значение === артикул:значениние пример возьмём артикул 775-778 у которого значение 20 и пройдёмся по третяму стольбику находим артикул и сравниваем значение первого артикула и второго если они не равны ввыводим в другой лист (да куда угодно что бы было ввидно каких не хватает)
Пожелания : Как можно по подробнее
/////////////////////////////////////////////////////////////////////////////// /////////Заранее всем спасибо кто помог !!! ////////// //////////////////////////////////////////////////////////////////////////////
Как заморочено объясняете. Покажите в файле-примере. Как есть - Как надо. Пока я понял, что нужно выбрать УНИКАЛЬНЫЕ артикулы (которых нет ни в первом ни во втором списке)?
Согласие есть продукт при полном непротивлении сторон
пришол товар в электронном ввиде мне отправляют что они отправили (это 1 и 2 столбик) , в складе( это 3 и 4столбик) я сканирую все это и потом нужно сравнить
Макросом можно таким. Использование макросов должно быть разрешено
Код
Sub Artikuls()
Dim arr1(), arr2()
Dim I&, J&, iUb&
With ActiveSheet
arr1 = .Range("A1:B" & .Cells(.Rows.Count, 1).End(xlUp).Row).Value
arr2 = .Range("D1:E" & .Cells(.Rows.Count, 4).End(xlUp).Row).Value
iUb = IIf(UBound(arr1) > UBound(arr2), UBound(arr1), UBound(arr2))
ReDim arrNew(0 To iUb - 1, 0 To 0)
With CreateObject("Scripting.Dictionary")
For I = 1 To UBound(arr1)
.Add CStr(arr1(I, 1)), arr1(I, 2)
Next
For I = 1 To UBound(arr2)
If .Exists(arr2(I, 1)) Then
If .Item(arr2(I, 1)) <> arr2(I, 2) Then
arrNew(J, 0) = arr2(I, 1)
J = J + 1
End If
End If
Next
End With
.Range("G1").Resize(UBound(arrNew)) = arrNew
End With
End Sub