фильтр массива

[-Anton-]

данный код вызывает ошибку 13 type mismatch

не могу понять, что я неправильно делаю?

Option Explicit
Option Base 1


Sub test()

Dim arrA(3, 3) As String
Dim arrB As Variant

arrA(1, 1) = "a"
arrA(1, 2) = "b"
arrA(1, 3) = "c"
arrA(2, 1) = "a"
arrA(2, 2) = "b"
arrA(2, 3) = "c"
arrA(3, 1) = "a"
arrA(3, 2) = "b"
arrA(3, 3) = "c"


arrB = Filter(arrA, "b")


End Sub

[IgorGO]

ищем слово Filter в доке по ВБА, читаем:
...
sourcearray Required. One-dimensional array of strings to be searched.
...

так работает:

Sub test()
  Dim arrA(3) As String
  Dim arrB As Variant
  arrA(1) = "a"
  arrA(2) = "b"
  arrA(3) = "c"
  arrB = Filter(arrA, "b")
End Sub

[-Anton-]

Сообщение от IgorGO

ищем слово Filter в доке по ВБА, читаем:
...
sourcearray Required. One-dimensional array of strings to be searched.
...

так работает:

End Sub[/CODE]

Точно. не обратил внимания.

А не подскажете, есть ли какой-нибудь встроенный фильтр двумерного массива?

[-Anton-]

или только перебором?

[EducatedFool]

Готовая функция фильтра для двумерного массива:
http://excelvba.ru/code/ArrAutofilter

Sub ПримерИспользования()
    arrB = ArrAutofilterEx(arrA, "1=b")
End Sub

[IgorGO]

для вашего примера (привязано к размерам вашего массива)
добавил лист
положил на него массив
отфильтровал
забрал результаты в новый массив
удалил лист

Sub test()

  Dim arrA(3, 3) As String
  Dim arrB As Variant
  
  arrA(1, 1) = "a":  arrA(1, 2) = "b":  arrA(1, 3) = "c"
  arrA(2, 1) = "b":  arrA(2, 2) = "a":  arrA(2, 3) = "c"
  arrA(3, 1) = "c":  arrA(3, 2) = "b":  arrA(3, 3) = "a"
  
  Sheets.Add after:=Sheets(Sheets.Count)
  [a1] = 1: [b1] = 2: [c1] = 3 `шапка
  [a1:c1].Copy Destination:=[e1]: [f2] = "b" `фильтр
  [A2:C4] = arrA `данные
  [A1:C4].AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=[E1:G2], CopyToRange:=[I1], Unique:=False
  arrB = Range("i2:k" & Cells(Rows.Count, 9).End(xlUp).Row)
  da = Application.DisplayAlerts: Application.DisplayAlerts = False
  Sheets(Sheets.Count).Delete
  Application.DisplayAlerts = da
End Sub

получилось не 5 строк а 9 потому что дополнительно
сделал шапку над данными
сформировал диапазон критериев для расширенного фильтра
убрал панику системы по поводу удаления листа
вернул настройку на место

[Kot_Begemot]

Добрый день.

Прошу помочь разобраться с обработкой 2-мерного массива с помощью нескольких ComboBox.
Задача следующая.
По выбору значения из одного ComboBox в остальных ComboBox должны остаться только те значения, которые соответствуют совпадениям из массива по первому ComboBox.
Причем без повторений, без пробелов и в порядке возрастания (числа) или алфавитном (строки).
И желательно посадить это все в событие ComboBox1_Change(), чтоб сразу - без лишнего нажатия кнопки.
Соответственно, при выборе критерия во втором ComboBox с остальными происходило тоже самое.

Подскажите шаблончик. Спасибо.

[IgorGO]

в примере нет ни "одного ComboBox" ни "остальных ComboBox".
не затруднит-ли Вас более детально описать задачу?

[Kot_Begemot]

Добрый день, Игорь.
Спасибо, что откликнулись. Последний ответ в теме был 7 лет назад.
Когда пытаюсь сюда вставить файл с макросом, мне выдает ошибку "Некорректный файл".
Поэтому вложил только таблицу для примера и включил "Фильтр".
Суть вопроса та же. Комбобоксами нужно продублировать работу фильтра в Excel.
При фильтрации таблицы по одному из полей, фильтры других полей преобразуются: остаются критерии только оставшихся строк, причем без повторов и в порядке возрастания.
Вот как сделать тоже самое, но комбобоксами, и не из таблицы, а из массива?