Массивы (Array)

[economic_man]

Сообщение от Кардаган

А так:

For i = 1 to 31
Index array(1)
или, если нужно
If труляля Then Index array(1)
Next i

нельзя?

Мне нужен весь массив, не значение какого-либо индекса массива

[Кардаган]

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

Мне нужен весь массив, не значение какого-либо индекса массива

Ну так он весь массив и просматривает. Или Вам на лист надо вывести весь массив?

[economic_man]

Нужно отфильтровать по критериям в массиве

[Кардаган]

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

Нужно отфильтровать по критериям в массиве

По каким критериям?

[economic_man]

Критерии в массиве array(1 to 31), нужно по ним отфильтровать другой диапазон данных

[Казанский]

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

Помогите пожалуйста умным советом, файл выложить не могу, вышел с телефона.

Совет. Раздайте инет с телефона на комп и выложите-таки файл, с диапазоном для фильтрации и кодом, где формируется массив.
А то чем дальше в лес, тем толще... ДедМорозы...

[economic_man]

да, Вы правы. Постараюсь это сделать.

[Smitt&Wesson]

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

Критерии в массиве array(1 to 31), нужно по ним отфильтровать другой диапазон данных

Ой, мама!
Вы можете чётко постваить задчу? Не. Это пипец!!!!

Тихо шифером шурша, крыша едет, не спеша.

[economic_man]

Сделал 2 листа:
1. Диапазон который нужно отфильтровать
2. Список условий, по которым нужно отфильтровать диапазон

[Казанский]

Расширенный фильтр. Записано макрорекордером, слегка причесано.

Sub Макрос1()

'копирование заголовка
Sheets("данные для сортировки").Cells(1, 2).Copy
Sheets("массив условий").Cells(1, 1).Insert Shift:=xlDown
    
'применение Расширенного фильтра
Sheets("данные для сортировки").Cells(1, 2).CurrentRegion.AdvancedFilter _
  Action:=xlFilterInPlace, CriteriaRange:=Sheets("массив условий").Cells(1, 1).CurrentRegion, Unique:=False
End Sub