Доброго времени суток, может кто-нибудь подскажет мне, в каком направлении двигаться.
Есть код которые при вводе массивом находит уникальные значения из диапазона:
Мне необходимо выбор не просто уникальных, но еще и удовлетворяющих условию. В примере, на лист "2" в ячейки D3:D10, необходимо выбрать уникальные значения из листа "1" диапазона A4:A11, удовлетворяющих условию, дата из А3, сорт из В3 (лист"2"). Без всяких условий - все нормально. Пытался вставить "ИНДЕКС" и "ПОИСКПОЗ" в массив в сочетании с "Уникальные" - не получается...В общем, если не затруднит - помогите пожалуйста. Заранее благодарен.
Есть код которые при вводе массивом находит уникальные значения из диапазона:
| Код |
|---|
Function Уникальные(ByVal ra As Range) As Variant ' перебирает все значения в диапазоне ra в поисках уникальных значений. ' Возвращает двумерный массив, содержащий уникальные значения из диапазона ra On Error Resume Next: Dim cell As Range, coll As New Collection, txt$ For Each cell In ra.Cells txt$ = Trim(cell): If Len(txt$) Then coll.Add txt$, txt$ Next cell ReDim newarr(1 To coll.Count, 1 To 1) For i = 1 To coll.Count: newarr(i, 1) = coll(i): Next i Уникальные = newarr End Function |