Отбор уникальных значений с условиями

Пользователь

Сообщений: 15 Регистрация: 30.09.2018

28.06.2020 16:28:19

Здравствуйте, уважаемые форумчане. Прошу помочь переделать код так, чтобы уникальные значения "вытягивались" с несколькими условиями.
Нужно, чтобы код в столбец H "вытягивал" уникальные номера со столбца А, если в столбце С есть значение "склад1", а в столбце D в этой же строке есть значение "морковь" или "салат". Сейчас код "вытягивает" просто уникальные номера без условий.

Прикрепленные файлы

номера.xls (37 КБ)

Изменено: Bugahor - 28.06.2020 16:28:53

jakim

Пользователь

Сообщений: 2045 Регистрация: 01.03.2013

28.06.2020 17:01:30

Формула

Код
=IFERROR(INDEX(A$2:A$23;MATCH(1;INDEX((COUNTIF(H1:H$1;A$2:A$23)=0)/(C$2:C$23=F$2)/(D$2:D$23=G$2);0);0));"")

Прикрепленные файлы

номера.xlsx (13.14 КБ)

Mershik

Пользователь

Сообщений: 8277 Регистрация: 03.12.2015

28.06.2020 17:24:02

Bugahor, с массивами не очень у меня

Код

Sub unique_numbers()
 Dim Col As New Collection
 Dim i As Long, k As Long
 Лист1.Columns("H:H").ClearContents
 lr = Cells(Rows.Count, 1).End(xlUp).Row
 For i = 1 To lr
    If Cells(i, 3) = "склад1" Then
    If (Cells(i, 4) = "морковь" Or Cells(i, 4) = "салат") Then Col.Add Cells(i, 1), CStr(Cells(i, 1))
    End If
Next i
For k = 1 To Col.Count
    Cells(k + 1, 8) = Col(k)
Next k
End Sub

Изменено: Mershik - 28.06.2020 17:24:19

Не бойтесь совершенства. Вам его не достичь.

Bugahor Пользователь Сообщений: 15 Регистрация: 30.09.2018	#4 28.06.2020 17:36:32 Спасибо огромное за Ваши ответы! Вы очень помогли.