Добрый день Уважаемые Эксперты.
Позвольте у Вас уточнить возможно ли заполнение массива из отфильтрованного диапазона,
по технологии подобной следующей:
В принципе массив заполняется, но только до наступления фильтра.
В кратце о диапазоне(диапазон довольно прост, в нем есть числа 1 2 3 4 5, каждое повторяется по 5 раз. Фильтром исключено число 4.
Вот мой вариант кода:
Копирование проходит правильно, а массив же заполняется только до наступления фильтра.
В общем подскажите массив вообще возможно заполнять методом :
Если без дополнительных манипуляций не возможно тогда:
- или циклическое заполнение массива
- или предварительное копирование в другое место с отключением фильтра( или копирование на другой лист) с заполнением массива
- или помещение в массив всей базовой выборки с дальнейшей фильтрацией массива функцией Filter.
Прошу помочь разобраться.
Благодарю Вас.
Позвольте у Вас уточнить возможно ли заполнение массива из отфильтрованного диапазона,
по технологии подобной следующей:
Код |
---|
A = Range("A2:A26").SpecialCells(xlCellTypeVisible) |
В кратце о диапазоне(диапазон довольно прост, в нем есть числа 1 2 3 4 5, каждое повторяется по 5 раз. Фильтром исключено число 4.
Вот мой вариант кода:
Код |
---|
Sub Popolnenie_Otfiltrovannym() Dim A() As Variant ' Проверка копированием Range("A2:A26").SpecialCells(xlCellTypeVisible).Copy Range("H30").Select ActiveSheet.Paste ' Проверка копированием A = Range("A2:A26").SpecialCells(xlCellTypeVisible)[E30].Resize(UBound(A)).Value = A End Sub |
В общем подскажите массив вообще возможно заполнять методом :
Код |
---|
.SpecialCells(xlCellTypeVisible) |
- или циклическое заполнение массива
- или предварительное копирование в другое место с отключением фильтра( или копирование на другой лист) с заполнением массива
- или помещение в массив всей базовой выборки с дальнейшей фильтрацией массива функцией Filter.
Прошу помочь разобраться.
Благодарю Вас.