VBA: Как фильтровать массив, который я создал из диапазона ячеек

Question

Я знаю, что правильно создаю массив, и раньше я использовал код автофильтра с массивами, но по какой-то причине, когда я пытаюсь фильтровать динамический массив возвращается только первое значение моего массива. Я создаю массив из уже отфильтрованного списка на одном листе, а затем перехожу на другой лист для фильтрации по значениям массива.

Dim StepArray As Variant 
Dim LastRow As Long 


    LastRow = Cells(Rows.Count, 1).End(-4162).Row 
    StepArray = Range("C4:C" & LastRow).SpecialCells(xlCellTypeVisible).Value 
    Sheet2.Select 
    LastRow = Cells(Rows.Count, 1).End(-4162).Row 
    Range(Cells(1, 1), Cells(LastRow, 5)).AutoFilter Field:=4, Criteria1:=StepArray, Operator:=xlFilterValues 

    End Sub 

Answer 1

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

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

вы должны Переберите диапазон и заполнить массив, как

Function GetFilteredValues(rng As Range) As Variant 
    Dim cell As Range 
    Dim iCell As Long 

    ReDim arr(1 To rng.Count) 
    For Each cell In rng 
     iCell = iCell + 1 
     arr(iCell) = cell.Value 
    Next 
    GetFilteredValues = arr 
End Function 

для использования в основном коде следующего

StepArray = GetFilteredValues(Range("C4:C" & LastRow).SpecialCells(xlCellTypeVisible)) 

---

Если отфильтрованный диапазон будет фактически непрерывный один, то вы должны перенести его и получить одномерный массив

StepArray = Application.Transpose(Range("C4:C" & LastRow).SpecialCells(xlCellTypeVisible).Value) 

Answer 2

StepArray рассматривается как значение, потому что вы сделали не set это будет диапазон.

Set StepArray = Range("C4:C" & LastRow).SpecialCells(xlCellTypeVisible) 

Возможно, лучше? Просто предложение, я никогда не пытался фильтровать с помощью массивов.